Mathematica 编程实战(1) | 我心永恒的小站

type

Post

status

Published

date

Aug 15, 2022

slug

wolfram-sz1

summary

category

技术分享

icon

password

Property

Jan 10, 2023 07:41 AM

URL

在传统的编程书上，总是从基础的语法开始讲起，然后把所有知识过了一遍之后才开始正式做东西，这么做的一个巨大的缺陷就是很容易让人劝退，大多数学习者在学习的过程中容易劝退。wolfram 语言同样如此，为了解决这种困境，本文将从实战出发，从实际例子来解决问题，这样学起来更快。

第一个例子中，我们将做一个思维导图


Clear["Global`*"];
(*=== data ===*)
data1 = 1;
data2 = Range[2, 6, 1];
data3 = Range[7, 9, 1];

(*=== vertex ===*)

verColor = {1 -> Orange, # -> RGBColor["#c6d8ed"] & /@ 
     data2, # -> RGBColor["#a0b88b"] & /@ data3} // Flatten;

(*=== edge ===*)
edge1 = DirectedEdge[data1, #] & /@ data2;
edge2 = Array[DirectedEdge, {5, 3}, {{2, 6}, {7, 9}}] // Flatten;
edge = {edge1, edge2} // Flatten;

(*=== graph ===*)
Graph[edge,
 (*-- vertex --*)
 VertexSize -> 0.7,
 VertexStyle -> verColor,
 VertexShapeFunction -> "Rectangle",
 (*-- edge --*)
 EdgeStyle -> {Arrowheads[2]},
 EdgeShapeFunction -> "Arrow"]