home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d9xx / d916 / mathplot.lha / MathPlot / Macros / FixPunkt.mapl < prev    next >
Text File  |  1993-10-04  |  586b  |  26 lines
  1. /* Einfaches Fixpunktverfahren */
  2.  
  3. options results
  4.  
  5. setnumprecision 16
  6. requeststring 'PROMPT "Fixpunktsatz - Funktion" DEFAULT "asin(.3**cos(x))" var FUNC'
  7.  
  8. if(RC == 0) then do
  9.  requeststring 'PROMPT "Startwert" DEFAULT "0" var start'
  10.  if( ~RC) then do
  11.   x = start
  12.   j = 0
  13.   do forever
  14.    do i=1 to 5
  15.     j = j + 1
  16.     evalstring func " x=" x
  17.     x = result
  18.     erg.i = x
  19.    end
  20.    requestresponse 'TITLE "Nach 'j' Durchläufen" 
  21.    PROMPT "'j-4': 'erg.1'*N'j-3': 'erg.2'*N'j-2': 'erg.3'*N'j-1': 'erg.4'*N'j': 'erg.5'" 
  22.    BUTTON "Weiter|ENDE" '
  23.    if(RC == 5) then exit 0
  24.   end
  25.  end
  26. end