DataMuseum.dk

top - download

    Length: 7584 (0x1da0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PNLINKRV«

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

Text

2590 PROC LINKRV(XIN,XAX,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE)
2600 REM *********************************************************
2610 REM *LINKRV PLOTTER EN KURVE AF FUNKTIONEN ANGIVET I PROCE- *
2620 REM *DUREN FUNK FRA XIN TIL XAX. HVIS XSKA OG/ELLER YSKA ER *
2630 REM *MINDRE END NUL FORETAGES EN AUTOMATISK BESTEMMELSE AF  *
2640 REM *SKALERINGEN OG NULPUNKTET. ELLERS BENYTTES EN SKALERING*
2650 REM *BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT AF XNUL,  *
2660 REM *YNUL. KURVEN PLOTTES MED DEN AF LITY VALGTE LINIETYPE. *
2670 REM *HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN KOORDINAT-   *
2680 REM *AKSER MED TEKSTERNE XTE OG YTE PÅSAT, OG PLOTTERENS    *
2690 REM *NULPUTNKT FASTSÆTTES.                                  *
2700 REM *********************************************************
2710 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL;YMI=9.2E18;YMX=-9.2E18
2720 FOR XK=XIN TO XAX STEP (XAX-XIN)/100
2730 EXEC FUNK(XK,FXK)
2740 IF FXK<=YMI THEN YMI=FXK
2750 IF FXK=>YMX THEN YMX=FXK
2760 NEXT XK
2770 EXEC KOSYS(XIN,XAX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$)
2780 EXEC FUNK(XIN,FXK)
2790 EXEC FLYTABS((XIN*XS+XØ),(FXK*YS+YØ))
2800 FOR XK=XIN TO XAX STEP 10/XS
2810 EXEC FUNK(XK,FXK)
2820 EXEC TEGNABS(LITY,(XK*XS+XØ),(FXK*YS+YØ))
2830 NEXT XK
2840 EXEC PENOP
2850 ENDPROC ;LINKRV.