RPC1[m_,n_,s_,col_]:=With[{z=x+I y},ReliefPlot[Table[Cos[m*#]*Sin[#],
{x,##2},{y,##2}]&[If[Abs[z]>1.1 ,0,#]&@Arg[Sum[(z^n+10^(-3)z)^k!,{k,4}]],
-1.11,1.11,.005],ImageSize->s,ColorFunction->col]];
{RPC1[81,8,300,"GrayTones"],RPC1[64,5,300,"CherryTones"]}
RPC2[m_,n_,col_]:=With[{z=x+I y},ReliefPlot[Table[Cos[m*#],
{x,##2},{y,##2}]&[If[Abs[z]>1.15 ,0,#]&@Arg[Sum[(Sin[3z]*z)^k!,{k,4}]],
-1.2,1.2,.005],ImageSize->600,ColorFunction->col]];
RPC2[81,8,"BrassTones"]
{x,##2},{y,##2}]&[If[Abs[z]>1.1 ,0,#]&@Arg[Sum[(z^n+10^(-3)z)^k!,{k,4}]],
-1.11,1.11,.005],ImageSize->s,ColorFunction->col]];
{RPC1[81,8,300,"GrayTones"],RPC1[64,5,300,"CherryTones"]}
RPC2[m_,n_,col_]:=With[{z=x+I y},ReliefPlot[Table[Cos[m*#],
{x,##2},{y,##2}]&[If[Abs[z]>1.15 ,0,#]&@Arg[Sum[(Sin[3z]*z)^k!,{k,4}]],
-1.2,1.2,.005],ImageSize->600,ColorFunction->col]];
RPC2[81,8,"BrassTones"]
No comments:
Post a Comment