plot1=ContourPlot[Im[E^(I*Pi/4)/(2Pi)*Log[x+I*y]],{x,-10,10},{y,0,10},
ContourShading->False]
plot2=ContourPlot[Im[E^(I*Pi/4)/(2Pi)*Log[x+I*y]],{x,-10,10},{y,0,-10},
ContourShading->False]
ContourPlot[Im[E^(I*Pi/4)/(2Pi)*Log[x+I*y]],{x,-10,10},{y,-10,10},
Contours->Range[-1,1,0.1],ContourShading->False]
data1=Cases[plot1,GraphicsComplex[pts__]:>pts];
data2=Cases[plot2,GraphicsComplex[pts__]:>pts];
linedata1=Cases[data1[[2]],Line[pts__]:>pts,Infinity];
linedata2=Cases[data2[[2]],Line[pts__]:>pts,Infinity];
ListLinePlot[
Flatten[
{data1[[1]][[#]]&/@linedata1[[#]]&/@Range[Length@linedata1],
data2[[1]][[#]]&/@linedata2[[#]]&/@Range[Length@linedata2]},
1],AspectRatio->2,ImageSize->500]
Tags:
Mathematica 教學,
Mathematica 教學 畫圖,
Teaching
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～