home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 764 / Calmo.sis / fco (.txt) < prev   
Encoding:
EPOC OPL Source  |  2000-10-02  |  908 b   |  22 lines
  1.  
  2.  
  3. PROC fco:
  4. rem    f=(x(1)-2.)**2+(-x(2)+4)**2+(2.*x(3)-7)**2
  5. rem    co(1)=x(1)-2.+x(2)
  6. rem    co(2)=x(3)**2-2.
  7. rem    f=100.*x(1)**2+x(2)**2
  8. rem    f=100.*(x(2)-x(1)**2)**2+(1.-x(1)**2)**2+90.*(x(4)-x(3)**2)**2+2.*(1.-x(3))**2+10.1*((x(2)-1.)**2+(x(4)-1.)**2)+19.8*(x(2)-1.)*(x(4)-1.)
  9. rem    f=100.*(x(2)-x(1)**2)**2+(1.-x(1))**2
  10.     f=(x(1)-1.)**2+(x(1)-x(2))**2+(x(2)-x(3))**3+(x(3)-x(4))**4+(x(4)-x(5))**4
  11.     co(1)=x(1)+x(2)**2+x(3)**2-3.*SQR(2)-2.
  12.     co(2)=x(2)-x(3)**2+x(4)-2.*SQR(2)+2.
  13.     co(3)=x(1)*x(5)-2.
  14. rem    f=(x(2)-1.)**2+(x(2)-x(3))**2+(x(3)-x(4))**3+(x(4)-x(5))**4+(x(5)-x(1))**4
  15. rem    co(1)=x(2)+x(3)**2+x(4)**2-3.*SQR(2)-2.
  16. rem    co(2)=x(3)-x(4)**2+x(5)-2.*SQR(2)+2.
  17. rem    co(3)=x(2)*x(1)-2.
  18.  
  19. ENDP
  20.  
  21.  
  22.