Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
saegezahn.cob
Sprache: Unknown
|
identification division.
program-id. saegezahn.
* Autor Jens-D. Doll
* Dies ist eine Schwingung aus ganzen
* Zahlen und der Restklassenarithmetik
* aufgebaut aus mod, abs und sign
author. "JD".
date-written. 27.8.2006.
date-compiled.
data division.
working-storage section.
77 Periode pic 9(4).
77 Amplitude pic 9(4).
77 P4 pic 9(4).
77 n pic 9(4).
77 fn pic 9(4).
77 sig pic S9(4).
77 te pic 9(4).
procedure division.
display "start"
accept Periode
accept Amplitude
perform until n > 2*Periode
if n < Periode/2 then move 1 to sig
else move -1 to sig end-if
compute te=n- Periode/4
compute fn = function mod(te,Amplitude)
call plot using n fn
end-perform
display "done".
end-program saegezahn.
[ Dauer der Verarbeitung: 0.9 Sekunden
(vorverarbeitet)
]
|
|
