SciDraw

SciDraw คือแพ็กเกจที่ช่วยให้สร้างกราฟสวยๆในMathematica ครับ ช่วงนี้ผมใช้บ่อยเลยอยากมาแชร์ครับ มันเป็นแพ็คเกจที่ถูกพัฒนาโดย Mark A. Caprio, University of Notre Dame มาหลายปีแล้วครับ แต่ก็ยังเห็นมีคนใช้กันอยู่บ้างโดยเฉพาะในกลุ่มนักฟิสิกส์ ส่วนตัวผมก็ว่ามันใช้งานง่ายนะครับ แนะนำให้ลองศึกษาจากคู่มือที่เขาแชร์ไว้ที่ SciDraw: Publication-quality scientific figures with Mathematica (nd.edu) ดูครับมีตัวอย่างพอสมควรที่จะทำความเข้าใจได้ไม่ยาก ความสามารถหลักๆที่ผมใช้ก็คือการเอากราฟมารวมกัน ซ้อนกัน หรือวาด ใส่เส้นตามตำแหน่งที่ต้องการ

เขียนกราฟด้วยตัวอักษรใน Mathematica

มีคนถามมาว่าจะให้ Mathematica วาดกราฟแต่แทนที่จะให้เป็นเส้น แต่ให้เป็นตัวอักษรแทนจะทำอย่างไร

เราสามารถใช้ Option PlotMarkers ของ ListPlot มาช่วยได้ครับ  ดูตัวอย่างข้างล่างนี้นะครับ

หวังว่าคงพอช่วยได้บ้างนะครับ

sinvalentine

 

การใส่สีพื้นหลังของกราฟจากคำสั่ง Plot

การใส่สีพื้นหลังของกราฟจากคำสั่ง Plot มีหลายวิธีครับ ด้านล่างนี้เป็นตัวอย่างครับ

Plot[Sin[x], {x, 0, 4 \[Pi]}, PlotStyle -> Red, Background -> Gray]

 

Graphics[Inset[
Plot[Sin[x], {x, 0, 4 \[Pi]}, PlotStyle -> White,
Frame -> {True, True, False, False},
FrameStyle -> Directive[White, 12]]], Background -> Gray]

 

bg = Graphics[
Polygon[{{0, 0}, {1, 0}, {1, 1}, {0, 1}},
VertexColors -> {Black, Black, White, White}],
AspectRatio -> Full];
Plot[Sin[x], {x, 0, 4 \[Pi]}, PlotStyle -> Red,
Prolog -> Inset[bg, Scaled[{0, 0}], Scaled[{0, 0}], Scaled[{1, 1}]]]