Sharp PC1360 |
Dokumentation ansehen
Programmspeicher-Image laden
Javascript-Programm
| 10 | "H" CLEAR :LPRINT CHR$ 27+"@":WAIT 0 |
| 20 | USING :COLOR 0,7 |
| 30 | PRINT "Realteil X=f(P) und":PRINT "Imaginaerteil Y=f(P) in" |
| 40 | WAIT :PRINT "Zeile 670ff eingegeben ? |
| 50 | CLS :INPUT "Anfangswert : ";A,"Endwert : ";B,"Schrittweite : ";C |
| 60 | INPUT "Farbe (0-6) : ";F,"Vorschub (cm): ";V:V=V/.02 |
| 70 | N=(B-A)/C |
| 80 | DIM U$(1)*30,K(1,N) |
| 90 | WAIT 0 |
| 100 | PRINT "Achsenbeschriftung :":INPUT "Re-Achse : ";U$(0),"Im-Achse : ";U$(1) |
| 110 | CLS :PRINT "":PRINT " *** BUSY ***" |
| 120 | P=A:GOSUB "FKT3" |
| 130 | D=X:E=X:K(0,0)=X:G=Y:H=Y:K(1,0)=Y |
| 140 | FOR P=A+C TO B STEP C |
| 150 | GOSUB "FKT3" |
| 160 | IF X<D LET D=X |
| 170 | IF X>E LET E=X |
| 180 | IF Y<G LET G=Y |
| 190 | IF Y>H LET H=Y |
| 200 | I=I+1:K(0,I)=X:K(1,I)=Y |
| 210 | NEXT P |
| 220 | BEEP 1:CLS |
| 230 | PRINT "P min = ";A:PRINT "P max = ";B:INPUT "P-Skalenteil : ";DP,"Format : ";Q$ |
| 240 | CLS :PRINT "Re min = ";D:PRINT "Re max = ";E:INPUT "Re-Skalenteil : ";DX,"Format : ";R$ |
| 250 | CLS :PRINT "Im min = ";G:PRINT "Im max = ";H:INPUT "Im-Skalenteil : ";DY,"Format : ";S$ |
| 260 | CLS :PRINT "":PRINT " *** BUSY ***" |
| 270 | LPRINT " "+U$(1)+" -->" |
| 280 | GRAPH |
| 290 | GLCURSOR (10,0):CROTATE 1 |
| 300 | LPRINT "P"+U$(0)+" -->" |
| 310 | GLCURSOR (40,0):SORGN |
| 320 | LLINE (0,0)-(440,0)-(440,-V)-(0,-V)-(0,0) |
| 330 | MX=V/(E-D):MY=440/(H-G) |
| 340 | DX=DX*MX:DY=DY*MY |
| 350 | CSIZE 1:USING S$ |
| 360 | FOR I=DY TO 438 STEP DY |
| 370 | LLINE (I,0)-(I,-5) |
| 380 | LPRINT "P";MDF (I/MY+G) |
| 390 | NEXT I |
| 400 | IF SGN D=SGN E THEN 450 |
| 410 | FOR I=DY TO 438 STEP DY |
| 420 | LLINE (I,D*MX+5)-(I,D*MX-5) |
| 430 | NEXT I |
| 440 | LLINE (440,D*MX)-(0,D*MX) |
| 450 | USING R$ |
| 460 | FOR I=DX TO V-DX+1 STEP DX |
| 470 | LLINE (0,-I)-(5,-I) |
| 480 | LPRINT "P";MDF (I/MX+D) |
| 490 | NEXT I |
| 500 | IF SGN G=SGN H THEN 550 |
| 510 | FOR I=DX TO V-DX STEP DX |
| 520 | LLINE (-G*MY-5,-I)-(-G*MY+5,-I) |
| 530 | NEXT I |
| 540 | LLINE (-G*MY,-V)-(-G*MY,0) |
| 550 | GLCURSOR ((K(1,0)-G)*MY,(D-K(0,0))*MX) |
| 560 | USING Q$ |
| 570 | I=0:COLOR F,7:GOSUB "PAR" |
| 580 | FOR I=1 TO N |
| 590 | LLINE -((K(1,I)-G)*MY,(D-K(0,I))*MX),15,F |
| 600 | M=(I-A)*C/DP |
| 610 | IF M=INT M AND I<>N GOSUB "PAR" |
| 620 | NEXT I |
| 630 | IF K(0,0)=K(0,N) AND K(1,0)=K(1,N) THEN 650 |
| 640 | I=N:GOSUB "PAR" |
| 650 | CLS :GLCURSOR (0,-V-180):LTEXT |
| 660 | END |
| 670 | "FKT3" |
| 680 | X=COS (3*P) |
| 690 | Y=SIN (2*P) |
| 700 | RETURN |
| 710 | "PAR" |
| 720 | LPRINT "P";I*C+A |
| 730 | GLCURSOR ((K(1,I)-G)*MY,(D-K(0,I))*MX) |
| 740 | RETURN |
Dokumentation ansehen
Programmspeicher-Image laden
Javascript-Programm
|
|
Falls diese Seite ohne Navigationsleiste angezeigt wird, aktivieren Sie Javascript oder klicken Sie hier!