home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e002 / 1.ddi / BOLTZMAN.F_ / BOLTZMAN.F
Encoding:
Text File  |  1993-01-25  |  472 b   |  26 lines
  1.  
  2. Built-in Function=Boltzman
  3.  
  4. Parameters=A1,A2,x0,dx
  5.  
  6. Number of parameters=4
  7.  
  8. Description = {Boltzman:
  9. (A1-A2) / { 1+exp((x-x0)/dx) } + A2
  10. x0 : center, dx : width
  11. A1 : Y initial, A2 : Y final}
  12.  
  13. Initialization script = {copy -x %F dummy;
  14. deriv dummy;
  15. integ -q dummy;
  16. dx = integ.dx/2; x0 = integ.x0;
  17. limit %F;
  18. if(limit.imax < limit.imin) {
  19. temp = limit.ymax;limit.ymax=limit.ymin;limit.ymin=temp
  20. };
  21. A1=limit.ymin;
  22. A2=limit.ymax;
  23. }
  24.  
  25. Run Init Script=1
  26.