home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / spredsht / profile.arc / NASECODE.PRO < prev    next >
Text File  |  1989-06-28  |  978b  |  36 lines
  1. : -- main Profile program
  2. : -- declare used variables
  3. type v cmeas clarge csmall cstart cfit1 cfit2 $
  4. var real vbi const power $
  5. : -- get measurement data and compensate side-effects
  6. get spl.cv v clarge $
  7. get sps.cv v csmall $
  8. cmeas = clarge-2*csmall
  9. : -- define models
  10. define cmodel1 = const/((vbi-v)~(0.5))
  11. define cmodel2 = const/((vbi-v)~(power))
  12. : define cmodel1 = (const*8e-12)/((vbi-v)~(0.5))
  13. : define cmodel2 = (const*8e-12)/((vbi-v)~(power))
  14. : -- give constraints
  15. constrain vbi   0.3 2.0
  16. constrain power 0.1 1.0
  17. : -- give starting values
  18. const = 8e-12 
  19. : const = 1
  20. vbi   = 1.0
  21. power = 0.5
  22. : -- calculate starting capacity for model1
  23. cstart = cmodel1
  24. : -- set parameters 
  25. setlm talk 2
  26. weight = 1/cmeas
  27. : -- start optimization for model1
  28. levmar def cmodel1 cmeas v cfit1 const vbi $
  29. : -- show results
  30. const
  31. vbi
  32. pause
  33. : -- start optimization for model2
  34. levmar def cmodel2 cmeas v cfit2 const vbi power $
  35. view v cstart cmeas cfit1 cfit2 $
  36.