DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦efe755fc9⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »GAFFEL_F«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »GAFFEL_F« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »GAFFEL_F«

Text

0010 // ------------------------- gaffel_func ----------------------
0020 // 
0030 PROC F(X)
0040 IF X=>1 THEN 
0050 F:=(((3*X-2)*X-4)*X+1)*X+5
0060 ELSE 
0070 F:=2*X+1
0080 ENDIF 
0090 ENDPROC F
0100 // 
0110 CLEAR 
0115 PRINT 
0120 PRINT F(-2);
0121 PRINT F(-1);
0122 PRINT F(0);
0123 PRINT F(1);
0124 PRINT F(2);
0125 PRINT F(3)

TextFile

D0010 // ------------------------- gaffel_func ----------------------D▶08◀0020 // ▶08◀▶0e◀0030 PROC F(X)▶0e◀▶12◀0040 IF X=>1 THEN ▶12◀▶1f◀0050 F:=(((3*X-2)*X-4)*X+1)*X+5▶1f◀
0060 ELSE 
\r0070 F:=2*X+1\r▶0b◀0080 ENDIF ▶0b◀▶0e◀0090 ENDPROC F▶0e◀▶08◀0100 // ▶08◀▶0b◀0110 CLEAR ▶0b◀▶0b◀0115 PRINT ▶0b◀▶11◀0120 PRINT F(-2);▶11◀▶11◀0121 PRINT F(-1);▶11◀▶10◀0122 PRINT F(0);▶10◀▶10◀0123 PRINT F(1);▶10◀▶10◀0124 PRINT F(2);▶10◀▶0f◀0125 PRINT F(3)▶0f◀▶00◀▶00◀711 // LSE \f

▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc