home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d9xx / d916 / mathplot.lha / MathPlot / Macros / Schar2.mapl < prev    next >
Text File  |  1993-10-04  |  826b  |  43 lines
  1. /* Kurvenscharen */
  2.  
  3. options results
  4.  
  5. requestnumber 'prompt "Nummer der Funktion"'
  6. nr = result-1
  7.  
  8. if(RC ~= 5) then do
  9.  if nr < 1 then nr = 0
  10.  if nr > 10 then nr = 9
  11.  
  12.  requeststring 'prompt "Name der Konstanten"'
  13.  const = result
  14.  if(RC ~= 5) then do
  15.  
  16.   requeststring 'prompt "Startwert"'
  17.   start = result
  18.   if(RC ~= 5) then do
  19.  
  20.    requeststring 'prompt "Endwert"'
  21.    ende = result
  22.    if(RC ~= 5) then do
  23.   
  24.     requestnumber 'prompt "Anzahl Schritte" default 10'
  25.     schritte = result
  26.     if(RC ~= 5) then do
  27.      if schritte <= 0 then schritte = 1
  28.      if schritte ~= 1 then add = (ende - start)/(schritte-1)
  29.  
  30.      wert = start
  31.      do i=1 TO schritte
  32.       setconst 'name='const' definition='wert
  33.       plot nr normal
  34.       wert = wert + add
  35.      end
  36.      exit(0)
  37.     end
  38.    end
  39.   end
  40.  end
  41. end
  42.  
  43. mp_showmessage "Fehler~! OK"