Stats

Popular Posts

Followers

Mathematica 教學 兩張圖合併

戴忠淵 於 2013年10月23日星期三 下午9:28 發表



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: , ,

讀者回應 ( 0 意見 )

發佈留言

Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.

如果這篇文章對你有幫助,那請留個訊息給我~