level 2
姹紫灬
楼主
二维:
ListVectorPlot[Table[{y, -x}, {x, 0, 1, 0.2}, {y, 0, 1, 0.2}],Frame->False]
三维:
Show[
Graphics3D[{Thick,
Arrow[{{0,0,0},{1.12,0,0}}],Text[Style["x",18,Bold],{1.1,-0.1,0}],
Arrow[{{0,0,0},{0,1.25,0}}],Text[Style["y",18,Bold],{-0.1,1.25,0}],
Arrow[{{0,0,0},{0,0,0.73}}],Text[Style["q",18,Bold],{-0.05,0,0.65}]}],
Graphics3D[{Arrow[{{0.6,0.35,0},{0.6,0.35,0.25}}],Arrow[{{0.6,0.35,0},{0.6,0.35,0.3}}],Arrow[{{0.6,0.35,0},{0.6,0.35,0.35}}],Line[{{0.6,0.35,0},{0.6,0.35,0.6}}]}],
Graphics3D[{Arrow[{{0.2,0.65,0.6},{0.2,0.65,0.3}}],Arrow[{{0.2,0.65,0.6},{0.2,0.65,0.25}}],A
rrow[{{0.2,0.65,0.6},{0.2,0.65,0.2}}],Line[{{0.2,0.65,0.6},{0.2,0.65,0}}]}],
Graphics3D[{RGBColor[1,1,0],Opacity[0.5],Polygon[{{0,0,0},{0,1,0},{1,1,0},{1,0,0}}]}],
Graphics3D[{RGBColor[0,1,0],Opacity[0.5],Polygon[{{0,0,0.6},{0,1,0.6},{1,1,0.6},{1,0,0.6}}]}],
Graphics3D[{RGBColor[0,1,1],Opacity[0.5],Polygon[{{0,0,0},{0,0,0.6},{0.8,1,0.6},{0.8,1,0}}]}],
Graphics3D[{PointSize[0.02],Point[{0.2,0.65,0}],Point[{0.6,0.35,0}],Point[{0.2,0.65,0.6}],Point[{0.6,0.35,0.6}]}],
Graphics3D[{Text[Style["Subscript[M, 0]={q=0}",14,Bold],{1.16,0.6,0}],Text[Style["Subscript[M, 1]={q=1}",14,Bold],{1.16,0.6,0.6}],Text[Style["Subscript[M, sw]={Subscript[K, 1]x=Subscript[K, 2]y}",14,Bold],{1.1,1,0.25}],Text[Style["a",18,Bold],{0.25,0.65,0}],,Text[Style["a",18,Bold],{0.65,0.35,0.6}],Text[Style["r",18,Bold],{0.65,0.35,0}],Text[Style["r",18,Bold],{0.25,0.65,0.6}]}],
Axes->False,Boxed->False]
比如想把第一张向量场的图水平放到第二张图里面,忽略掉边框那些



2023年01月15日 13点01分
1
ListVectorPlot[Table[{y, -x}, {x, 0, 1, 0.2}, {y, 0, 1, 0.2}],Frame->False]
三维:
Show[
Graphics3D[{Thick,
Arrow[{{0,0,0},{1.12,0,0}}],Text[Style["x",18,Bold],{1.1,-0.1,0}],
Arrow[{{0,0,0},{0,1.25,0}}],Text[Style["y",18,Bold],{-0.1,1.25,0}],
Arrow[{{0,0,0},{0,0,0.73}}],Text[Style["q",18,Bold],{-0.05,0,0.65}]}],
Graphics3D[{Arrow[{{0.6,0.35,0},{0.6,0.35,0.25}}],Arrow[{{0.6,0.35,0},{0.6,0.35,0.3}}],Arrow[{{0.6,0.35,0},{0.6,0.35,0.35}}],Line[{{0.6,0.35,0},{0.6,0.35,0.6}}]}],
Graphics3D[{Arrow[{{0.2,0.65,0.6},{0.2,0.65,0.3}}],Arrow[{{0.2,0.65,0.6},{0.2,0.65,0.25}}],A
rrow[{{0.2,0.65,0.6},{0.2,0.65,0.2}}],Line[{{0.2,0.65,0.6},{0.2,0.65,0}}]}],
Graphics3D[{RGBColor[1,1,0],Opacity[0.5],Polygon[{{0,0,0},{0,1,0},{1,1,0},{1,0,0}}]}],
Graphics3D[{RGBColor[0,1,0],Opacity[0.5],Polygon[{{0,0,0.6},{0,1,0.6},{1,1,0.6},{1,0,0.6}}]}],
Graphics3D[{RGBColor[0,1,1],Opacity[0.5],Polygon[{{0,0,0},{0,0,0.6},{0.8,1,0.6},{0.8,1,0}}]}],
Graphics3D[{PointSize[0.02],Point[{0.2,0.65,0}],Point[{0.6,0.35,0}],Point[{0.2,0.65,0.6}],Point[{0.6,0.35,0.6}]}],
Graphics3D[{Text[Style["Subscript[M, 0]={q=0}",14,Bold],{1.16,0.6,0}],Text[Style["Subscript[M, 1]={q=1}",14,Bold],{1.16,0.6,0.6}],Text[Style["Subscript[M, sw]={Subscript[K, 1]x=Subscript[K, 2]y}",14,Bold],{1.1,1,0.25}],Text[Style["a",18,Bold],{0.25,0.65,0}],,Text[Style["a",18,Bold],{0.65,0.35,0.6}],Text[Style["r",18,Bold],{0.65,0.35,0}],Text[Style["r",18,Bold],{0.25,0.65,0.6}]}],
Axes->False,Boxed->False]
比如想把第一张向量场的图水平放到第二张图里面,忽略掉边框那些



