1樓：
Graphics
[,],
Opacity[1
],Thick
,Circle
[,15,],
Line
[,}],
Arrowheads
,Arrow
[,}],
Dashed
,Line
[,}],
Line
[,}],
Line
[,}],
Text
[Style
["A",20
,Bold
],],
Text
[Style
["O",20
,Bold
],],
Text
[Style
["C",20
,Bold
],],
Text
[Style
["B",20
,Bold
],],
Text
[Style
["r",20
,Bold
],],
Text
[Style
["h",20
,Bold
],],
Text
[Style
["D",20
,Bold
],],
Text
[Style
["R",20
,Bold
],],
Text
[Style
["d",20
,Bold],]
},ImageSize
->Large
]Graphics[, 5, ],
Line[, }],
Blue,
Line[Table[, ]],
Arrow[, }],
Arrow[, }],
Arrow[, }],
Arrow[, }],
Red, Arrowheads,
Arrow[, }],
Arrowheads,
Arrow[, }],
Orange,
Arrow[, }],
Black, Arrowheads[Medium],
Arrow[, }],
Arrow[, }],
Dashed, Red,
Line[, }],
Line[, }],
Line[, }],
Blue,
Line[, , , }],
Black, Thin,
Circle[, 5],
PointSize[Large],
Point,
Point,
Point,
Point,
Text[Style["R", 20, Bold], ],
Text[Style[Subscript["r", "j"], 20, Bold], ],
Text[Style[Subscript["d", "1"], 20, Bold], ],
Text[Style[Subscript["d", "2"], 20, Bold], ],
Text[Style["d", 20, Bold], ],
Text[Style["A", 20, Bold], ],
Text[Style["B", 18, Bold], ],
Text[Style["入射", 18, Bold], ],
Text[Style["O點", 18, Bold], ],
Text[Style[TraditionalForm[(y - R)^2 + x^2 == R^2], 15, Bold], ],
Text[Style[TraditionalForm[y == k x^2], 15, Bold], ]
},ImageSize -> Large]
你喜歡用 Mathematica 畫圖嗎？
鄭劍豪 由於發現mma的排版功能也不錯，我經常用mma寫作業，然後國內對這個軟體普及率很低，所以老師也看不出來我用啥完成的，常常作業可以拿A啥的 似乎引發了些許關注，那麼我就 show 一下怎樣用 ComplexPlot 畫二維 靜 電場和電勢吧。稍微有一些數學背景可參見 Section 7.2,F...
mathematica中畫圖函式的區分？
吉聆遠 具體的區別 withparadox2 已經說得很明晰了。但對於 3，當不好求出顯示解時，如 x 2 Sin y Cos x y，不好寫出以上兩種形式時便可以用ContourPlot ImplicitPlot淘汰掉 來繪製，例如 ContourPlot x 2 Sin y Cos x y,我來...
mathematica畫圖時圖例的粗細如何調節？
St Jason 之前非常感謝各位朋友對此問題的回覆Mathematica如何清晰的把圖匯入到Word？Microsoft Word 在使用上述方法的同時，發現乙個問題，就是在增加ImageResolution的時候，圖例的標識會變得淺 那麼有什麼辦法能加粗這個圖示，並且增加外框？我通過查詢幫助知道...