diff options
Diffstat (limited to 'graphics/circuit_macros/examples/Lyap.m4')
-rw-r--r-- | graphics/circuit_macros/examples/Lyap.m4 | 30 |
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 |