summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/Lyap.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/Lyap.m4')
-rw-r--r--graphics/circuit_macros/examples/Lyap.m430
1 files changed, 15 insertions, 15 deletions
diff --git a/graphics/circuit_macros/examples/Lyap.m4 b/graphics/circuit_macros/examples/Lyap.m4
index a1b40a8ad0..4bce1b1d37 100644
--- a/graphics/circuit_macros/examples/Lyap.m4
+++ b/graphics/circuit_macros/examples/Lyap.m4
@@ -7,7 +7,7 @@ viewaz = 30
viewel = 18
setview(viewaz,viewel)
-Origin: project(0,0,0)
+Origin: Project(0,0,0)
# Components of view vector W
w1 = view3D1
w2 = view3D2
@@ -45,20 +45,20 @@ define(`vx',`sum3D(vp(`$1',`$2'),0,0,h+(`$2')^2)')
y = y1 + (y2-y1)/nT*i
theta = atan2(y,(w3-2*y*w2)*q/2/w1)
r = y/sin(theta)
- T[i]: project(vx(theta,r))
+ T[i]: Project(vx(theta,r))
}
# front and back parts of the top curve
n = 12
for i = 0 to n do {
theta = theta1 + (theta2-theta1)/n*i
- F[i]: project(vx(theta,c))
- Fp[i]: project(vp(theta,c))
+ F[i]: Project(vx(theta,c))
+ Fp[i]: Project(vp(theta,c))
}
for i = 0 to n do {
theta = theta2 + (theta1+twopi_-theta2)/n*i
- B[i]: project(vx(theta,c))
- Bp[i]: project(vp(theta,c))
+ B[i]: Project(vx(theta,c))
+ Bp[i]: Project(vp(theta,c))
}
# trajectory
@@ -74,8 +74,8 @@ define(`defX',` rx = `$5' ; np = np-1
for i = 0 to `$3' do {
tha = ts + (tf-ts)*i/(`$3')
for thx = tha to -twopi_ by twopi_ do {}
- `$4'[i]: project(vx(thx,rx))
- Xp[np]: project(vp(thx,rx))
+ `$4'[i]: Project(vx(thx,rx))
+ Xp[np]: Project(vp(thx,rx))
np = np+1
rx = beta*rx
}')
@@ -102,7 +102,7 @@ ifpstricks(`
# Centre axis
thinlines_
-line from Origin to project(0,0,h)
+line from Origin to Project(0,0,h)
# F[0] is the leftmost point of the front curve
line from F[0] to Fp[0]
# F[n] is the rightmost point of the front curve
@@ -144,16 +144,16 @@ ifpstricks(`
# Axes and vertical lines
thinlines_
line from X1[0] to Xp[0]
-arrow from Origin to project(1.5,0,0)
+arrow from Origin to Project(1.5,0,0)
"$x_1$" rjust below
-arrow from Origin to project(0,1.5,0)
+arrow from Origin to Project(0,1.5,0)
"$x_2$" ljust
-line dashed from project(0,0,h) to F[n/2] chop 0 chop arrowht/4
-arrow from F[n/2] to project(0,0,2)
+line dashed from Project(0,0,h) to F[n/2] chop 0 chop arrowht/4
+arrow from F[n/2] to Project(0,0,2)
"$v(X)$" ljust
"`${0}$'" at Origin+(0,1 pt__) below
-"$\Omega$" at project(0,0.9*c,0) above
-"`$v(X) = c$'" at (project(vp(100*dtor_,c)))+(2bp__,0) above ljust
+"$\Omega$" at Project(0,0.9*c,0) above
+"`$v(X) = c$'" at (Project(vp(100*dtor_,c)))+(2bp__,0) above ljust
.PE