ASDIPAadwD
Posted on January 1, 2002
Tags: rawhtmldemo
In [3]:
$Version
Out[3]:
13.0.0 for Linux x86 (64-bit) (December 3, 2021)
In [261]:
ClearAll["Global`*"]
In [257]:
ExportString[ExpressionTree[p + q],"DOT"]Export::nodta: -Tree- contains no data that can be exported to the DOT format.
Out[257]:
In [268]:
p := ExpressionGraph[1/(a + b)*x^2, VertexLabels -> Automatic]
In [269]:
p
Out[269]:
In [270]:
ExportString[p,"DOT"]
Out[270]:
/* Created with the Wolfram Language : www.wolfram.com */
graph {
1 [label=Times];
2 [label=Power];
3 [label=Plus];
4 [label=a];
5 [label=b];
6 [label=-1];
7 [label=Power];
8 [label=x];
9 [label=2];
1 -- 2;
2 -- 3;
3 -- 4;
3 -- 5;
2 -- 6;
1 -- 7;
7 -- 8;
7 -- 9;
}
In [ ]:
In [71]:
TradingChart[{"SPY", {{2021, 1, 1}, {2021, 12,
28}}}, {"TimeSeriesForecast"}]
Out[71]:
In [ ]:
In [133]:
url = "https://www.federalreserve.gov/monetarypolicy/fomcprojtabl20210922.htm";
In [146]:
p = Import[url,"Data"];
In [207]:
p[[3]];
s = "Variable"
FirstPosition[p,s]
p[[3,2,1,2,2,1]]
Out[207]:
Variable{3, 2, 1, 1, 1, 1}June projection
In [218]:
{a, b, c}\[Cross]{x, y, z}
Out[218]:
In [219]:
{a,b}.{c,d}
Out[219]:
In [246]:
f[___, 0] = {};
f[___, 1] = {};
f[m___, n_] := {{m, n} -> {m, n, n - 1}, {m, n} -> {m, n, n - 2},
f[m, n, n - 1], f[m, n, n - 2]}
g = f[5] // Flatten
TreePlot[g, Top, {5},
VertexRenderingFunction -> (Inset[Row[{"fib(", Last[#2], ")"}], #1,
Background -> White] &)]
Out[246]:
N = Set(Set(n-1)+(n-1))
x + 0 = x A union B = Set(Expand(A) + Expand(B)) Expand({{2}}) = {2} N = Set(n-1) Union (n-1)
In [271]:
s[s[s]][s][s[s]][s]
Out[271]:
s[s[s]][s][s[s]][s]
In [294]:
f[1] = f[2] = 1;
f[n_] := f[n-1]+f[n-2];
Stack[f[7]]
Out[294]:
{}
In [298]:
Trace[u = 2; Do[u = u*u, {3}]; u, Times]
Out[298]:
{}
In [ ]:
