g=Plot[10Sin[x]/x,{x,0,10}]
(*將圖形座標取出並旋轉，接著再指定顏色*)
f[scale_,theta_,color_]:=g/.{Line[a___]:>Line[scale*RotationMatrix[thetaDegree].#&/@a],
Hue[___]:>color}
Manipulate[
Show[g,f[s,t,Green],PlotRange->{{-20,20},{-20,20}},
AspectRatio->1],{{s,1,"Scale"},0,2},{{t,45,"Degree"},0,360}]
讀者回應 ( 0 意見 )
訂閱Post Comments (Atom)
Post a Comment
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～