1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
.PS
# sfgSVG.m4
gen_init(svg_font(Times,11bp__))
sfg_init( 1.2 ) # scale default size by 1.2
textht = textht*0.9
# Graph 1
move right 0.15
T:[
Ft: sfgnode(,f(t),sfgbelow)
sfgline(,1/K)
Y1: sfgnode(,y`'svg_sub(1),sfgbelow rjust)
sfgline(,K/M)
DDY2: sfgnode(,y`'svg_sub(2),sfgbelow rjust)
{".." at DDY2 +(-3,-1)*textoffset}
sfgline(,1/s)
DY2: sfgnode(,y`'svg_sub(2) = x`'svg_sub(2),sfgbelow ljust)
{"." at DY2 +(2,-1)*textoffset}
sfgline(,1/s)
Y2: sfgnode(,y`'svg_sub(2) = x`'svg_sub(1),sfgbelow ljust)
sf = 1
sfgarc(from DY2 to DDY2,-B/M,below,,sf)
sfgarc(from Y2 to DDY2,-K/M,above,ccw,sf)
sfgarc(from Y2 to Y1,1,sfgabove,,sf)
]
# Graph 2
B: [
R1: sfgnode(,r`'svg_sub(1),sfgabove)
sfgline(,1)
X1: sfgnode(,x`'svg_sub(1),ljust)
R2: sfgnode(at R1+(0,-1),r`'svg_sub(2),sfgabove)
sfgline(,1)
X2: sfgnode(,x`'svg_sub(2),ljust)
sfgarc(from X1 to X2,a`'svg_sub(21),rjust,ccw)
sfgarc(from X2 to X1,a`'svg_sub(12),ljust,ccw)
sfgself(at X1,,q`'svg_sub(11))
sfgself(at X1,R,a`'svg_sub(11),ljust,cw,1.5)
sfgself(at X2,-90,a`'svg_sub(22),sfgbelow)
] with .w at T.e + (linewid/2,-linewid/4)
# Graph 3
G3: [
# change node spacing and increase node size
sfg_wid = 0.85; sfg_rad = 0.35/2
for_(1,4,1,`N`'m4x: sfgnode(,m4x,,fill_(0.9))
sfgself(at N`'m4x,-90,P`'svg_sub(m4x),,cw)
ifelse(m4x,4,,`sfgline(,G`'svg_sub(m4x),sfgbelow)') ')
sfgarc(from N2 to N1,F`'svg_sub(2),sfgabove,ccw,)
sfgarc(from N3 to N1,F`'svg_sub(3),sfgbelow,ccw,1.4)
] with .nw at T.sw
A: [ sfg_wid = 0.75; sfg_rad = 0.15
arrow right linewid*2/3
P: sfgnode(,p)
sfgself(,90,a,below,cw)
arrow from P.e "b" below
Q: sfgnode(,q)
R: sfgnode(at Q+(Q-P),r) # for dpic
sfgarc(from Q to R,c,above,cw)
sfgarc(from R to Q,d,below,cw)
sfgself(at R,-90,e,above,cw)
arrow right linewid*2/3 from R.e
] with .w at G3.e+(linewid/2,0)
define(`svg_choose',`[ P:"svg_fsize(( ),150)"
"svg_small(`$1')" at P+(0,7bp__)
"svg_small(`$2')" at P-(0,3bp__)
]')
G4: [sfg_init( 2.0,0.25/2 ) # change node spacing and increase node size
s1 = 0.9
s2 = 1.2
N0: sfgnode(,svg_fsize(0,120),,invis)
sfgline(right_ sfg_wid,`svg_nu',below,->)
N1: sfgnode(,svg_fsize(1,120),,invis)
{ sfgarc(to N0 ->,(1-p)`svg_gamma'+`svg_nu',above,ccw,s1) }
sfgline(right_ sfg_wid,`svg_nu'+`svg_lambda',below,->)
N2: sfgnode(,svg_fsize(2,120),,invis)
{ sfgarc(to N1 ->,,,ccw,s1) }
{ "p(1-p)svg_gamma+2`'svg_nu" at last [].M+(11bp__,0) above }
{ svg_choose(2,1) at last [].M+(-29bp__,8bp__) }
{ sfgarc(to N0 ->,(1-p)svg_sup(2)`svg_gamma',above,ccw,s2) }
sfgline(right_ sfg_wid,`svg_nu'+2`svg_lambda',below,->)
N3: sfgnode(,svg_fsize(3,120),,invis)
{ sfgarc(to N2 ->,,,ccw,s1) }
{ "p`'svg_sup(2)(1-p)svg_gamma+3`'svg_nu" at last [].M+(0bp__,0) above }
{ svg_choose(3,2) at last [].M+(-43bp__,8bp__) }
{ sfgarc(to N1 ->,,,ccw,s2) }
{ "p(1-p)`'svg_sup(2)`'svg_gamma" at last [].M+(8bp__,0) above }
{ svg_choose(3,1) at last [].M+(-26bp__,8bp__) }
{ sfgarc(to N0 ->,(1-p)svg_sup(3)`svg_gamma',above,ccw,s2) }
sfgline(right_ sfg_wid*2/3,`svg_nu'+3`svg_lambda',below,->)
{"..." wid 0.3 ljust}
] with .nw at G3.sw+(0,-0.1)
move from (T.w,G4.s)-(7bp__,6bp__) to B.ne+(15bp__,6bp__)
command "</g>" # end font
.PE
|
