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

⟦54c9aa82d⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »BISECTIO«

Derivation

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »BISECTIO« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »BISECTIO«

Text

0010 // ------------------------- bisection ------------------------
0020 // 
0030 PROC FNF(X1)
0040 FNF:=X1*X1-3*X1-4
0050 ENDPROC FNF
0060 // 
0070 CLEAR 
0080 DIM S$ OF 1
0085 INTEGER I
0090 PRINT "Bisection"
0100 PRINT 
0110 REPEAT 
0120 REPEAT 
0130 INPUT "Indtast intervallets venstre endepunkt:   ":VENSTRE
0140 INPUT "Indtast intervallets højre endepunkt:     ":HØJRE
0150 UNTIL HØJRE-VENSTRE>0
0160 GLVENSTRE:=VENSTRE;GLHØJRE:=HØJRE
0170 FV:=FNF(VENSTRE)
0175 FH:=FNF(HØJRE)
0180 I:=0
0190 IF FV*FH>0 THEN 
0200 PRINT "Funktionen har ikke modsat fortegn i ";VENSTRE;" og ";HØJRE
0210 PRINT 
0220 INPUT "                                                Tast 'Return!":S$
0230 CLEAR 
0240 ENDIF 
0250 UNTIL FV*FH<=0
0260 INPUT "Indtast den nøjagtighed hvormed roden ønskes bestemt:   ":EPS
0270 REPEAT 
0280 I:=I+1
0290 MIDTPUNKT:=(HØJRE+VENSTRE)/2
0300 FM:=FNF(MIDTPUNKT)
0310 IF FV*FM<=0 THEN 
0320 HØJRE:=MIDTPUNKT
0330 FH:=FM
0340 ELSE 
0350 VENSTRE:=MIDTPUNKT
0360 FV:=FM
0370 ENDIF 
0380 UNTIL HØJRE-VENSTRE<2*EPS
0390 ROD:=(HØJRE+VENSTRE)/2
0400 PRINT 
0410 PRINT "Efter ";I;" halveringer af intervallet fra ";GLVENSTRE;" til ";
0420 PRINT GLHØJRE;" er roden med ";
0430 PRINT "en nøjagtighed på ";EPS;" fundet til:   ";ROD

TextFile

D0010 // ------------------------- bisection ------------------------D▶08◀0020 // ▶08◀▶11◀0030 PROC FNF(X1)▶11◀▶16◀0040 FNF:=X1*X1-3*X1-4▶16◀▶10◀0050 ENDPROC FNF▶10◀▶08◀0060 // ▶08◀▶0b◀0070 CLEAR ▶0b◀▶10◀0080 DIM S$ OF 1▶10◀▶0e◀0085 INTEGER I▶0e◀▶16◀0090 PRINT "Bisection"▶16◀▶0b◀0100 PRINT ▶0b◀\f

0110 REPEAT \f

\f

0120 REPEAT \f

?0130 INPUT "Indtast intervallets venstre endepunkt:   ":VENSTRE?=0140 INPUT "Indtast intervallets højre endepunkt:     ":HØJRE=▶1a◀0150 UNTIL HØJRE-VENSTRE>0▶1a◀&0160 GLVENSTRE:=VENSTRE;GLHØJRE:=HØJRE&▶15◀0170 FV:=FNF(VENSTRE)▶15◀▶13◀0175 FH:=FNF(HØJRE)▶13◀	0180 I:=0	▶15◀0190 IF FV*FH>0 THEN ▶15◀G0200 PRINT "Funktionen har ikke modsat fortegn i ";VENSTRE;" og ";HØJREG▶0b◀0210 PRINT ▶0b◀M0220 INPUT "                                                Tast 'Return!":S$M▶0b◀0230 CLEAR ▶0b◀▶0b◀0240 ENDIF ▶0b◀▶13◀0250 UNTIL FV*FH<=0▶13◀I0260 INPUT "Indtast den nøjagtighed hvormed roden ønskes bestemt:   ":EPSI\f

0270 REPEAT \f

▶0b◀0280 I:=I+1▶0b◀!0290 MIDTPUNKT:=(HØJRE+VENSTRE)/2!▶17◀0300 FM:=FNF(MIDTPUNKT)▶17◀▶16◀0310 IF FV*FM<=0 THEN ▶16◀▶15◀0320 HØJRE:=MIDTPUNKT▶15◀▶0b◀0330 FH:=FM▶0b◀
0340 ELSE 
▶17◀0350 VENSTRE:=MIDTPUNKT▶17◀▶0b◀0360 FV:=FM▶0b◀▶0b◀0370 ENDIF ▶0b◀▶1e◀0380 UNTIL HØJRE-VENSTRE<2*EPS▶1e◀▶1b◀0390 ROD:=(HØJRE+VENSTRE)/2▶1b◀▶0b◀0400 PRINT ▶0b◀K0410 PRINT "Efter ";I;" halveringer af intervallet fra ";GLVENSTRE;" til ";K$0420 PRINT GLHØJRE;" er roden med ";$90430 PRINT "en nøjagtighed på ";EPS;" fundet til:   ";ROD9▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc