home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / derive / download / Setup.exe / %MAINDIR% / Math / Graphics.mth < prev    next >
Encoding:
Text File  |  2002-05-15  |  1.8 KB  |  53 lines
  1. "File GRAPHICS.MTH, copyright (c) 1990-2000 by Texas Instruments Incorporated"
  2.  
  3. AreaUnderCurve(u,x,a,b,y):=[u,a<=x<=b AND 0<y<u]
  4.  
  5. AreaOverCurve(u,x,a,b,y):=[u,a<=x<=b AND u<y<0]
  6.  
  7. AreaBetweenCurves(u,v,x,a,b,y):=[u,v,a<=x<=b AND (v-y)*(y-u)>0]
  8.  
  9. 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~
  10.  AND u<y<0,b<=x<=a AND 0<y<u])
  11.  
  12. axes:=[[-t_,-t_/2],[t_,-t_/2],[0,t_]]
  13.  
  14. ROTATE_X(alpha):=[[1,0,0],[0,COS(alpha),-SIN(alpha)],[0,SIN(alpha),COS(alpha)]]
  15.  
  16. ROTATE_Y(beta):=[[COS(beta),0,SIN(beta)],[0,1,0],[-SIN(beta),0,COS(beta)]]
  17.  
  18. ROTATE_Z(sigma):=[[COS(sigma),-SIN(sigma),0],[SIN(sigma),COS(sigma),0],[0,0,1]]
  19.  
  20. ISOMETRIC(v):=[v SUB 2-v SUB 1,v SUB 3-(v SUB 1+v SUB 2)/2]
  21.  
  22. GRID(u,s,s0,sm,m,t,t0,tn,n):=VECTOR(VECTOR(LIM(u,[s,t],[s0+j*(sm-s0)/m,t0+k*(t~
  23. n-t0)/n]),j,0,m),k,0,n)
  24.  
  25. ISOMETRICS(v,s,s0,sm,m,t,t0,tn,n):=GRID(ISOMETRIC(v),s,s0,sm,m,t,t0,tn,n)
  26.  
  27. COPROJECTION(v):=VECTOR(VECTOR(u_ SUB n_,u_,v),n_,DIMENSION(v SUB 1))
  28.  
  29. SPHERE(r,theta,phi):=r*[SIN(phi)*COS(theta),SIN(phi)*SIN(theta),COS(phi)]
  30.  
  31. CYLINDER(r,theta,z):=[r*COS(theta),r*SIN(theta),z]
  32.  
  33. CONE(alpha,theta,z):=[z*SIN(alpha)*COS(theta),z*SIN(alpha)*SIN(theta),z]
  34.  
  35. NORMAL_VECTOR(v,t):=SIGN(DIF(v,t,2))
  36.  
  37. BINORMAL(v,t):=SIGN(CROSS(DIF(v,t),DIF(v,t,2)))
  38.  
  39. SPACE_TUBE(v,t,r,phi):=v+r*(SIN(phi)*NORMAL_VECTOR(v,t)+COS(phi)*BINORMAL(v,t))
  40.  
  41. TORUS(rc,rs,theta,phi):=SPACE_TUBE(rc*[COS(theta),SIN(theta),0],theta,rs,phi)
  42.  
  43. RE_IM(w):=[RE(w),IM(w)]
  44.  
  45. 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~
  46. ,RE(z00),RE(zmn),m,y,IM(z00),IM(zmn),n)
  47.  
  48. HORIZONTALS(w,z,z00,zmn,m,n,x,y):=GRID(RE_IM(LIM(w,z,x+#i*y)),x,RE(z00),RE(zmn~
  49. ),m,y,IM(z00),IM(zmn),n)
  50.  
  51. ARCS(w,z,r0,rm,m,theta0,Θn,n,r,theta):=GRID(RE_IM(LIM(w,z,r*#e^(#i*theta))),th~
  52. eta,theta0,Θn,n,r,r0,rm,m)
  53.