Visualization Notes
Saturday, December 28, 2019
ReliefPlot Examples
With[{z=x+I y},ReliefPlot[Table[Cos[64#],
{x,##2},{y,##2}]&[If[Abs[z]>1.1 ,
0,#]&@Arg[Sum[(z(z^9+.01))^k!,
{k,4}]],-1.11,1.11,.005],
ImageSize->500,ColorFunction->"CoffeeTones"]]
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment