|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »PNLOGKRV.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNLOGKRV.K«
2860 PROC LOGKRV(XIN,XAX,XSKA,YSKA,XNUL,YNUL,TYYP,LITY,AKSR,XTE,YTE) 2870 REM ********************************************************* 2880 REM *LOGKRV PLOTTER EN KURVE AF FUNKTIONEN ANGIVET I PROCE- * 2890 REM *DUREN FUNK FRA XIN TIL XAX. HVIS XSKA OG/ELLER YSKA ER * 2900 REM *MINDRE END NUL FORETAGES EN AUTOMATISK BESTEMMELSE AF * 2910 REM *SKALERINGEN OG NULPUNKTET. ELLERS BENYTTES EN SKALERING* 2920 REM *BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT AF XNUL, * 2930 REM *YNUL. KURVEN PLOTTES MED DEN AF LITY VALGTE LINIETYPE. * 2940 REM *AFBILDNINGSFORMEN BESTEMMES AF TYYP. HVIS TYYP ER LIG * 2950 REM *MED "XLOG" ER 1. AKSEN LOGARITMISK, HVIS TYYP ER LIG * 2960 REM *MED "YLOG" ER 2. AKSEN LOGARITMISK, OG HVIS TYYP ER LIG* 2970 REM *MED "DLOG" FÅS EN DOBBELTLOGARITMISK AFBILDNING. * 2980 REM *HVIS AKSR ER FORSKELIG FRA NUL UDTEGNES DESUDEN KOORDI-* 2990 REM *NATAKSER MED TEKSTERNE XTE OG YTE PÅSAT. * 3000 REM ********************************************************* 3010 XN=XIN;XA=XAX;XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL;YMI=9.2E18;YMX=-9.2E18 3020 FOR XK=XIN TO XAX STEP (XAX-XIN)/100 3030 EXEC FUNK(XK,FXK) 3040 IF FXK<=YMI THEN YMI=FXK 3050 IF FXK=>YMX THEN YMX=FXK 3060 NEXT XK 3070 IF TYYP$="YLOG" THEN 3080 XT$="LIN";YT$="LOG";YMI=LOG(YMI);YMX=LOG(YMX) 3090 ELSE 3100 IF TYYP$="DLOG" THEN 3110 XT$="LOG";YT$="LOG";XN=LOG(XN);XA=LOG(XA);YMI=LOG(YMI);YMX=LOG(YMX) 3120 ELSE 3130 XT$="LOG";YT$="LIN";XN=LOG(XN);XA=LOG(XA) 3140 ENDIF 3150 ENDIF 3160 EXEC KOSYS(XN,XA,YMI,YMX,XS,YS,XØ,YØ,XT$,YT$,AKSR,XTE$,YTE$) 3170 EXEC FUNK(XIN,FXK) 3180 IF YT$="LOG" THEN FXK=LOG(FXK) 3190 EXEC FLYTABS((XN*XS+XØ),(FXK*YS+YØ)) 3200 FOR XK=XN TO XA STEP 10/XS 3210 IF XT$="LIN" THEN 3220 EXEC FUNK(XK,FXK) 3230 ELSE 3240 XKK=10**XK 3250 EXEC FUNK(XKK,FXK) 3260 ENDIF 3270 IF YT$="LOG" THEN FXK=LOG(FXK) 3280 EXEC TEGNABS(LITY,(XK*XS+XØ),(FXK*YS+YØ)) 3290 NEXT XK 3300 EXEC PENOP 3310 ENDPROC ;LOGKRV.
0x000…046 Line {l1=0x44, l2=»2860 PROC LOGKRV(XIN,XAX,XSKA,YSKA,XNUL,YNUL,TYYP,LITY,AKSR,XTE,YTE)«, l3=0x44}
0x046…08a Line {l1=0x42, l2=»2870 REM *********************************************************«, l3=0x42}
0x08a…0ce Line {l1=0x42, l2=»2880 REM *LOGKRV PLOTTER EN KURVE AF FUNKTIONEN ANGIVET I PROCE- *«, l3=0x42}
0x0ce…112 Line {l1=0x42, l2=»2890 REM *DUREN FUNK FRA XIN TIL XAX. HVIS XSKA OG/ELLER YSKA ER *«, l3=0x42}
0x112…156 Line {l1=0x42, l2=»2900 REM *MINDRE END NUL FORETAGES EN AUTOMATISK BESTEMMELSE AF *«, l3=0x42}
0x156…19a Line {l1=0x42, l2=»2910 REM *SKALERINGEN OG NULPUNKTET. ELLERS BENYTTES EN SKALERING*«, l3=0x42}
0x19a…1de Line {l1=0x42, l2=»2920 REM *BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT AF XNUL, *«, l3=0x42}
0x1de…222 Line {l1=0x42, l2=»2930 REM *YNUL. KURVEN PLOTTES MED DEN AF LITY VALGTE LINIETYPE. *«, l3=0x42}
0x222…266 Line {l1=0x42, l2=»2940 REM *AFBILDNINGSFORMEN BESTEMMES AF TYYP. HVIS TYYP ER LIG *«, l3=0x42}
0x266…2aa Line {l1=0x42, l2=»2950 REM *MED "XLOG" ER 1. AKSEN LOGARITMISK, HVIS TYYP ER LIG *«, l3=0x42}
0x2aa…2ee Line {l1=0x42, l2=»2960 REM *MED "YLOG" ER 2. AKSEN LOGARITMISK, OG HVIS TYYP ER LIG*«, l3=0x42}
0x2ee…332 Line {l1=0x42, l2=»2970 REM *MED "DLOG" FÅS EN DOBBELTLOGARITMISK AFBILDNING. *«, l3=0x42}
0x332…376 Line {l1=0x42, l2=»2980 REM *HVIS AKSR ER FORSKELIG FRA NUL UDTEGNES DESUDEN KOORDI-*«, l3=0x42}
0x376…3ba Line {l1=0x42, l2=»2990 REM *NATAKSER MED TEKSTERNE XTE OG YTE PÅSAT. *«, l3=0x42}
0x3ba…3fe Line {l1=0x42, l2=»3000 REM *********************************************************«, l3=0x42}
0x3fe…449 Line {l1=0x49, l2=»3010 XN=XIN;XA=XAX;XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL;YMI=9.2E18;YMX=-9.2E18«, l3=0x49}
0x449…474 Line {l1=0x29, l2=»3020 FOR XK=XIN TO XAX STEP (XAX-XIN)/100«, l3=0x29}
0x474…48c Line {l1=0x16, l2=»3030 EXEC FUNK(XK,FXK)«, l3=0x16}
0x48c…4ab Line {l1=0x1d, l2=»3040 IF FXK<=YMI THEN YMI=FXK«, l3=0x1d}
0x4ab…4ca Line {l1=0x1d, l2=»3050 IF FXK=>YMX THEN YMX=FXK«, l3=0x1d}
0x4ca…4d8 Line {l1=0x0c, l2=»3060 NEXT XK«, l3=0x0c}
0x4d8…4f4 Line {l1=0x1a, l2=»3070 IF TYYP$="YLOG" THEN «, l3=0x1a}
0x4f4…528 Line {l1=0x32, l2=»3080 XT$="LIN";YT$="LOG";YMI=LOG(YMI);YMX=LOG(YMX)«, l3=0x32}
0x528…534 Line {l1=0x0a, l2=»3090 ELSE «, l3=0x0a}
0x534…550 Line {l1=0x1a, l2=»3100 IF TYYP$="DLOG" THEN «, l3=0x1a}
0x550…59a Line {l1=0x48, l2=»3110 XT$="LOG";YT$="LOG";XN=LOG(XN);XA=LOG(XA);YMI=LOG(YMI);YMX=LOG(YMX)«, l3=0x48}
0x59a…5a6 Line {l1=0x0a, l2=»3120 ELSE «, l3=0x0a}
0x5a6…5d6 Line {l1=0x2e, l2=»3130 XT$="LOG";YT$="LIN";XN=LOG(XN);XA=LOG(XA)«, l3=0x2e}
0x5d6…5e3 Line {l1=0x0b, l2=»3140 ENDIF «, l3=0x0b}
0x5e3…5f0 Line {l1=0x0b, l2=»3150 ENDIF «, l3=0x0b}
0x5f0…633 Line {l1=0x41, l2=»3160 EXEC KOSYS(XN,XA,YMI,YMX,XS,YS,XØ,YØ,XT$,YT$,AKSR,XTE$,YTE$)«, l3=0x41}
0x633…64c Line {l1=0x17, l2=»3170 EXEC FUNK(XIN,FXK)«, l3=0x17}
0x64c…671 Line {l1=0x23, l2=»3180 IF YT$="LOG" THEN FXK=LOG(FXK)«, l3=0x23}
0x671…69c Line {l1=0x29, l2=»3190 EXEC FLYTABS((XN*XS+XØ),(FXK*YS+YØ))«, l3=0x29}
0x69c…6bd Line {l1=0x1f, l2=»3200 FOR XK=XN TO XA STEP 10/XS«, l3=0x1f}
0x6bd…6d6 Line {l1=0x17, l2=»3210 IF XT$="LIN" THEN «, l3=0x17}
0x6d6…6ee Line {l1=0x16, l2=»3220 EXEC FUNK(XK,FXK)«, l3=0x16}
0x6ee…6fa Line {l1=0x0a, l2=»3230 ELSE «, l3=0x0a}
0x6fa…70b Line {l1=0x0f, l2=»3240 XKK=10**XK«, l3=0x0f}
0x70b…724 Line {l1=0x17, l2=»3250 EXEC FUNK(XKK,FXK)«, l3=0x17}
0x724…731 Line {l1=0x0b, l2=»3260 ENDIF «, l3=0x0b}
0x731…756 Line {l1=0x23, l2=»3270 IF YT$="LOG" THEN FXK=LOG(FXK)«, l3=0x23}
0x756…786 Line {l1=0x2e, l2=»3280 EXEC TEGNABS(LITY,(XK*XS+XØ),(FXK*YS+YØ))«, l3=0x2e}
0x786…794 Line {l1=0x0c, l2=»3290 NEXT XK«, l3=0x0c}
0x794…7a5 Line {l1=0x0f, l2=»3300 EXEC PENOP«, l3=0x0f}
0x7a5…7bc Line {l1=0x15, l2=»3310 ENDPROC ;LOGKRV.«, l3=0x15}
0x7bc…7c0 00 00 20 45 ┆ E┆
0x7c0…7e0 4e 44 50 52 4f 43 20 3b 4c 4f 47 4b 52 56 2e 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆NDPROC ;LOGKRV. ┆
0x7e0…800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xe…]