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]
Mathematica 教學 兩張圖合併
由 戴忠淵 於 2013年10月23日星期三
下午9:28 發表
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助,那請留個訊息給我~