home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / derive / download / Setup.exe / %MAINDIR% / Math / Int_apps.mth < prev    next >
Encoding:
Text File  |  2002-05-15  |  2.7 KB  |  63 lines
  1. "File INT_APPS.MTH, copyright (c) 1990-2000 by Texas Instruments Incorporated"
  2.  
  3. LAPLACE(y,t,s):=INT(#e^(-s*t)*y,t,0,inf)
  4.  
  5. FOURIER(y,t,t1,t2,n):=1/(t2-t1)*INT(y,t,t1,t2)+2/(t2-t1)*SUM(COS(2*pi*m_*t/(t2~
  6. -t1))*INT(y*COS(2*pi*m_*t/(t2-t1)),t,t1,t2)+SIN(2*pi*m_*t/(t2-t1))*INT(y*SIN(2~
  7. *pi*m_*t/(t2-t1)),t,t1,t2),m_,1,n)
  8.  
  9. default1:=1
  10.  
  11. PARA_ARC_LENGTH(v,t,t1,t2,default1):=INT(default1*SQRT(SUM(DIF(v SUB m_,t)^2,m~
  12. _,1,DIMENSION(v))),t,t1,t2)
  13.  
  14. ARC_LENGTH(y,x,x1,x2,default1):=PARA_ARC_LENGTH([x,y],x,x1,x2,default1)
  15.  
  16. POLAR_ARC_LENGTH(r,theta,theta1,theta2,default1):=INT(default1*SQRT(r^2+DIF(r,~
  17. theta)^2),theta,theta1,theta2)
  18.  
  19. AREA(x,x1,x2,y,y1,y2,default1):=INT(INT(default1,y,y1,y2),x,x1,x2)
  20.  
  21. AREA_CENTROID(x,x1,x2,y,y1,y2,default1):=[AREA(x,x1,x2,y,y1,y2,x*default1),ARE~
  22. A(x,x1,x2,y,y1,y2,y*default1)]/AREA(x,x1,x2,y,y1,y2,default1)
  23.  
  24. AREA_INERTIA(x,x1,x2,y,y1,y2,default1):=[[AREA(x,x1,x2,y,y1,y2,y^2*default1),A~
  25. REA(x,x1,x2,y,y1,y2,-x*y*default1)],[AREA(x,x1,x2,y,y1,y2,-x*y*default1),AREA(~
  26. x,x1,x2,y,y1,y2,x^2*default1)]]/AREA(x,x1,x2,y,y1,y2,default1)
  27.  
  28. POLAR_AREA(r,r1,r2,theta,theta1,theta2,default1):=INT(INT(default1*r,r,r1,r2),~
  29. theta,theta1,theta2)
  30.  
  31. SURFACE_AREA(z,x,x1,x2,y,y1,y2,default1):=INT(LIM(INT(default1*SQRT(1+DIF(z,x)~
  32. ^2+DIF(z,y)^2),y,LIM(y1,x,x_),LIM(y2,x,x_)),x_,x),x,x1,x2)
  33.  
  34. VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,default1):=INT(INT(INT(default1,z,z1,z2),y,y1,y~
  35. 2),x,x1,x2)
  36.  
  37. VOLUME_CENTROID(x,x1,x2,y,y1,y2,z,z1,z2,default1):=[VOLUME(x,x1,x2,y,y1,y2,z,z~
  38. 1,z2,x*default1),VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,y*default1),VOLUME(x,x1,x2,y,y~
  39. 1,y2,z,z1,z2,z*default1)]/VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,default1)
  40.  
  41. VOLUME_INERTIA(x,x1,x2,y,y1,y2,z,z1,z2,default1):=[[VOLUME(x,x1,x2,y,y1,y2,z,z~
  42. 1,z2,(y^2+z^2)*default1),VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,(-x*y)*default1),VOLUM~
  43. E(x,x1,x2,y,y1,y2,z,z1,z2,(-x*z)*default1)],[VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,(-~
  44. x*y)*default1),VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,(x^2+z^2)*default1),VOLUME(x,x1,~
  45. x2,y,y1,y2,z,z1,z2,(-y*z)*default1)],[VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,(-x*z)*de~
  46. fault1),VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,(-y*z)*default1),VOLUME(x,x1,x2,y,y1,y2~
  47. ,z,z1,z2,(x^2+y^2)*default1)]]/VOLUME(x,x1,x2,y,y1,y2,z,z1,z2,default1)
  48.  
  49. SPHERICAL_VOLUME(r,r1,r2,theta,theta1,theta2,phi,phi1,phi2,default1):=INT(INT(~
  50. INT(default1*r^2*SIN(theta),phi,phi1,phi2),theta,theta1,theta2),r,r1,r2)
  51.  
  52. CYLINDRICAL_VOLUME(r,r1,r2,theta,theta1,theta2,z,z1,z2,default1):=INT(INT(INT(~
  53. default1*r,r,r1,r2),theta,theta1,theta2),z,z1,z2)
  54.  
  55. VOLUME_OF_REVOLUTION(y,x,x1,x2):=CYLINDRICAL_VOLUME(r_,0,y,theta_,0,2*pi,x,x1,~
  56. x2)
  57.  
  58. AREA_OF_REVOLUTION(y,x,x1,x2):=2*pi*PARA_ARC_LENGTH([x,y],x,x1,x2,y)
  59.  
  60. VOLUMEY_OF_REVOLUTION(y,x,x1,x2):=2*pi*INT(x*y,x,x1,x2)
  61.  
  62. AREAY_OF_REVOLUTION(y,x,x1,x2):=2*pi*PARA_ARC_LENGTH([x,y],x,x1,x2,x)
  63.