home *** CD-ROM | disk | FTP | other *** search
- "File GRAPHICS.MTH, copyright (c) 1990-2000 by Texas Instruments Incorporated"
-
- AreaUnderCurve(u,x,a,b,y):=[u,a<=x<=b AND 0<y<u]
-
- AreaOverCurve(u,x,a,b,y):=[u,a<=x<=b AND u<y<0]
-
- AreaBetweenCurves(u,v,x,a,b,y):=[u,v,a<=x<=b AND (v-y)*(y-u)>0]
-
- PlotInt(u,x,a,b,y):=IF(a<b,[u,a<=x<=b AND 0<y<u,a<=x<=b AND u<y<0],[u,b<=x<=a~
- AND u<y<0,b<=x<=a AND 0<y<u])
-
- axes:=[[-t_,-t_/2],[t_,-t_/2],[0,t_]]
-
- ROTATE_X(alpha):=[[1,0,0],[0,COS(alpha),-SIN(alpha)],[0,SIN(alpha),COS(alpha)]]
-
- ROTATE_Y(beta):=[[COS(beta),0,SIN(beta)],[0,1,0],[-SIN(beta),0,COS(beta)]]
-
- ROTATE_Z(sigma):=[[COS(sigma),-SIN(sigma),0],[SIN(sigma),COS(sigma),0],[0,0,1]]
-
- ISOMETRIC(v):=[v SUB 2-v SUB 1,v SUB 3-(v SUB 1+v SUB 2)/2]
-
- GRID(u,s,s0,sm,m,t,t0,tn,n):=VECTOR(VECTOR(LIM(u,[s,t],[s0+j*(sm-s0)/m,t0+k*(t~
- n-t0)/n]),j,0,m),k,0,n)
-
- ISOMETRICS(v,s,s0,sm,m,t,t0,tn,n):=GRID(ISOMETRIC(v),s,s0,sm,m,t,t0,tn,n)
-
- COPROJECTION(v):=VECTOR(VECTOR(u_ SUB n_,u_,v),n_,DIMENSION(v SUB 1))
-
- SPHERE(r,theta,phi):=r*[SIN(phi)*COS(theta),SIN(phi)*SIN(theta),COS(phi)]
-
- CYLINDER(r,theta,z):=[r*COS(theta),r*SIN(theta),z]
-
- CONE(alpha,theta,z):=[z*SIN(alpha)*COS(theta),z*SIN(alpha)*SIN(theta),z]
-
- NORMAL_VECTOR(v,t):=SIGN(DIF(v,t,2))
-
- BINORMAL(v,t):=SIGN(CROSS(DIF(v,t),DIF(v,t,2)))
-
- SPACE_TUBE(v,t,r,phi):=v+r*(SIN(phi)*NORMAL_VECTOR(v,t)+COS(phi)*BINORMAL(v,t))
-
- TORUS(rc,rs,theta,phi):=SPACE_TUBE(rc*[COS(theta),SIN(theta),0],theta,rs,phi)
-
- RE_IM(w):=[RE(w),IM(w)]
-
- RAYS(w,z,z00,zmn,m,n,x,y):=GRID([[x,y],[[x,y],[x,y]+RE_IM(LIM(w,z,x+#i*y))]],x~
- ,RE(z00),RE(zmn),m,y,IM(z00),IM(zmn),n)
-
- HORIZONTALS(w,z,z00,zmn,m,n,x,y):=GRID(RE_IM(LIM(w,z,x+#i*y)),x,RE(z00),RE(zmn~
- ),m,y,IM(z00),IM(zmn),n)
-
- ARCS(w,z,r0,rm,m,theta0,Θn,n,r,theta):=GRID(RE_IM(LIM(w,z,r*#e^(#i*theta))),th~
- eta,theta0,Θn,n,r,r0,rm,m)