DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PNLOGKRV«

└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
    └─ ⟦this⟧ »PNLOGKRV« 

Text

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.