type
Post
status
Published
date
Aug 15, 2022
slug
wolfram-sz1
summary
tags
mathematica
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"]

- 作者:我心永恒
- 链接:https://wxyhgk.com/article%2Fwolfram-sz1
- 声明:本文采用 CC BY-NC-SA 4.0 许可协议,转载请注明出处。