Wednesday, February 5, 2020
Sunday, January 19, 2020
D3 Plotting and Functions
<script src='https://d3js.org/d3.v4.min.js'></script> was added in the page head.
D3 Color Gradients
<script src='https://d3js.org/d3.v4.min.js'></script> was added in the page head.
Tuesday, January 7, 2020
Saturday, January 4, 2020
Wednesday, January 1, 2020
Matrix 3D Rotations
CTM[m_,r_,col_,s_]:=Module[{ag,rtag,n},
ag=AdjacencyGraph[ExampleData[{"Matrix",m},
"Matrix"]["PatternArray"],DirectedEdges->False];
rtag=Table[RotationTransform[i*Pi/r,{0,
0}]/@ResourceFunction["VertexCoordinateList"][ag]//N,
{i,2r}];n=Length[rtag[[1]]];
rtag=Table[Flatten[{rtag[[i,j]],.05j}],{i,2r},{j,n}];
Graphics3D[Table[{ColorData[col][Cos[2Pi*i/r]^2],
Line[rtag[[i]]]},{i,2r}],
ImageSize->s,Boxed->False,ViewPoint->{3,1,.003n}]];
CTM["HB/dwt_1005",12,"CherryTones",700]
ag=AdjacencyGraph[ExampleData[{"Matrix",m},
"Matrix"]["PatternArray"],DirectedEdges->False];
rtag=Table[RotationTransform[i*Pi/r,{0,
0}]/@ResourceFunction["VertexCoordinateList"][ag]//N,
{i,2r}];n=Length[rtag[[1]]];
rtag=Table[Flatten[{rtag[[i,j]],.05j}],{i,2r},{j,n}];
Graphics3D[Table[{ColorData[col][Cos[2Pi*i/r]^2],
Line[rtag[[i]]]},{i,2r}],
ImageSize->s,Boxed->False,ViewPoint->{3,1,.003n}]];
CTM["HB/dwt_1005",12,"CherryTones",700]
Subscribe to:
Posts (Atom)