WAVES
FILE INFORMATION
FILENAME(S): WAVES
FILE TYPE(S): SEQ
FILE SIZE: 219b
FIRST SEEN: 2025-12-02 00:18:13
APPEARS ON: 1 disk(s)
FILE HASH
b096c7d1b4d9690f748b659584f2add4920b39c8405977d4b30a6c2ffbfce47f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | WAVES | SEQ | Maestro | 5 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 70 72 6F 67 72 61 6D 20 77 61 76 65 73 3B 0D 63 |program waves;.c|
00000010: 6F 6E 73 74 20 66 31 3D 30 2E 35 3B 66 32 3D 30 |onst f1=0.5;f2=0|
00000020: 2E 30 35 3B 61 6D 70 6C 69 74 75 64 65 3D 31 39 |.05;amplitude=19|
00000030: 3B 0D 76 61 72 20 78 31 2C 78 32 2C 79 3A 20 72 |;.var x1,x2,y: r|
00000040: 65 61 6C 3B 0D 62 65 67 69 6E 0D 20 20 78 31 3A |eal;.begin. x1:|
00000050: 3D 30 3B 78 32 3A 3D 30 3B 0D 20 20 72 65 70 65 |=0;x2:=0;. repe|
00000060: 61 74 0D 20 20 20 20 78 31 3A 3D 78 31 2B 66 31 |at. x1:=x1+f1|
00000070: 3B 0D 20 20 20 20 78 32 3A 3D 78 32 2B 66 32 3B |;. x2:=x2+f2;|
00000080: 0D 20 20 20 20 79 3A 3D 73 69 6E 28 78 31 29 2A |. y:=sin(x1)*|
00000090: 73 69 6E 28 78 32 29 2A 61 6D 70 6C 69 74 75 64 |sin(x2)*amplitud|
000000A0: 65 3B 0D 20 20 20 77 72 69 74 65 6C 6E 28 27 78 |e;. writeln('x|
000000B0: 27 3A 72 6F 75 6E 64 28 79 29 2B 61 6D 70 6C 69 |':round(y)+ampli|
000000C0: 74 75 64 65 29 0D 20 20 75 6E 74 69 6C 20 66 61 |tude). until fa|
000000D0: 6C 73 65 0D 65 6E 64 2E 0D 00 00 |lse.end.... |
PROGRAM WAVES;.CONST F1=0.5;F2=0.05;AMPL
ITUDE=19;.VAR X1,X2,Y: REAL;.BEGIN. X1:
=0;X2:=0;. REPEAT. X1:=X1+F1;. X2
:=X2+F2;. Y:=SIN(X1)*SIN(X2)*AMPLITUD
E;. WRITELN('X':ROUND(Y)+AMPLITUDE).
UNTIL FALSE.END....
> CLICK IMAGE PREVIEW FOR FULL MODAL