home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e002 / 1.ddi / HYPERBL.F_ / HYPERBL.F
Encoding:
Text File  |  1993-05-26  |  398 b   |  27 lines
  1.  
  2. Built-in Function=Hyperbl
  3.  
  4. Parameters=
  5.  
  6. Number of parameters=2
  7.  
  8. Description = {#Retangular Hyperbola:
  9. P1*x / (P2 + X)}
  10.  
  11. Initialization script = {GetYesNo "Auto Parameter Guess?" answer;
  12. if(Answer == 1) {
  13.   Limit %F;
  14.   P1=limit.ymax;
  15.   #!P1=;/* debug info */
  16.   LR -b %F;
  17.   #!LR.A=;LR.B=;
  18.   if(LR.B!=0) {
  19.     P2=P1/LR.B;
  20.   } else {
  21.     P2 = 1;
  22.   };
  23. };
  24. }
  25.  
  26. Run Init Script=1
  27.