home *** CD-ROM | disk | FTP | other *** search
/ Physics Lessons / Physics Lessons.iso / pc / sample / system / calc.mac < prev    next >
Encoding:
Text File  |  1996-07-17  |  3.7 KB  |  138 lines
  1. iff (ANALMETHOD == ANALPOWELL)
  2.     {
  3.     iff (ANALPROBLEM == ANALSOLVE)
  4.         {
  5. ANALYZE POWELL
  6.         }
  7.     else
  8.         {
  9.         input ok cancel ("Loading this sample file will erase your current work.\nDo you want to proceed any way?")
  10.         iff (lastanswer)
  11.             {
  12.             fileopen("[fg]samples\tools\NOLINSYS.FGE")
  13.             run ("[fg]system\analysis.mac")
  14.             }
  15.         }
  16.     }
  17. else iff (ANALMETHOD == ANALDOWNHILL)
  18.     {
  19.     iff (ANALPROBLEM == ANALSOLVE)
  20.         {
  21. ANALYZE DOWNHILL
  22.         }
  23.     else
  24.         {
  25.         input ok cancel ("Loading this sample file will erase your current work.\nDo you want to proceed any way?")
  26.         iff (lastanswer)
  27.             {
  28.             fileopen("[fg]samples\tools\MINIMIZE.FGE")
  29.             run ("[fg]system\analysis.mac")
  30.             }
  31.         }
  32.     }
  33. else iff (ANALMETHOD == ANALDIFFEQ)
  34.     {
  35.     iff (ANALPROBLEM == ANALSOLVE)
  36.         {
  37. ANALYZE RUNGE KUTTA
  38.         }
  39.     else
  40.         {
  41.         input ok cancel ("Loading this sample file will erase your current work.\nDo you want to proceed any way?")
  42.         iff (lastanswer)
  43.             {
  44.             fileopen("[fg]samples\tools\diffeq.fge")
  45.             run ("[fg]system\analysis.mac")
  46.             }
  47.         }
  48.     }
  49. else iff (ANALMETHOD == ANALSIMPLEX)
  50.     {
  51.     iff (ANALPROBLEM == ANALSOLVE)
  52.         {
  53. ANALYZE SIMPLEX
  54.         }
  55.     else
  56.         {
  57.         input ok cancel ("Loading this sample file will erase your current work.\nDo you want to proceed any way?")
  58.         iff (lastanswer)
  59.             {
  60.             fileopen("[fg]samples\tools\simplex.fge")
  61.             run ("[fg]system\analysis.mac")
  62.             }
  63.         }
  64.     }
  65. else iff (ANALMETHOD == ANALBOUNDARY)
  66.     {
  67.     iff (ANALPROBLEM == ANALSOLVE)
  68.         {
  69.         input number ("Please enter the number of iterations for boundary value problems")
  70.         ANALBOUNDITER = lastanswer
  71.         iff (ANALBOUNDITER)
  72.             {
  73.             for (loopvar = 0; loopvar < ANALBOUNDITER; loopvar++)
  74.                 {
  75. ANALYZE BOUNDARY
  76.                 }  
  77.             }
  78.         }
  79.     else
  80.         {
  81.         input ok cancel ("Loading this sample file will erase your current work.\nDo you want to proceed any way?")
  82.         iff (lastanswer)
  83.             {
  84.             fileopen("[fg]samples\tools\boundary.fge")
  85.             run ("[fg]system\analysis.mac")
  86.             }
  87.         }
  88.     }
  89. else iff (ANALMETHOD == ANALNONLINFIT)
  90.     {
  91.     iff (ANALPROBLEM == ANALSOLVE)
  92.         {
  93. ANALYZE MRQT FIT
  94.         }
  95.     else
  96.         {
  97.         input ok cancel ("Loading this sample file will erase your current work.\nDo you want to proceed any way?")
  98.         iff (lastanswer)
  99.             {
  100.             fileopen("[fg]samples\tools\nolinfit.fge")
  101.             run ("[fg]system\analysis.mac")
  102.             }
  103.         }
  104.     }
  105. else iff (ANALMETHOD == ANALEIGENVAL)
  106.     {
  107.     iff (ANALPROBLEM == ANALSOLVE)
  108.         {
  109. ANALYZE EIGEN
  110.         }
  111.     else
  112.         {
  113.         input ok cancel ("Loading this sample file will erase your current work.\nDo you want to proceed any way?")
  114.         iff (lastanswer)
  115.             {
  116.             fileopen("[fg]samples\tools\eigen.fge")
  117.             run ("[fg]system\analysis.mac")
  118.             }
  119.         }
  120.     }
  121. else iff (ANALMETHOD == ANALEIGENVEC)
  122.     {
  123.     iff (ANALPROBLEM == ANALSOLVE)
  124.         {
  125. ANALYZE JACOBI
  126.         }
  127.     else
  128.         {
  129.         input ok cancel ("Loading this sample file will erase your current work.\nDo you want to proceed any way?")
  130.         iff (lastanswer)
  131.             {
  132.             fileopen("[fg]samples\tools\eigenvec.fge")
  133.             run ("[fg]system\analysis.mac")
  134.             }
  135.         }
  136.     }
  137.  
  138.