MATEMATIKPROGRAM
FILE INFORMATION
FILENAME(S): MATEMATIKPROGRAM
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-11-30 19:47:34
APPEARS ON: 1 disk(s)
FILE HASH
40c963e9a6809332332bc4234e01b3db50ca3bef49a3f48984378ef4934646ee
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 42 2 | MATEMATIKPROGRAM | PRG | Curtcool, Frank | 24 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 8F 2A 2A 2A 43 4F 50 59 52 49 |..'....***COPYRI|
00000010: 47 48 54 20 4A 55 53 54 20 52 2E 2D 44 41 54 41 |GHT JUST R.-DATA|
00000020: 20 41 50 53 2A 2A 2A 00 30 08 02 00 41 51 B2 31 | APS***.0...AQ.1|
00000030: 00 4E 08 5A 00 97 35 33 32 38 30 2C 32 3A 97 35 |.N.Z..53280,2:.5|
00000040: 33 32 38 31 2C 35 3A 99 C7 28 31 34 34 29 00 86 |3281,5:..(144)..|
00000050: 08 64 00 4F 24 B2 22 93 11 12 20 20 20 92 20 4D |.d.O$."... . M|
00000060: 41 54 45 4D 41 54 49 4B 4D 4F 44 55 4C 20 12 20 |ATEMATIKMODUL . |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 92 22 00 96 08 6E 00 99 4F 24 3A A0 | ."...n..O$:.|
00000090: 39 3A 9F 39 2C 30 00 C6 08 78 00 99 22 11 11 11 |9:.9,0...x.."...|
000000A0: 11 11 11 11 11 11 11 11 11 11 11 20 D5 C9 22 3A |........... ..":|
000000B0: 99 22 20 CA 52 20 43 4F 50 59 52 49 47 48 54 20 |." .R COPYRIGHT |
000000C0: 20 20 31 39 38 33 00 FA 08 82 00 99 22 20 20 20 | 1983......" |
000000D0: 20 4A 55 53 54 20 52 2E 2D 44 41 54 41 20 41 50 | JUST R.-DATA AP|
000000E0: 53 22 3A 99 22 20 20 20 20 44 4B 20 20 38 37 30 |S":." DK 870|
000000F0: 30 20 48 4F 52 53 45 4E 53 22 00 0D 09 C8 00 A1 |0 HORSENS"......|
00000100: 41 24 3A 8B 41 24 B2 22 22 A7 32 30 30 00 33 09 |A$:.A$."".200.3.|
00000110: D2 00 52 24 B2 22 91 91 20 20 20 20 20 20 20 20 |..R$.".. |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 91 22 00 67 09 DC 00 96 A5 54 33 28 58 29 B2 | .".g.....T3(X).|
00000140: B5 28 58 AC 31 45 33 AA 2E 35 29 AD 31 45 33 3A |.(X.1E3..5).1E3:|
00000150: 96 A5 54 36 28 58 29 B2 B5 28 58 AC 31 45 36 AA |..T6(X)..(X.1E6.|
00000160: 2E 35 29 AD 31 45 36 00 AC 09 E6 00 8B 46 4C B2 |.5).1E6......FL.|
00000170: 30 A7 86 58 28 32 35 29 2C 59 28 31 35 29 2C 41 |0..X(25),Y(15),A|
00000180: 28 34 30 2C 34 31 29 2C 42 28 34 30 2C 34 31 29 |(40,41),B(40,41)|
00000190: 2C 50 28 33 30 29 2C 41 45 28 31 36 29 2C 42 31 |,P(30),AE(16),B1|
000001A0: 28 31 36 29 3A 99 3A 46 4C B2 41 51 00 D9 09 2C |(16):.:FL.AQ...,|
000001B0: 01 99 4F 24 3A 99 22 11 12 20 31 20 92 20 4C 30 |..O$:.".. 1 . L0|
000001C0: 53 4E 49 4E 47 20 41 46 20 32 2E 20 47 52 41 44 |SNING AF 2. GRAD|
000001D0: 53 20 4C 49 47 4E 49 4E 47 00 02 0A 36 01 99 22 |S LIGNING...6.."|
000001E0: 11 12 20 32 20 92 20 4C 30 53 4E 49 4E 47 20 41 |.. 2 . L0SNING A|
000001F0: 46 20 33 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 |F 3. GRADS LIGNI|
00000200: 4E 47 00 4D 0A 40 01 99 22 11 12 20 33 20 92 20 |NG.M.@..".. 3 . |
00000210: 4C 30 53 4E 49 4E 47 20 41 46 20 4E 20 4C 49 47 |L0SNING AF N LIG|
00000220: 4E 49 4E 47 45 52 20 4D 45 44 20 20 20 20 20 20 |NINGER MED |
00000230: 20 20 20 20 20 20 20 20 4E 20 55 42 45 4B 45 4E | N UBEKEN|
00000240: 44 54 45 20 28 4D 41 58 2E 20 34 30 29 00 6A 0A |DTE (MAX. 40).j.|
00000250: 4A 01 99 22 11 12 20 34 20 92 20 4B 55 52 56 45 |J..".. 4 . KURVE|
00000260: 54 49 4C 50 41 53 4E 49 4E 47 00 7C 0A 4F 01 99 |TILPASNING.|.O..|
00000270: 22 11 12 20 35 20 92 20 53 4C 55 54 00 97 0A 54 |".. 5 . SLUT...T|
00000280: 01 99 22 11 12 20 20 20 92 20 53 56 41 52 20 4D |..".. . SVAR M|
00000290: 45 44 20 54 41 4C 22 00 AA 0A 56 01 A1 53 24 3A |ED TAL"...V..S$:|
000002A0: 8B 53 24 B2 22 22 A7 33 34 32 00 CB 0A 5E 01 53 |.S$."".342...^.S|
000002B0: 56 B2 C5 28 53 24 29 3A 8B 53 56 B3 31 B0 53 56 |V..(S$):.SV.1.SV|
000002C0: B1 35 A7 99 52 24 3A 89 33 34 30 00 D7 0A 68 01 |.5..R$:.340...h.|
000002D0: 8B 53 56 B2 35 A7 A2 00 F2 0A 72 01 91 53 56 89 |.SV.5.....r..SV.|
000002E0: 33 30 30 30 2C 34 30 30 30 2C 35 38 30 2C 31 39 |3000,4000,580,19|
000002F0: 37 30 00 07 0B 44 02 8F 2A 2A 4E 20 4C 49 47 4E |70...D..**N LIGN|
00000300: 49 4E 47 45 52 2A 2A 00 43 0B 4E 02 4F 24 B2 22 |INGER**.C.N.O$."|
00000310: 93 11 12 20 20 20 92 20 4E 20 4C 49 47 4E 49 4E |... . N LIGNIN|
00000320: 47 45 52 20 12 20 20 20 20 20 20 20 20 20 20 20 |GER . |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 3A | .":|
00000340: 99 4F 24 00 72 0B 58 02 99 22 11 4C 30 53 4E 49 |.O$.r.X..".L0SNI|
00000350: 4E 47 53 54 49 44 45 4E 20 56 4F 4B 53 45 52 20 |NGSTIDEN VOKSER |
00000360: 4E 41 54 55 52 4C 49 47 56 49 53 20 4D 45 44 20 |NATURLIGVIS MED |
00000370: 4E 22 00 A0 0B 62 02 99 22 4F 47 20 45 52 20 54 |N"...b.."OG ER T|
00000380: 59 50 49 53 4B 20 46 4F 52 20 4E 3D 31 30 20 31 |YPISK FOR N=10 1|
00000390: 34 20 53 45 4B 2E 2C 46 4F 52 20 4E 3D 32 30 22 |4 SEK.,FOR N=20"|
000003A0: 00 C4 0B 6C 02 99 22 31 2E 35 20 4D 49 4E 2E 20 |...l.."1.5 MIN. |
000003B0: 4F 47 20 46 4F 52 20 4E 3D 33 30 20 34 2E 35 20 |OG FOR N=30 4.5 |
000003C0: 4D 49 4E 2E 00 F1 0B 76 02 99 22 11 41 4E 54 41 |MIN....v..".ANTA|
000003D0: 4C 20 4C 49 47 4E 49 4E 47 45 52 3A 20 22 3B 3A |L LIGNINGER: ";:|
000003E0: 84 39 2C 58 24 3A 4E B2 C5 28 58 24 29 3A 99 3A |.9,X$:N..(X$):.:|
000003F0: 99 00 03 0C 7B 02 8B 4E B3 32 A7 99 52 24 3A 89 |....{..N.2..R$:.|
00000400: 36 33 30 00 2E 0C 80 02 8F 2A 2A 2A 2A 2A 2A 2A |630......*******|
00000410: 2A 44 49 4D 41 28 4E 2C 4E 2B 31 29 3A 44 49 4D |*DIMA(N,N+1):DIM|
00000420: 42 28 4E 2C 4E 2B 31 29 3A 50 52 49 4E 54 00 42 |B(N,N+1):PRINT.B|
00000430: 0C 85 02 8B 41 51 B3 B1 31 A7 A2 3A 81 54 B2 31 |....AQ..1..:.T.1|
00000440: A4 4E 00 5D 0C 8A 02 81 52 B2 31 A4 4E 3A 99 52 |.N.]....R.1.N:.R|
00000450: 3B 22 9D 2E 4C 49 47 4E 49 4E 47 3A 22 00 81 0C |;"..LIGNING:"...|
00000460: 94 02 81 53 B2 31 A4 4E 3A 99 22 4B 4F 45 46 46 |...S.1.N:."KOEFF|
00000470: 49 43 49 45 4E 54 20 54 49 4C 20 58 28 22 3B 53 |ICIENT TIL X(";S|
00000480: 3B 00 B0 0C 9E 02 99 22 29 3D 22 3B 3A 84 39 2C |;......")=";:.9,|
00000490: 49 4E 24 3A 99 3A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |IN$:.:.*********|
000004A0: 2A 2A 20 2C 41 28 52 2C 53 29 3A 50 52 49 4E 54 |** ,A(R,S):PRINT|
000004B0: 00 C2 0C A3 02 41 28 52 2C 53 29 B2 C5 28 49 4E |.....A(R,S)..(IN|
000004C0: 24 29 00 C9 0C A8 02 82 53 00 02 0D B2 02 99 22 |$)......S......"|
000004D0: 48 30 4A 52 45 53 49 44 45 4E 20 20 20 20 20 20 |H0JRESIDEN |
000004E0: 20 20 20 20 20 20 3D 22 3B 3A 84 39 2C 49 4E 24 | =";:.9,IN$|
000004F0: 3A 41 28 52 2C 4E AA 31 29 B2 C5 28 49 4E 24 29 |:A(R,N.1)..(IN$)|
00000500: 3A 99 00 0D 0D BC 02 99 4F 24 3A 82 52 00 33 0D |:.......O$:.R.3.|
00000510: C6 02 99 22 4B 4F 4E 54 52 4F 4C 20 2D 20 4B 4F |..."KONTROL - KO|
00000520: 45 46 46 49 43 49 45 4E 54 4D 41 54 52 49 43 45 |EFFICIENTMATRICE|
00000530: 4E 3A 22 00 40 0D D0 02 81 52 B2 31 A4 4E 3A 99 |N:".@....R.1.N:.|
00000540: 00 5B 0D DA 02 81 53 B2 31 A4 4E AA 31 3A 99 41 |.[....S.1.N.1:.A|
00000550: 28 52 2C 53 29 3B 3A 82 53 2C 52 00 7F 0D E4 02 |(R,S);:.S,R.....|
00000560: 99 3A 99 3A 99 22 4B 4F 52 52 45 4B 54 20 28 4A |.:.:."KORREKT (J|
00000570: 2F 4E 29 3A 20 22 3B 3A 84 39 2C 41 24 3A 99 00 |/N): ";:.9,A$:..|
00000580: 8F 0D EE 02 8B 41 24 B2 22 4A 22 89 38 32 30 00 |.....A$."J".820.|
00000590: A0 0D F8 02 8B 41 24 B3 B1 22 4E 22 89 37 34 30 |.....A$.."N".740|
000005A0: 00 D5 0D 02 03 99 3A 99 22 4E 52 2E 50 5D 20 4C |......:."NR.P] L|
000005B0: 49 47 4E 49 4E 47 20 44 45 52 20 52 45 54 54 45 |IGNING DER RETTE|
000005C0: 53 3A 20 22 3B 3A 84 39 2C 58 24 3A 51 B2 C5 28 |S: ";:.9,X$:Q..(|
000005D0: 58 24 29 3A 99 00 E7 0D 07 03 8B 51 B1 4E A7 99 |X$):.......Q.N..|
000005E0: 52 24 3A 89 37 37 30 00 0D 0E 0C 03 99 3A 99 22 |R$:.770......:."|
000005F0: 49 22 3B 51 3B 22 4C 49 47 4E 49 4E 47 20 45 52 |I";Q;"LIGNING ER|
00000600: 20 4B 4F 45 46 46 2E 20 4E 55 22 3A 99 00 2E 0E | KOEFF. NU":....|
00000610: 16 03 81 20 53 B2 31 20 A4 20 4E AA 31 3A 99 41 |... S.1 . N.1:.A|
00000620: 28 51 2C 53 29 3B 3A 82 20 53 3A 99 3A 99 00 60 |(Q,S);:. S:.:..`|
00000630: 0E 20 03 99 22 48 56 49 4C 4B 45 54 20 4E 52 2E |. .."HVILKET NR.|
00000640: 20 4B 4F 45 46 46 49 43 49 45 4E 54 20 52 45 54 | KOEFFICIENT RET|
00000650: 54 45 53 3A 20 22 3B 3A 84 39 2C 55 3A 99 3A 99 |TES: ";:.9,U:.:.|
00000660: 00 85 0E 2A 03 99 22 4E 59 20 56 5B 52 44 49 3A |...*.."NY V[RDI:|
00000670: 20 22 3B 3A 84 39 2C 41 28 51 2C 55 29 3A 99 3A | ";:.9,A(Q,U):.:|
00000680: 89 20 37 31 30 00 A3 0E 34 03 99 4F 24 3A 81 20 |. 710...4..O$:. |
00000690: 52 B2 31 20 A4 20 4E 3A 81 20 53 B2 31 20 A4 20 |R.1 . N:. S.1 . |
000006A0: 4E AA 31 00 BD 0E 3E 03 42 28 52 2C 53 29 B2 41 |N.1...>.B(R,S).A|
000006B0: 28 52 2C 53 29 3A 82 20 53 3A 82 20 52 00 C7 0E |(R,S):. S:. R...|
000006C0: 48 03 8D 32 37 36 30 00 DA 0E 52 03 99 3A 99 22 |H..2760...R..:."|
000006D0: 52 45 53 55 4C 54 41 54 3A 22 00 09 0F 5C 03 81 |RESULTAT:"...\..|
000006E0: 49 B2 31 A4 4E 3A 99 22 58 28 22 49 22 29 3D 22 |I.1.N:."X("I")="|
000006F0: 41 28 49 2C 4E AA 31 29 3A 82 49 3A 99 3A 8B 50 |A(I,N.1):.I:.:.P|
00000700: 24 B2 22 4A 22 A7 39 31 30 00 3E 0F 66 03 99 22 |$."J".910.>.f.."|
00000710: 30 4E 53 4B 45 53 20 4B 4F 4E 54 52 4F 4C 20 56 |0NSKES KONTROL V|
00000720: 2E 20 49 4E 44 53 5B 54 4E 49 4E 47 20 28 4A 2F |. INDS[TNING (J/|
00000730: 4E 29 3A 20 22 3B 3A 84 39 2C 41 24 3A 99 00 51 |N): ";:.9,A$:..Q|
00000740: 0F 70 03 8B 41 24 B2 22 4A 22 A7 99 3A 89 39 31 |.p..A$."J"..:.91|
00000750: 30 00 62 0F 7A 03 8B 41 24 B3 B1 22 4E 22 89 38 |0.b.z..A$.."N".8|
00000760: 37 30 00 6B 0F 84 03 89 39 37 30 00 79 0F 8E 03 |70.k....970.y...|
00000770: 81 20 52 B2 31 20 A4 20 4E 00 A3 0F 98 03 99 52 |. R.1 . N......R|
00000780: 22 4C 49 47 4E 2E 20 4E 55 56 2E 20 48 30 4A 52 |"LIGN. NUV. H0JR|
00000790: 45 53 49 44 45 3D 22 42 28 52 2C 4E AA 31 29 3A |ESIDE="B(R,N.1):|
000007A0: 48 B2 30 00 B1 0F A2 03 81 20 53 B2 31 20 A4 20 |H.0...... S.1 . |
000007B0: 4E 00 CD 0F AC 03 48 B2 48 AA 42 28 52 2C 53 29 |N.....H.H.B(R,S)|
000007C0: AC 41 28 53 2C 4E AA 31 29 3A 82 20 53 00 F1 0F |.A(S,N.1):. S...|
000007D0: B6 03 99 A6 C3 28 C7 28 52 29 29 AA 37 29 22 20 |.....(.(R)).7)" |
000007E0: 56 45 44 20 49 4E 44 53 5B 54 4E 49 4E 47 3D 22 |VED INDS[TNING="|
000007F0: 48 00 1B 10 C0 03 82 20 52 3A 8F 2A 2A 49 46 50 |H...... R:.**IFP|
00000800: 24 3D 22 4A 22 54 48 45 4E 50 52 49 4E 54 23 31 |$="J"THENPRINT#1|
00000810: 3A 43 4C 4F 53 45 31 3A 45 4E 44 00 5A 10 CA 03 |:CLOSE1:END.Z...|
00000820: 8F 2A 2A 2A 2A 50 52 49 4E 54 22 11 55 44 53 4B |.****PRINT".UDSK|
00000830: 52 49 46 54 20 50 5D 20 50 52 49 4E 54 45 52 20 |RIFT P] PRINTER |
00000840: 28 4A 2F 4E 29 3A 20 22 3B 3A 49 4E 50 55 54 23 |(J/N): ";:INPUT#|
00000850: 39 2C 50 24 3A 50 52 49 4E 54 00 83 10 D4 03 8F |9,P$:PRINT......|
00000860: 2A 2A 49 46 50 24 3D 22 4A 22 54 48 45 4E 4F 50 |**IFP$="J"THENOP|
00000870: 45 4E 31 2C 34 3A 43 4D 44 31 3A 47 4F 54 4F 31 |EN1,4:CMD1:GOTO1|
00000880: 30 31 30 00 9D 10 D9 03 8F 2A 2A 2A 2A 49 46 50 |010......****IFP|
00000890: 24 3C 3E 22 4E 22 47 4F 54 4F 39 37 30 00 B0 10 |$<>"N"GOTO970...|
000008A0: DE 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 39 30 |...A$:.A$."".990|
000008B0: 00 B8 10 E8 03 89 39 30 00 E6 10 F2 03 99 22 4C |......90......"L|
000008C0: 30 53 4E 49 4E 47 20 41 46 20 4E 20 4C 49 47 4E |0SNING AF N LIGN|
000008D0: 49 4E 47 45 52 20 4D 45 44 20 4E 20 55 42 45 4B |INGER MED N UBEK|
000008E0: 45 4E 44 54 45 22 00 0F 11 FC 03 99 22 44 45 4E |ENDTE"......"DEN|
000008F0: 20 49 4E 44 54 41 53 54 45 44 45 20 4B 4F 45 46 | INDTASTEDE KOEF|
00000900: 46 49 43 49 45 4E 54 4D 41 54 52 49 58 3A 22 00 |FICIENTMATRIX:".|
00000910: 1C 11 06 04 81 52 B2 31 A4 4E 3A 99 00 37 11 10 |.....R.1.N:..7..|
00000920: 04 81 53 B2 31 A4 4E AA 31 3A 99 42 28 52 2C 53 |..S.1.N.1:.B(R,S|
00000930: 29 3B 3A 82 53 2C 52 00 45 11 1A 04 8B 41 51 B2 |);:.S,R.E....AQ.|
00000940: 31 A7 38 35 30 00 81 11 B2 07 4F 24 B2 22 93 11 |1.850.....O$."..|
00000950: 12 20 20 20 92 20 4B 55 52 56 45 54 49 4C 50 41 |. . KURVETILPA|
00000960: 53 4E 49 4E 47 20 12 20 20 20 20 20 20 20 20 20 |SNING . |
00000970: 20 20 20 20 20 20 20 20 20 20 20 92 22 3A 99 4F | .":.O|
00000980: 24 00 B0 11 BC 07 99 22 46 4F 52 20 44 45 20 47 |$......"FOR DE G|
00000990: 49 56 4E 45 20 50 55 4E 4B 54 45 52 20 46 49 4E |IVNE PUNKTER FIN|
000009A0: 44 45 53 20 44 45 54 20 50 4F 4C 59 4E 4F 2D 22 |DES DET POLYNO-"|
000009B0: 00 DF 11 C6 07 99 22 4D 49 55 4D 20 41 46 20 4E |......"MIUM AF N|
000009C0: 27 54 45 20 47 52 41 44 2C 20 44 45 52 20 45 46 |'TE GRAD, DER EF|
000009D0: 54 45 52 20 44 45 20 4D 49 4E 44 53 54 45 22 00 |TER DE MINDSTE".|
000009E0: 0C 12 D0 07 99 22 4B 56 41 44 52 41 54 45 52 53 |....."KVADRATERS|
000009F0: 20 4D 45 54 4F 44 45 20 42 45 44 53 54 20 54 49 | METODE BEDST TI|
00000A00: 4C 50 41 53 53 45 52 20 53 49 47 22 00 1E 12 DA |LPASSER SIG"....|
00000A10: 07 99 22 50 55 4E 4B 54 45 52 4E 45 2E 22 00 4A |.."PUNKTERNE.".J|
00000A20: 12 E4 07 99 22 4E 20 41 4E 54 41 47 45 52 20 56 |...."N ANTAGER V|
00000A30: 5B 52 44 49 45 52 4E 45 20 32 2C 33 2C 34 20 2D |[RDIERNE 2,3,4 -|
00000A40: 20 2D 20 4F 50 20 54 49 4C 22 00 67 12 EE 07 99 | - OP TIL".g....|
00000A50: 22 45 4E 20 56 41 4C 47 54 20 30 56 52 45 20 47 |"EN VALGT 0VRE G|
00000A60: 52 5B 4E 53 45 2E 22 00 96 12 F8 07 99 3A 99 22 |R[NSE."......:."|
00000A70: 41 4C 54 45 52 4E 41 54 49 56 54 20 4B 41 4E 20 |ALTERNATIVT KAN |
00000A80: 53 30 47 45 53 20 54 49 4C 50 41 53 4E 49 4E 47 |S0GES TILPASNING|
00000A90: 20 4D 45 44 20 22 00 C1 12 02 08 99 22 45 4E 20 | MED "......"EN |
00000AA0: 46 55 4E 4B 54 49 4F 4E 20 41 46 20 54 59 50 45 |FUNKTION AF TYPE|
00000AB0: 4E 20 59 3D 41 2B 42 2A 45 58 50 28 58 29 22 3A |N Y=A+B*EXP(X)":|
00000AC0: 99 00 E0 12 0C 08 99 22 56 5B 4C 47 45 53 20 20 |......."V[LGES |
00000AD0: 20 20 20 31 2E 50 4F 4C 59 4E 4F 4D 49 55 4D 22 | 1.POLYNOMIUM"|
00000AE0: 00 08 13 16 08 99 22 45 4C 4C 45 52 20 20 20 20 |......"ELLER |
00000AF0: 20 20 32 2E 45 58 50 4F 4E 45 4E 54 49 41 4C 46 | 2.EXPONENTIALF|
00000B00: 55 4E 4B 54 49 4F 4E 22 00 32 13 20 08 99 22 11 |UNKTION".2. ..".|
00000B10: 54 41 53 54 20 31 20 45 4C 4C 45 52 20 32 3A 20 |TAST 1 ELLER 2: |
00000B20: 22 3B 3A 84 39 2C 58 24 3A 54 B2 C5 28 58 24 29 |";:.9,X$:T..(X$)|
00000B30: 3A 99 00 4B 13 2A 08 8B 54 B3 B1 31 AF 54 B3 B1 |:..K.*..T..1.T..|
00000B40: 32 A7 99 52 24 3A 89 32 30 38 30 00 85 13 34 08 |2..R$:.2080...4.|
00000B50: 99 22 11 41 4E 54 41 4C 20 50 55 4E 4B 54 45 52 |.".ANTAL PUNKTER|
00000B60: 20 28 4D 49 4E 2E 20 33 20 20 4D 41 58 2E 20 31 | (MIN. 3 MAX. 1|
00000B70: 35 29 20 22 3B 3A 84 39 2C 58 24 3A 4E B2 C5 28 |5) ";:.9,X$:N..(|
00000B80: 58 24 29 3A 99 00 9D 13 39 08 8B 4E B3 33 B0 4E |X$):....9..N.3.N|
00000B90: B1 31 35 A7 99 52 24 3A 89 32 31 30 30 00 B8 13 |.15..R$:.2100...|
00000BA0: 3E 08 99 4F 24 3A 8F 2A 2A 2A 2A 2A 44 49 4D 58 |>..O$:.*****DIMX|
00000BB0: 28 4E 29 2C 59 28 4E 29 00 C8 13 48 08 81 49 B2 |(N),Y(N)...H..I.|
00000BC0: 31 A4 4E 3A 99 20 49 3B 00 EF 13 52 08 99 22 50 |1.N:. I;...R.."P|
00000BD0: 55 4E 4B 54 3A 20 58 20 3D 20 22 3B 3A 84 39 2C |UNKT: X = ";:.9,|
00000BE0: 58 24 3A 58 28 49 29 B2 C5 28 58 24 29 3A 99 00 |X$:X(I)..(X$):..|
00000BF0: 00 14 5C 08 99 A3 31 30 29 22 59 20 3D 20 22 3B |..\...10)"Y = ";|
00000C00: 00 1C 14 66 08 84 39 2C 58 24 3A 59 28 49 29 B2 |...f..9,X$:Y(I).|
00000C10: C5 28 58 24 29 3A 99 3A 82 49 3A 99 00 2A 14 70 |.(X$):.:.I:..*.p|
00000C20: 08 8B 54 B2 32 89 32 35 32 30 00 5D 14 7A 08 99 |..T.2.2520.].z..|
00000C30: 22 53 54 30 52 53 54 45 20 56 5B 52 44 49 20 46 |"ST0RSTE V[RDI F|
00000C40: 4F 52 20 4E 20 20 22 3B 3A 84 39 2C 58 24 3A 57 |OR N ";:.9,X$:W|
00000C50: B2 C5 28 58 24 29 3A 99 3A 4D 32 B2 32 00 8C 14 |..(X$):.:M2.2...|
00000C60: 84 08 8F 2A 2A 2A 2A 2A 20 44 49 4D 50 28 32 2A |...***** DIMP(2*|
00000C70: 57 29 2C 41 45 28 57 2B 31 29 2C 42 28 57 2B 31 |W),AE(W+1),B(W+1|
00000C80: 29 2C 41 28 57 2B 31 2C 57 2B 32 29 00 A1 14 8E |),A(W+1,W+2)....|
00000C90: 08 81 52 B2 30 A4 32 AC 4D 32 3A 50 28 52 29 B2 |..R.0.2.M2:P(R).|
00000CA0: 30 00 B9 14 98 08 8B 52 B3 B2 4D 32 A7 42 31 28 |0......R..M2.B1(|
00000CB0: 52 AA 31 29 B2 30 3A 82 52 00 D3 14 A2 08 82 52 |R.1).0:.R......R|
00000CC0: 3A 81 49 B2 31 A4 4E 3A 50 45 B2 31 3A 51 B2 59 |:.I.1.N:PE.1:Q.Y|
00000CD0: 28 49 29 00 EE 14 AC 08 81 52 B2 30 A4 32 AC 4D |(I)......R.0.2.M|
00000CE0: 32 3A 50 28 52 29 B2 50 28 52 29 AA 50 45 00 0B |2:P(R).P(R).PE..|
00000CF0: 15 B6 08 8B 52 B3 B2 4D 32 A7 42 31 28 52 AA 31 |....R..M2.B1(R.1|
00000D00: 29 B2 42 31 28 52 AA 31 29 AA 51 00 28 15 C0 08 |).B1(R.1).Q.(...|
00000D10: 50 45 B2 50 45 AC 58 28 49 29 3A 51 B2 51 AC 58 |PE.PE.X(I):Q.Q.X|
00000D20: 28 49 29 3A 82 52 2C 49 00 40 15 CA 08 81 4B B2 |(I):.R,I.@....K.|
00000D30: 31 A4 4D 32 AA 31 3A 81 4A B2 31 A4 4D 32 AA 31 |1.M2.1:.J.1.M2.1|
00000D40: 00 59 15 D4 08 41 28 4B 2C 4A 29 B2 50 28 4B AA |.Y...A(K,J).P(K.|
00000D50: 4A AB 32 29 3A 82 4A 2C 4B 00 7A 15 DE 08 81 4B |J.2):.J,K.z....K|
00000D60: B2 31 A4 4D 32 AA 31 3A 41 28 4B 2C 4D 32 AA 32 |.1.M2.1:A(K,M2.2|
00000D70: 29 B2 42 31 28 4B 29 3A 82 4B 00 95 15 E8 08 4E |).B1(K):.K.....N|
00000D80: 31 B2 4E 3A 4E B2 4D 32 AA 31 3A 8D 32 37 36 30 |1.N:N.M2.1:.2760|
00000D90: 3A 4E B2 4E 31 00 9D 15 F2 08 99 4F 24 00 CA 15 |:N.N1......O$...|
00000DA0: FC 08 99 22 50 4F 4C 59 4E 4F 4D 49 45 54 20 41 |..."POLYNOMIET A|
00000DB0: 46 22 4D 32 22 47 52 41 44 20 47 45 4E 4E 45 4D |F"M2"GRAD GENNEM|
00000DC0: 20 44 45 20 47 49 56 4E 45 22 00 DD 15 06 09 99 | DE GIVNE"......|
00000DD0: 4E 22 50 55 4E 4B 54 45 52 3A 22 3A 99 00 07 16 |N"PUNKTER:":....|
00000DE0: 10 09 99 22 20 20 20 20 20 4B 4F 4E 53 54 41 4E |..." KONSTAN|
00000DF0: 54 45 20 4C 45 44 20 20 20 20 20 20 3D 22 41 28 |TE LED ="A(|
00000E00: 31 2C 4D 32 AA 32 29 00 40 16 1A 09 81 49 B2 32 |1,M2.2).@....I.2|
00000E10: A4 4D 32 AA 31 3A 99 22 4B 4F 45 46 46 49 43 49 |.M2.1:."KOEFFICI|
00000E20: 45 4E 54 45 4E 20 54 49 4C 20 58 20 5E 22 49 AB |ENTEN TIL X ^"I.|
00000E30: 31 22 3D 22 41 28 49 2C 4D 32 AA 32 29 3A 82 49 |1"="A(I,M2.2):.I|
00000E40: 00 54 16 24 09 8B 50 24 B2 22 4A 22 A7 99 3A 89 |.T.$..P$."J"..:.|
00000E50: 32 33 38 30 00 84 16 2E 09 99 22 11 4B 4F 4E 54 |2380......".KONT|
00000E60: 52 4F 4C 20 41 46 20 59 2D 56 5B 52 44 49 45 52 |ROL AF Y-V[RDIER|
00000E70: 20 28 4A 2F 4E 29 3A 20 22 3B 3A 84 39 2C 41 24 | (J/N): ";:.9,A$|
00000E80: 3A 99 3A 99 00 95 16 38 09 8B 41 24 B2 22 4E 22 |:.:....8..A$."N"|
00000E90: A7 32 34 34 30 00 A7 16 42 09 8B 41 24 B3 B1 22 |.2440...B..A$.."|
00000EA0: 4A 22 A7 32 33 35 30 00 C9 16 4C 09 99 22 20 20 |J".2350...L.." |
00000EB0: 58 22 2C 22 59 47 49 56 45 54 22 2C 22 59 42 45 |X","YGIVET","YBE|
00000EC0: 52 45 47 4E 45 54 22 3A 99 00 E3 16 56 09 81 49 |REGNET":....V..I|
00000ED0: B2 31 A4 4E 3A 51 B2 41 28 4D 32 AA 31 2C 4D 32 |.1.N:Q.A(M2.1,M2|
00000EE0: AA 32 29 00 05 17 60 09 81 4A B2 4D 32 A4 31 A9 |.2)...`..J.M2.1.|
00000EF0: AB 31 3A 51 B2 51 AC 58 28 49 29 AA 41 28 4A 2C |.1:Q.Q.X(I).A(J,|
00000F00: 4D 32 AA 32 29 00 1C 17 6A 09 82 4A 3A 99 58 28 |M2.2)...j..J:.X(|
00000F10: 49 29 2C 59 28 49 29 2C 51 3A 82 49 00 3F 17 74 |I),Y(I),Q:.I.?.t|
00000F20: 09 8F 2A 2A 2A 49 46 50 24 3D 22 4A 22 54 48 45 |..***IFP$="J"THE|
00000F30: 4E 50 52 49 4E 54 23 31 3A 43 4C 4F 53 45 31 00 |NPRINT#1:CLOSE1.|
00000F40: 63 17 7E 09 8F 2A 2A 2A 49 46 50 24 3D 22 4A 22 |c.~..***IFP$="J"|
00000F50: 54 48 45 4E 50 24 3D 22 4E 22 3A 47 4F 54 4F 32 |THENP$="N":GOTO2|
00000F60: 34 37 30 00 A1 17 88 09 8F 2A 2A 2A 50 52 49 4E |470......***PRIN|
00000F70: 54 22 11 55 44 53 4B 52 49 46 54 20 50 5D 20 50 |T".UDSKRIFT P] P|
00000F80: 52 49 4E 54 45 52 20 28 4A 2F 4E 29 3A 20 22 3B |RINTER (J/N): ";|
00000F90: 3A 49 4E 50 55 54 23 39 2C 50 24 3A 50 52 49 4E |:INPUT#9,P$:PRIN|
00000FA0: 54 00 C9 17 92 09 8F 2A 49 46 50 24 3D 22 4A 22 |T......*IFP$="J"|
00000FB0: 54 48 45 4E 4F 50 45 4E 31 2C 34 3A 43 4D 44 31 |THENOPEN1,4:CMD1|
00000FC0: 3A 47 4F 54 4F 32 32 39 30 00 E3 17 9C 09 8F 2A |:GOTO2290......*|
00000FD0: 2A 2A 49 46 50 24 3C 3E 22 4E 22 47 4F 54 4F 32 |**IFP$<>"N"GOTO2|
00000FE0: 34 34 30 00 FF 17 A1 09 8B 41 24 B2 22 4A 22 A7 |440......A$."J".|
00000FF0: A1 50 24 3A 8B 50 24 B2 22 22 A7 32 34 36 35 00 |.P$:.P$."".2465.|
00001000: 0C 18 A6 09 8B 4D 32 B2 57 A7 39 30 00 34 18 B0 |.....M2.W.90.4..|
00001010: 09 99 22 11 4E 59 54 20 50 4F 4C 59 4E 4F 4D 49 |..".NYT POLYNOMI|
00001020: 55 4D 20 28 4A 2F 4E 29 3A 20 22 3B 3A 84 39 2C |UM (J/N): ";:.9,|
00001030: 41 24 3A 99 00 4E 18 BA 09 8B 41 24 B2 22 4A 22 |A$:..N....A$."J"|
00001040: A7 4D 32 B2 4D 32 AA 31 3A 89 32 31 39 30 00 66 |.M2.M2.1:.2190.f|
00001050: 18 C4 09 8B 41 24 B3 B1 22 4E 22 B0 41 51 B3 B1 |....A$.."N".AQ..|
00001060: 31 A7 32 34 38 30 00 6E 18 CE 09 89 39 30 00 8A |1.2480.n....90..|
00001070: 18 D8 09 86 4B 28 32 2C 33 29 3A 4B 28 31 2C 31 |....K(2,3):K(1,1|
00001080: 29 B2 4E 3A 81 49 B2 31 A4 4E 00 A4 18 E2 09 4B |).N:.I.1.N.....K|
00001090: 28 31 2C 32 29 B2 4B 28 31 2C 32 29 AA BD 28 58 |(1,2).K(1,2)..(X|
000010A0: 28 49 29 29 00 BB 18 EC 09 4B 28 31 2C 33 29 B2 |(I)).....K(1,3).|
000010B0: 4B 28 31 2C 33 29 AA 59 28 49 29 00 D7 18 F6 09 |K(1,3).Y(I).....|
000010C0: 4B 28 32 2C 32 29 B2 4B 28 32 2C 32 29 AA BD 28 |K(2,2).K(2,2)..(|
000010D0: 32 AC 58 28 49 29 29 00 F9 18 00 0A 4B 28 32 2C |2.X(I)).....K(2,|
000010E0: 33 29 B2 4B 28 32 2C 33 29 AA BD 28 58 28 49 29 |3).K(2,3)..(X(I)|
000010F0: 29 AC 59 28 49 29 3A 82 49 00 0B 19 0A 0A 4B 28 |).Y(I):.I.....K(|
00001100: 32 2C 31 29 B2 4B 28 31 2C 32 29 00 2D 19 14 0A |2,1).K(1,2).-...|
00001110: 44 B2 4B 28 31 2C 31 29 AC 4B 28 32 2C 32 29 AB |D.K(1,1).K(2,2).|
00001120: 4B 28 31 2C 32 29 AC 4B 28 32 2C 31 29 00 53 19 |K(1,2).K(2,1).S.|
00001130: 1E 0A 41 B2 28 4B 28 31 2C 33 29 AC 4B 28 32 2C |..A.(K(1,3).K(2,|
00001140: 32 29 AB 4B 28 31 2C 32 29 AC 4B 28 32 2C 33 29 |2).K(1,2).K(2,3)|
00001150: 29 AD 44 00 79 19 28 0A 42 B2 28 4B 28 31 2C 31 |).D.y.(.B.(K(1,1|
00001160: 29 AC 4B 28 32 2C 33 29 AB 4B 28 31 2C 33 29 AC |).K(2,3).K(1,3).|
00001170: 4B 28 32 2C 31 29 29 AD 44 00 81 19 32 0A 99 4F |K(2,1)).D...2..O|
00001180: 24 00 A0 19 3C 0A 99 3A 99 22 44 45 4E 20 53 30 |$...<..:."DEN S0|
00001190: 47 54 45 20 46 55 4E 4B 54 49 4F 4E 3A 22 3A 99 |GTE FUNKTION:":.|
000011A0: 00 B0 19 46 0A 8B 42 B1 30 A7 42 24 B2 22 2B 22 |...F..B.0.B$."+"|
000011B0: 00 CD 19 50 0A 99 22 20 20 59 3D 22 41 3B 42 24 |...P.." Y="A;B$|
000011C0: 3B 42 22 2A 45 58 50 28 58 29 22 3A 99 00 DE 19 |;B"*EXP(X)":....|
000011D0: 5A 0A 8B 50 24 B2 22 4A 22 A7 32 36 39 30 00 0B |Z..P$."J".2690..|
000011E0: 1A 64 0A 99 22 4B 4F 4E 54 52 4F 4C 20 41 46 20 |.d.."KONTROL AF |
000011F0: 59 2D 56 5B 52 44 49 45 52 20 28 4A 2F 4E 29 3A |Y-V[RDIER (J/N):|
00001200: 20 22 3B 3A 84 39 2C 41 24 3A 99 00 1C 1A 6E 0A | ";:.9,A$:....n.|
00001210: 8B 41 24 B2 22 4E 22 A7 32 37 32 30 00 2E 1A 78 |.A$."N".2720...x|
00001220: 0A 8B 41 24 B3 B1 22 4A 22 A7 32 36 36 30 00 52 |..A$.."J".2660.R|
00001230: 1A 82 0A 99 3A 99 22 20 20 58 22 2C 22 59 47 49 |....:." X","YGI|
00001240: 56 45 54 22 2C 22 59 42 45 52 45 47 4E 45 54 22 |VET","YBEREGNET"|
00001250: 3A 99 00 77 1A 8C 0A 81 49 B2 31 A4 4E 3A 99 58 |:..w....I.1.N:.X|
00001260: 28 49 29 2C 59 28 49 29 2C 41 AA 42 AC BD 28 58 |(I),Y(I),A.B..(X|
00001270: 28 49 29 29 3A 82 49 00 9D 1A 96 0A 8F 2A 2A 49 |(I)):.I......**I|
00001280: 46 50 24 3D 22 4A 22 54 48 45 4E 50 52 49 4E 54 |FP$="J"THENPRINT|
00001290: 23 31 3A 43 4C 4F 53 45 31 3A 45 4E 44 00 DA 1A |#1:CLOSE1:END...|
000012A0: A0 0A 8F 2A 2A 50 52 49 4E 54 22 11 55 44 53 4B |...**PRINT".UDSK|
000012B0: 52 49 46 54 20 50 5D 20 50 52 49 4E 54 45 52 20 |RIFT P] PRINTER |
000012C0: 28 4A 2F 4E 29 3A 20 22 3B 3A 49 4E 50 55 54 23 |(J/N): ";:INPUT#|
000012D0: 39 2C 50 24 3A 50 52 49 4E 54 00 05 1B AA 0A 8F |9,P$:PRINT......|
000012E0: 2A 2A 2A 2A 49 46 50 24 3D 22 4A 22 54 48 45 4E |****IFP$="J"THEN|
000012F0: 4F 50 45 4E 31 2C 34 3A 43 4D 44 31 3A 47 4F 54 |OPEN1,4:CMD1:GOT|
00001300: 4F 32 36 31 30 00 20 1B B4 0A 8F 2A 2A 2A 2A 49 |O2610. ....****I|
00001310: 46 50 24 3C 3E 22 4E 22 47 4F 54 4F 32 37 32 30 |FP$<>"N"GOTO2720|
00001320: 00 34 1B BE 0A A1 41 24 3A 8B 41 24 B2 22 22 A7 |.4....A$:.A$."".|
00001330: 32 37 35 30 00 3C 1B C3 0A 89 39 30 00 5A 1B C8 |2750.<....90.Z..|
00001340: 0A 81 52 B2 31 A4 4E AB 31 3A 4D 31 B2 B6 28 41 |..R.1.N.1:M1..(A|
00001350: 28 52 2C 52 29 29 3A 4B B2 52 00 67 1B D2 0A 81 |(R,R)):K.R.g....|
00001360: 49 B2 52 AA 31 A4 4E 00 7F 1B DC 0A 8B B6 28 41 |I.R.1.N.......(A|
00001370: 28 49 2C 52 29 29 B3 B2 4D 31 89 32 38 30 30 00 |(I,R))..M1.2800.|
00001380: 94 1B E6 0A 4D 31 B2 B6 28 41 28 49 2C 52 29 29 |....M1..(A(I,R))|
00001390: 3A 4B B2 49 00 9B 1B F0 0A 82 49 00 CA 1B FA 0A |:K.I......I.....|
000013A0: 8B B6 28 4D 31 29 B3 31 45 AB 36 A7 99 22 4C 49 |..(M1).1E.6.."LI|
000013B0: 47 4E 49 4E 47 53 53 59 53 54 45 4D 45 54 20 55 |GNINGSSYSTEMET U|
000013C0: 53 54 41 42 49 4C 54 22 3A 8E 00 D8 1B 04 0B 8B |STABILT":.......|
000013D0: 4B B2 52 89 32 38 36 30 00 E5 1B 0E 0B 81 49 B2 |K.R.2860......I.|
000013E0: 52 A4 4E AA 31 00 09 1C 18 0B 4D B2 41 28 52 2C |R.N.1.....M.A(R,|
000013F0: 49 29 3A 41 28 52 2C 49 29 B2 41 28 4B 2C 49 29 |I):A(R,I).A(K,I)|
00001400: 3A 41 28 4B 2C 49 29 B2 4D 00 10 1C 22 0B 82 49 |:A(K,I).M..."..I|
00001410: 00 2E 1C 2C 0B 81 49 B2 52 AA 31 A4 4E 3A 4B 31 |...,..I.R.1.N:K1|
00001420: B2 41 28 49 2C 52 29 AD 41 28 52 2C 52 29 00 3B |.A(I,R).A(R,R).;|
00001430: 1C 36 0B 81 4A B2 52 A4 4E AA 31 00 57 1C 40 0B |.6..J.R.N.1.W.@.|
00001440: 41 28 49 2C 4A 29 B2 41 28 49 2C 4A 29 AB 4B 31 |A(I,J).A(I,J).K1|
00001450: AC 41 28 52 2C 4A 29 00 62 1C 4A 0B 82 4A 2C 49 |.A(R,J).b.J..J,I|
00001460: 2C 52 00 9B 1C 4B 0B 8B 41 28 4E 2C 4E 29 B2 30 |,R...K..A(N,N).0|
00001470: A7 99 22 11 46 4F 52 4B 45 52 54 20 49 4E 44 54 |..".FORKERT INDT|
00001480: 41 53 54 4E 49 4E 47 20 21 22 3A 81 49 B2 31 A4 |ASTNING !":.I.1.|
00001490: 32 35 30 30 3A 82 3A 89 35 38 30 00 B8 1C 54 0B |2500:.:.580...T.|
000014A0: 41 28 4E 2C 4E AA 31 29 B2 41 28 4E 2C 4E AA 31 |A(N,N.1).A(N,N.1|
000014B0: 29 AD 41 28 4E 2C 4E 29 00 D3 1C 5E 0B 81 49 B2 |).A(N,N)...^..I.|
000014C0: 4E AB 31 A4 31 A9 AB 31 3A 53 B2 41 28 49 2C 4E |N.1.1..1:S.A(I,N|
000014D0: AA 31 29 00 E0 1C 68 0B 81 4D B2 49 AA 31 A4 4E |.1)...h..M.I.1.N|
000014E0: 00 FB 1C 72 0B 53 B2 53 AB 41 28 49 2C 4D 29 AC |...r.S.S.A(I,M).|
000014F0: 41 28 4D 2C 4E AA 31 29 3A 82 4D 00 11 1D 7C 0B |A(M,N.1):.M...|.|
00001500: 41 28 49 2C 4E AA 31 29 B2 53 AD 41 28 49 2C 49 |A(I,N.1).S.A(I,I|
00001510: 29 00 21 1D 81 0B 8B 41 51 B3 B1 31 A7 33 30 30 |).!....AQ..1.300|
00001520: 30 00 2A 1D 86 0B 82 49 3A 8E 00 48 1D B8 0B 8F |0.*....I:..H....|
00001530: 2A 2A 2A 32 2E 20 47 52 41 44 53 20 4C 49 47 4E |***2. GRADS LIGN|
00001540: 49 4E 47 45 52 2A 2A 2A 00 84 1D C2 0B 4F 24 B2 |INGER***.....O$.|
00001550: 22 93 11 12 20 20 20 92 20 32 2E 20 47 52 41 44 |"... . 2. GRAD|
00001560: 53 20 4C 49 47 4E 49 4E 47 20 12 20 20 20 20 20 |S LIGNING . |
00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 | ."|
00001580: 3A 99 4F 24 00 9B 1D CC 0B 99 22 11 41 2A 58 91 |:.O$......".A*X.|
00001590: 32 11 2B 42 2A 58 2B 43 3D 30 22 00 BA 1D 12 0C |2.+B*X+C=0".....|
000015A0: 99 22 11 4B 4F 45 46 46 49 43 49 45 4E 54 45 4E |.".KOEFFICIENTEN|
000015B0: 20 54 49 4C 20 58 91 32 11 22 00 EA 1D 1C 0C 99 | TIL X.2."......|
000015C0: 22 41 20 4D 45 44 20 46 4F 52 54 45 47 4E 20 20 |"A MED FORTEGN |
000015D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 | : |
000015E0: 22 3B 3A 84 39 2C 41 24 3A 99 00 F6 1D 21 0C 41 |";:.9,A$:....!.A|
000015F0: B2 C5 28 41 24 29 00 16 1E 24 0C 99 22 11 11 4B |..(A$)...$.."..K|
00001600: 4F 45 46 46 49 43 49 45 4E 54 45 4E 20 54 49 4C |OEFFICIENTEN TIL|
00001610: 20 58 20 20 20 22 00 48 1E 26 0C 99 22 42 20 4D | X ".H.&.."B M|
00001620: 45 44 20 46 4F 52 54 45 47 4E 20 20 20 20 20 20 |ED FORTEGN |
00001630: 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B 3A 84 | : ";:.|
00001640: 39 2C 42 24 3A 99 3A 99 00 67 1E 2B 0C 42 B2 C5 |9,B$:.:..g.+.B..|
00001650: 28 42 24 29 3A 8B 42 B2 B1 30 A7 42 24 B2 22 9D |(B$):.B..0.B$.".|
00001660: 2B 22 AA C4 28 42 29 00 8A 1E 2E 0C 99 22 11 44 |+"..(B)......".D|
00001670: 45 54 20 52 45 4E 45 20 54 41 4C 20 20 20 20 20 |ET RENE TAL |
00001680: 20 20 20 20 20 20 20 20 20 22 00 BA 1E 30 0C 99 | "...0..|
00001690: 22 43 20 4D 45 44 20 46 4F 52 54 45 47 4E 20 20 |"C MED FORTEGN |
000016A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 | : |
000016B0: 22 3B 3A 84 39 2C 43 24 3A 99 00 D9 1E 35 0C 43 |";:.9,C$:....5.C|
000016C0: B2 C5 28 43 24 29 3A 8B 43 B2 B1 30 A7 43 24 B2 |..(C$):.C..0.C$.|
000016D0: 22 20 2B 22 AA C4 28 43 29 00 FF 1E 4E 0C 4C 24 |" +"..(C)...N.L$|
000016E0: B2 41 24 AA 22 2A 58 91 32 11 20 22 AA 42 24 AA |.A$."*X.2. ".B$.|
000016F0: 22 2A 58 20 22 AA 43 24 AA 22 20 3D 20 30 22 00 |"*X ".C$." = 0".|
00001700: 0E 1F 80 0C 99 4F 24 3A 99 22 11 22 4C 24 00 32 |.....O$:."."L$.2|
00001710: 1F 8A 0C 99 22 11 45 52 20 4C 49 47 4E 49 4E 47 |....".ER LIGNING|
00001720: 45 4E 20 4B 4F 52 52 45 4B 54 20 28 4A 2F 4E 29 |EN KORREKT (J/N)|
00001730: 20 22 00 46 1F 8F 0C A1 53 24 3A 8B 53 24 B2 22 | ".F....S$:.S$."|
00001740: 22 A7 33 32 31 35 00 58 1F 94 0C 8B 53 24 B3 B1 |".3215.X....S$..|
00001750: 22 4A 22 A7 33 30 30 30 00 8B 1F 99 0C 8B 41 B2 |"J".3000......A.|
00001760: 30 A7 99 22 11 44 45 54 20 45 52 20 49 4B 4B 45 |0..".DET ER IKKE|
00001770: 20 45 4E 20 32 2E 20 47 52 41 44 53 4C 49 47 4E | EN 2. GRADSLIGN|
00001780: 49 4E 47 21 22 3A 89 33 36 30 30 00 9A 1F 9E 0C |ING!":.3600.....|
00001790: 99 4F 24 3A 99 22 11 22 4C 24 00 B5 1F E4 0C 8F |.O$:."."L$......|
000017A0: 2A 42 45 52 45 47 4E 49 4E 47 20 41 46 20 52 30 |*BEREGNING AF R0|
000017B0: 44 44 45 52 2A 00 D0 1F EE 0C 44 B2 42 AC 42 AB |DDER*.....D.B.B.|
000017C0: 34 AC 41 AC 43 3A 8B 44 B2 B1 30 A7 33 33 32 30 |4.A.C:.D..0.3320|
000017D0: 00 FA 1F F0 0C 8F 2A 2A 50 52 49 4E 54 22 11 44 |......**PRINT".D|
000017E0: 45 52 20 45 52 20 49 4E 47 45 4E 20 52 45 45 4C |ER ER INGEN REEL|
000017F0: 4C 45 20 52 30 44 44 45 52 22 00 09 20 F2 0C 8F |LE R0DDER".. ...|
00001800: 2A 47 4F 54 4F 33 36 30 30 00 27 20 F8 0C 99 22 |*GOTO3600.' ..."|
00001810: 20 11 11 20 20 2D 42 91 2B 11 9D 2D 20 CD CE 91 | .. -B.+..- ...|
00001820: CE B7 B7 B7 B7 B7 B7 00 40 20 02 0D 99 22 1D 1D |........@ ..."..|
00001830: 1D 1D 1D 1D 1D 1D 1D 1D 42 91 32 11 2D 34 41 43 |........B.2.-4AC|
00001840: 00 57 20 0C 0D 99 22 58 3D 20 C0 C0 C0 C0 C0 C0 |.W ..."X= ......|
00001850: C0 C0 C0 C0 C0 C0 C0 00 68 20 16 0D 99 22 20 20 |........h ..." |
00001860: 20 20 20 20 20 20 32 41 00 92 20 1B 0D 4F 53 B2 | 2A.. ..OS.|
00001870: 32 AA C3 28 C4 28 A5 54 33 28 42 AC 42 29 29 29 |2..(.(.T3(B.B)))|
00001880: AA C3 28 C4 28 A5 54 33 28 AB 34 AC 41 AC 43 29 |..(.(.T3(.4.A.C)|
00001890: 29 29 00 AC 20 20 0D 81 49 B2 31 A4 4F 53 3A 4F |)).. ..I.1.OS:O|
000018A0: 53 24 B2 4F 53 24 AA 22 B7 22 3A 82 00 D4 20 25 |S$.OS$.".":... %|
000018B0: 0D 4C 32 24 B2 22 20 20 20 20 22 AA C4 28 AB 31 |.L2$." "..(.1|
000018C0: AC 42 29 AA 22 91 2B 11 9D 2D 20 CD CE 91 CE 22 |.B).".+..- ...."|
000018D0: AA 4F 53 24 00 E4 20 5C 0D 99 22 11 11 22 3B 3A |.OS$.. \.."..";:|
000018E0: 99 4C 32 24 00 10 21 61 0D 50 B2 C3 28 C4 28 AB |.L2$..!a.P..(.(.|
000018F0: 31 AC 42 29 29 AA 38 3A 44 31 B2 A5 54 33 28 AB |1.B)).8:D1..T3(.|
00001900: 34 AC 41 AC 43 29 3A 44 31 24 B2 C4 28 44 31 29 |4.A.C):D1$..(D1)|
00001910: 00 27 21 64 0D 8B 44 31 B2 B1 30 A7 44 31 24 B2 |.'!d..D1..0.D1$.|
00001920: 22 2B 22 AA 44 31 24 00 4F 21 66 0D 99 A3 50 29 |"+".D1$.O!f...P)|
00001930: A5 54 33 28 42 AE 32 29 3B 3A 99 44 31 24 3A 8F |.T3(B.2);:.D1$:.|
00001940: 2A 2A 2A 46 4E 54 33 28 2D 34 2A 41 2A 43 29 00 |***FNT3(-4*A*C).|
00001950: 71 21 70 0D 99 22 58 3D 20 22 3B 3A 81 49 B2 31 |q!p.."X= ";:.I.1|
00001960: A4 4F 53 AA 50 AB 32 3A 99 22 C0 22 3B 3A 82 3A |.OS.P.2:.".";:.:|
00001970: 99 00 8E 21 7A 0D 99 A3 31 30 29 A5 54 33 28 32 |...!z...10).T3(2|
00001980: AC 41 29 3A 8B 44 B2 B1 30 A7 33 35 30 30 00 B1 |.A):.D..0.3500..|
00001990: 21 84 0D 99 22 11 44 45 52 20 45 52 20 49 4E 47 |!...".DER ER ING|
000019A0: 45 4E 20 52 45 45 4C 4C 45 20 52 30 44 44 45 52 |EN REELLE R0DDER|
000019B0: 22 00 F0 21 8E 0D 99 22 11 53 54 30 52 52 45 4C |"..!...".ST0RREL|
000019C0: 53 45 4E 20 55 4E 44 45 52 20 4B 56 41 44 52 41 |SEN UNDER KVADRA|
000019D0: 54 52 4F 44 53 54 45 47 4E 45 54 20 45 52 20 20 |TRODSTEGNET ER |
000019E0: 20 4E 45 47 41 54 49 56 2E 22 3A 89 33 36 30 30 | NEGATIV.":.3600|
000019F0: 00 0F 22 AC 0D 58 31 B2 28 AB 42 AA BA 28 42 AC |.."..X1.(.B..(B.|
00001A00: 42 AB 34 AC 41 AC 43 29 29 AD 28 32 AC 41 29 00 |B.4.A.C)).(2.A).|
00001A10: 2E 22 B6 0D 58 32 B2 28 AB 42 AB BA 28 42 AC 42 |."..X2.(.B..(B.B|
00001A20: AB 34 AC 41 AC 43 29 29 AD 28 32 AC 41 29 00 4C |.4.A.C)).(2.A).L|
00001A30: 22 C0 0D 99 22 11 58 3D 22 A5 54 33 28 58 31 29 |"...".X=".T3(X1)|
00001A40: 22 CE CD 20 22 A5 54 33 28 58 32 29 00 63 22 10 |".. ".T3(X2).c".|
00001A50: 0E 99 22 11 11 11 54 52 59 4B 20 3C 52 45 54 55 |.."...TRYK <RETU|
00001A60: 52 4E 3E 00 77 22 15 0E A1 41 24 3A 8B 41 24 B2 |RN>.w"...A$:.A$.|
00001A70: 22 22 A7 33 36 30 35 00 86 22 1A 0E 99 4F 24 3A |"".3605.."...O$:|
00001A80: 4F 53 24 B2 22 22 00 AD 22 24 0E 99 22 11 12 20 |OS$."".."$..".. |
00001A90: 31 20 92 20 46 4C 45 52 45 20 32 2E 20 47 52 41 |1 . FLERE 2. GRA|
00001AA0: 44 53 20 4C 49 47 4E 49 4E 47 45 52 22 00 D1 22 |DS LIGNINGER".."|
00001AB0: 2E 0E 99 22 11 12 20 32 20 92 20 54 49 4C 42 41 |...".. 2 . TILBA|
00001AC0: 47 45 20 54 49 4C 20 48 4F 56 45 44 4D 45 4E 55 |GE TIL HOVEDMENU|
00001AD0: 22 00 EC 22 38 0E 99 22 11 12 20 20 20 92 20 53 |".."8..".. . S|
00001AE0: 56 41 52 20 4D 45 44 20 54 41 4C 22 00 00 23 42 |VAR MED TAL"..#B|
00001AF0: 0E A1 53 24 3A 8B 53 24 B2 22 22 A7 33 36 35 30 |..S$:.S$."".3650|
00001B00: 00 1F 23 4C 0E 53 B2 C5 28 53 24 29 3A 8B 53 B3 |..#L.S..(S$):.S.|
00001B10: 31 B0 53 B1 32 A7 99 52 24 3A 89 33 36 34 30 00 |1.S.2..R$:.3640.|
00001B20: 33 23 56 0E 91 53 AA 41 51 AB 31 89 33 30 30 30 |3#V..S.AQ.1.3000|
00001B30: 2C 39 30 00 4F 23 A0 0F 8F 2A 2A 33 2E 20 47 52 |,90.O#...**3. GR|
00001B40: 41 44 53 20 4C 49 47 4E 49 4E 47 45 52 2A 2A 00 |ADS LIGNINGER**.|
00001B50: 8B 23 AA 0F 4F 24 B2 22 93 11 12 20 20 20 92 20 |.#..O$."... . |
00001B60: 33 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E 47 |3. GRADS LIGNING|
00001B70: 20 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00001B80: 20 20 20 20 20 92 22 3A 99 4F 24 00 AB 23 B4 0F | .":.O$..#..|
00001B90: 99 22 11 41 2A 58 91 33 11 2B 42 2A 58 91 32 11 |.".A*X.3.+B*X.2.|
00001BA0: 2B 43 2A 58 2B 44 20 3D 20 30 22 00 CA 23 FA 0F |+C*X+D = 0"..#..|
00001BB0: 99 22 11 4B 4F 45 46 46 49 43 49 45 4E 54 45 4E |.".KOEFFICIENTEN|
00001BC0: 20 54 49 4C 20 58 91 33 11 22 00 FA 23 04 10 99 | TIL X.3."..#...|
00001BD0: 22 41 20 4D 45 44 20 46 4F 52 54 45 47 4E 20 20 |"A MED FORTEGN |
00001BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 | : |
00001BF0: 22 3B 3A 84 39 2C 41 24 3A 99 00 06 24 09 10 41 |";:.9,A$:...$..A|
00001C00: B2 C5 28 41 24 29 00 29 24 0C 10 99 22 11 11 4B |..(A$).)$..."..K|
00001C10: 4F 45 46 46 49 43 49 45 4E 54 45 4E 20 54 49 4C |OEFFICIENTEN TIL|
00001C20: 20 58 91 32 11 20 20 20 22 00 5B 24 0E 10 99 22 | X.2. ".[$..."|
00001C30: 42 20 4D 45 44 20 46 4F 52 54 45 47 4E 20 20 20 |B MED FORTEGN |
00001C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 22 | : "|
00001C50: 3B 3A 84 39 2C 42 24 3A 99 3A 99 00 7A 24 13 10 |;:.9,B$:.:..z$..|
00001C60: 42 B2 C5 28 42 24 29 3A 8B 42 B2 B1 30 A7 42 24 |B..(B$):.B..0.B$|
00001C70: B2 22 9D 2B 22 AA C4 28 42 29 00 9D 24 14 10 99 |.".+"..(B)..$...|
00001C80: 22 11 11 4B 4F 45 46 46 49 43 49 45 4E 54 45 4E |"..KOEFFICIENTEN|
00001C90: 20 54 49 4C 20 58 20 20 20 20 20 20 22 00 CF 24 | TIL X "..$|
00001CA0: 15 10 99 22 43 20 4D 45 44 20 46 4F 52 54 45 47 |..."C MED FORTEG|
00001CB0: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N |
00001CC0: 20 3A 20 22 3B 3A 84 39 2C 43 24 3A 99 3A 99 00 | : ";:.9,C$:.:..|
00001CD0: EE 24 16 10 43 B2 C5 28 43 24 29 3A 8B 43 B2 B1 |.$..C..(C$):.C..|
00001CE0: 30 A7 43 24 B2 22 9D 2B 22 AA C4 28 43 29 00 11 |0.C$.".+"..(C)..|
00001CF0: 25 18 10 99 22 11 44 45 54 20 52 45 4E 45 20 54 |%...".DET RENE T|
00001D00: 41 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |AL |
00001D10: 22 00 41 25 1A 10 99 22 44 20 4D 45 44 20 46 4F |".A%..."D MED FO|
00001D20: 52 54 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 |RTEGN |
00001D30: 20 20 20 20 20 3A 20 22 3B 3A 84 39 2C 44 24 3A | : ";:.9,D$:|
00001D40: 99 00 60 25 1D 10 44 B2 C5 28 44 24 29 3A 8B 44 |..`%..D..(D$):.D|
00001D50: B2 B1 30 A7 44 24 B2 22 20 2B 22 AA C4 28 44 29 |..0.D$." +"..(D)|
00001D60: 00 92 25 36 10 4C 24 B2 41 24 AA 22 2A 58 91 33 |..%6.L$.A$."*X.3|
00001D70: 11 20 22 AA 42 24 AA 22 2A 58 91 32 11 20 22 AA |. ".B$."*X.2. ".|
00001D80: 43 24 AA 22 2A 58 20 22 AA 44 24 AA 22 20 3D 20 |C$."*X ".D$." = |
00001D90: 30 22 00 A1 25 68 10 99 4F 24 3A 99 22 11 22 4C |0"..%h..O$:."."L|
00001DA0: 24 00 C5 25 72 10 96 A5 4C 31 28 58 29 B2 28 58 |$..%r...L1(X).(X|
00001DB0: AE 33 AA 42 AD 41 AC 58 AE 32 AA 43 AD 41 AC 58 |.3.B.A.X.2.C.A.X|
00001DC0: AA 44 AD 41 29 00 E5 25 7C 10 96 A5 4C 32 28 58 |.D.A)..%|...L2(X|
00001DD0: 29 B2 28 33 AC 58 AE 32 AA 42 AD 41 AC 32 AC 58 |).(3.X.2.B.A.2.X|
00001DE0: AA 43 AD 41 29 00 09 26 CC 10 99 22 11 45 52 20 |.C.A)..&...".ER |
00001DF0: 4C 49 47 4E 49 4E 47 45 4E 20 4B 4F 52 52 45 4B |LIGNINGEN KORREK|
00001E00: 54 20 28 4A 2F 4E 29 20 22 00 1D 26 D6 10 A1 53 |T (J/N) "..&...S|
00001E10: 24 3A 8B 53 24 B2 22 22 A7 34 33 31 30 00 2F 26 |$:.S$."".4310./&|
00001E20: E0 10 8B 53 24 B3 B1 22 4A 22 A7 34 30 30 30 00 |...S$.."J".4000.|
00001E30: 6E 26 E5 10 8B 41 B2 30 A7 99 22 11 44 45 54 20 |n&...A.0..".DET |
00001E40: 45 52 20 49 4B 4B 45 20 45 4E 20 33 2E 20 47 52 |ER IKKE EN 3. GR|
00001E50: 41 44 53 20 4C 49 47 4E 49 4E 47 22 3A 81 49 B2 |ADS LIGNING":.I.|
00001E60: 31 A4 32 30 30 30 3A 82 3A 89 33 30 30 30 00 A4 |1.2000:.:.3000..|
00001E70: 26 EA 10 99 22 11 49 4E 44 54 41 53 54 20 53 4B |&...".INDTAST SK|
00001E80: 30 4E 4E 45 54 20 56 5B 52 44 49 20 46 4F 52 20 |0NNET V[RDI FOR |
00001E90: 58 20 22 3B 3A 84 39 2C 58 24 3A 99 3A 58 B2 C5 |X ";:.9,X$:.:X..|
00001EA0: 28 58 24 29 00 B3 26 FE 10 99 4F 24 3A 99 22 11 |(X$)..&...O$:.".|
00001EB0: 22 4C 24 00 DA 26 03 11 99 22 11 53 4B 30 4E 4E |"L$..&...".SK0NN|
00001EC0: 45 54 20 58 20 20 20 20 20 20 20 20 20 20 20 20 |ET X |
00001ED0: 46 4F 52 42 45 44 52 49 4E 47 00 F7 26 08 11 81 |FORBEDRING..&...|
00001EE0: 49 B2 31 A4 32 30 3A 4B 31 B2 A5 4C 31 28 58 29 |I.1.20:K1..L1(X)|
00001EF0: AD A5 4C 32 28 58 29 00 0D 27 12 11 59 B2 58 3A |..L2(X)..'..Y.X:|
00001F00: 58 B2 58 AB 4B 31 3A 58 28 49 29 B2 58 00 26 27 |X.X.K1:X(I).X.&'|
00001F10: 17 11 8B 49 AD 32 B2 B5 28 49 AD 32 29 A7 99 59 |...I.2..(I.2)..Y|
00001F20: A3 32 30 29 4B 31 00 2C 27 19 11 82 00 4C 27 1C |.20)K1.,'....L'.|
00001F30: 11 8B A5 54 36 28 58 28 31 39 29 29 B2 A5 54 36 |...T6(X(19))..T6|
00001F40: 28 58 28 32 30 29 29 A7 34 34 30 30 00 82 27 26 |(X(20)).4400..'&|
00001F50: 11 99 22 11 44 45 52 20 45 52 20 49 4E 47 45 4E |..".DER ER INGEN|
00001F60: 20 53 4B 5B 52 49 4E 47 20 4D 45 44 20 32 30 20 | SK[RING MED 20 |
00001F70: 49 54 45 52 41 54 49 4F 4E 45 52 22 3A 89 34 36 |ITERATIONER":.46|
00001F80: 30 30 00 8E 27 30 11 99 22 11 58 3D 22 58 00 A4 |00..'0..".X="X..|
00001F90: 27 F8 11 99 22 11 11 54 52 59 4B 20 3C 52 45 54 |'..."..TRYK <RET|
00001FA0: 55 52 4E 3E 00 B8 27 FD 11 A1 41 24 3A 8B 41 24 |URN>..'...A$:.A$|
00001FB0: B2 22 22 A7 34 36 30 35 00 C7 27 02 12 99 4F 24 |."".4605..'...O$|
00001FC0: 3A 4F 53 24 B2 22 22 00 EE 27 0C 12 99 22 11 12 |:OS$.""..'..."..|
00001FD0: 20 31 20 92 20 46 4C 45 52 45 20 33 2E 20 47 52 | 1 . FLERE 3. GR|
00001FE0: 41 44 53 20 4C 49 47 4E 49 4E 47 45 52 22 00 12 |ADS LIGNINGER"..|
00001FF0: 28 16 12 99 22 11 12 20 32 20 92 20 54 49 4C 42 |(...".. 2 . TILB|
00002000: 41 47 45 20 54 49 4C 20 48 4F 56 45 44 4D 45 4E |AGE TIL HOVEDMEN|
00002010: 55 22 00 2D 28 20 12 99 22 11 12 20 20 20 92 20 |U".-( ..".. . |
00002020: 53 56 41 52 20 4D 45 44 20 54 41 4C 22 00 41 28 |SVAR MED TAL".A(|
00002030: 2A 12 A1 53 24 3A 8B 53 24 B2 22 22 A7 34 36 35 |*..S$:.S$."".465|
00002040: 30 00 60 28 34 12 53 B2 C5 28 53 24 29 3A 8B 53 |0.`(4.S..(S$):.S|
00002050: B3 31 B0 53 B1 32 A7 99 52 24 3A 89 33 36 34 30 |.1.S.2..R$:.3640|
00002060: 00 74 28 3E 12 91 53 AA 41 51 AB 31 89 34 30 30 |.t(>..S.AQ.1.400|
00002070: 30 2C 39 30 00 00 00 A9 00 8D C9 FF 00 |0,90......... |
..'....***COPYRIGHT JUST R.-DATA APS***.
0...AQ.1.N.Z..53280,2:.53281,5:.G(144)..
.D.O$."... . MATEMATIKMODUL .
."...N..O$: 9:.9,0.F.X.."...
........... UI":." JR COPYRIGHT 1983..
...." JUST R.-DATA APS":." DK 870
0 HORSENS"...H..A$:.A$."".200.3.R.R$."..
.".G.....T3(X).
.(X.1E3..5).1E3:..T6(X)..(X.1E6..5).1E6.
.....FL.0..X(25),Y(15),A(40,41),B(40,41)
,P(30),AE(16),B1(16):.:FL.AQ.Y.,..O$:.".
. 1 . L0SNING AF 2. GRADS LIGNING...6.."
.. 2 . L0SNING AF 3. GRADS LIGNING.M.@..
".. 3 . L0SNING AF N LIGNINGER MED
N UBEKENDTE (MAX. 40).J.J..".. 4
. KURVETILPASNING.|.O..".. 5 . SLUT...T
..".. . SVAR MED TAL"...V..S$:.S$."".3
42.K.^.SV.E(S$):.SV.1.SV.5..R$:.340.W.H.
.SV.5.....R..SV.3000,4000,580,1970...D..
**N LIGNINGER**.C.N.O$."... . N LIGNIN
GER . .":.O$.R.X.
.".L0SNINGSTIDEN VOKSER NATURLIGVIS MED
N". .B.."OG ER TYPISK FOR N=10 14 SEK.,F
OR N=20".D.L.."1.5 MIN. OG FOR N=30 4.5
MIN....V..".ANTAL LIGNINGER: ";:.9,X$:N.
E(X$):.:....{..N.2..R$:.630......*******
*DIMA(N,N+1):DIMB(N,N+1):PRINT.B....AQ..
1..:.T.1.N.]....R.1.N:.R;"..LIGNING:"...
...S.1.N:."KOEFFICIENT TIL X(";S;......"
)=";:.9,IN$:.:.*********** ,A(R,S):PRINT
.B...A(R,S).E(IN$).I....S......"H0JRESID
EN =";:.9,IN$:A(R,N.1).E(IN$)
:.......O$:.R.3.F.."KONTROL - KOEFFICIEN
TMATRICEN:".@.P..R.1.N:..[.Z..S.1.N.1:.A
(R,S);:.S,R.....:.:."KORREKT (J/N): ";:
.9,A$:.......A$."J".820. ....A$.."N".740
.U....:."NR.P] LIGNING DER RETTES: ";:.9
,X$:Q.E(X$):.......Q.N..R$:.770......:."
I";Q;"LIGNING ER KOEFF. NU":....... S.1
. N.1:.A(Q,S);:. S:.:..`. .."HVILKET NR.
KOEFFICIENT RETTES: ";:.9,U:.:....*.."N
Y V[RDI: ";:.9,A(Q,U):.:. 710...4..O$:.
R.1 . N:. S.1 . N.1...>.B(R,S).A(R,S):.
S:. R.G.H..2760.Z.R..:."RESULTAT:"...\..
I.1.N:."X("I")="A(I,N.1):.I:.:.P$."J".91
0.>.F.."0NSKES KONTROL V. INDS[TNING (J/
N): ";:.9,A$:..Q.P..A$."J"..:.910.B.Z..A
$.."N".870.K....970.Y.... R.1 . N......R
"LIGN. NUV. H0JRESIDE="B(R,N.1):H.0.....
. S.1 . N.M...H.H.B(R,S).A(S,N.1):. S...
....C(G(R)).7)" VED INDS[TNING="H......
R:.**IFP$="J"THENPRINT#1:CLOSE1:END.Z.J.
.****PRINT".UDSKRIFT P] PRINTER (J/N): "
;:INPUT#9,P$:PRINT...T..**IFP$="J"THENOP
EN1,4:CMD1:GOTO1010...Y..****IFP$<>"N"GO
TO970......A$:.A$."".990......90......"L
0SNING AF N LIGNINGER MED N UBEKENDTE"..
...."DEN INDTASTEDE KOEFFICIENTMATRIX:".
.....R.1.N:..7....S.1.N.1:.B(R,S);:.S,R.
E....AQ.1.850.....O$."... . KURVETILPA
SNING . .":.O$......"
FOR DE GIVNE PUNKTER FINDES DET POLYNO-"
...F.."MIUM AF N'TE GRAD, DER EFTER DE M
INDSTE"...P.."KVADRATERS METODE BEDST TI
LPASSER SIG"...Z.."PUNKTERNE.".J...."N A
NTAGER V[RDIERNE 2,3,4 - - OP TIL".G....
"EN VALGT 0VRE GR[NSE."......:."ALTERNAT
IVT KAN S0GES TILPASNING MED ".A...."EN
FUNKTION AF TYPEN Y=A+B*EXP(X)":......."
V[LGES 1.POLYNOMIUM"......"ELLER
2.EXPONENTIALFUNKTION".2. ..".TAST 1 E
LLER 2: ";:.9,X$:T.E(X$):..K.*..T..1.T..
2..R$:.2080...4..".ANTAL PUNKTER (MIN. 3
MAX. 15) ";:.9,X$:N.E(X$):....9..N.3.N
.15..R$:.2100...>..O$:.*****DIMX(N),Y(N)
.H.H..I.1.N:. I;...R.."PUNKT: X = ";:.9,
X$:X(I).E(X$):....\...10)"Y = ";...F..9,
X$:Y(I).E(X$):.:.I:..*.P..T.2.2520.].Z..
"ST0RSTE V[RDI FOR N ";:.9,X$:W.E(X$):.
:M2.2......***** DIMP(2*W),AE(W+1),B(W+1
),A(W+1,W+2)......R.0.2.M2:P(R).0......R
..M2.B1(R.1).0:.R.S....R:.I.1.N:PE.1:Q.Y
(I)......R.0.2.M2:P(R).P(R).PE......R..M
2.B1(R.1).B1(R.1).Q.(...PE.PE.X(I):Q.Q.X
(I):.R,I.@.J..K.1.M2.1:.J.1.M2.1.Y.T.A(K
,J).P(K.J.2):.J,K.Z....K.1.M2.1:A(K,M2.2
).B1(K):.K.....N1.N:N.M2.1:.2760:N.N1...
...O$.J...."POLYNOMIET AF"M2"GRAD GENNEM
DE GIVNE"......N"PUNKTER:":......."
KONSTANTE LED ="A(1,M2.2).@....I.2
.M2.1:."KOEFFICIENTEN TIL X ^"I.1"="A(I,
M2.2):.I.T.$..P$."J"..:.2380......".KONT
ROL AF Y-V[RDIER (J/N): ";:.9,A$:.:....8
..A$."N".2440...B..A$.."J".2350.I.L.."
X","YGIVET","YBEREGNET":....V..I.1.N:Q.A
(M2.1,M2.2)...`..J.M2.1..1:Q.Q.X(I).A(J,
M2.2)...J..J:.X(I),Y(I),Q:.I.?.T..***IFP
$="J"THENPRINT#1:CLOSE1.C.~..***IFP$="J"
THENP$="N":GOTO2470......***PRINT".UDSKR
IFT P] PRINTER (J/N): ";:INPUT#9,P$:PRIN
T.I....*IFP$="J"THENOPEN1,4:CMD1:GOTO229
0......***IFP$<>"N"GOTO2440......A$."J".
.P$:.P$."".2465......M2.W.90.4....".NYT
POLYNOMIUM (J/N): ";:.9,A$:..N....A$."J"
.M2.M2.1:.2190.F.D..A$.."N".AQ..1.2480.N
.N..90...X..K(2,3):K(1,1).N:.I.1.N.....K
(1,2).K(1,2)..(X(I)).....K(1,3).K(1,3).Y
(I).W...K(2,2).K(2,2)..(2.X(I)).....K(2,
3).K(2,3)..(X(I)).Y(I):.I.....K(2,1).K(1
,2).-...D.K(1,1).K(2,2).K(1,2).K(2,1).S.
..A.(K(1,3).K(2,2).K(1,2).K(2,3)).D.Y.(.
B.(K(1,1).K(2,3).K(1,3).K(2,1)).D...2..O
$. .<..:."DEN S0GTE FUNKTION:":....F..B.
0.B$."+".M.P.." Y="A;B$;B"*EXP(X)":....
Z..P$."J".2690...D.."KONTROL AF Y-V[RDIE
R (J/N): ";:.9,A$:....N..A$."N".2720...X
..A$.."J".2660.R....:." X","YGIVET","YB
EREGNET":..W....I.1.N:.X(I),Y(I),A.B..(X
(I)):.I......**IFP$="J"THENPRINT#1:CLOSE
1:END.Z. ..**PRINT".UDSKRIFT P] PRINTER
(J/N): ";:INPUT#9,P$:PRINT......****IFP$
="J"THENOPEN1,4:CMD1:GOTO2610. ....****I
FP$<>"N"GOTO2720.4....A$:.A$."".2750.<.C
..90.Z.H..R.1.N.1:M1..(A(R,R)):K.R.G.R..
I.R.1.N......(A(I,R))..M1.2800.....M1..
(A(I,R)):K.I......I.J.....(M1).1E.6.."LI
GNINGSSYSTEMET USTABILT":..X....K.R.2860
......I.R.N.1.....M.A(R,I):A(R,I).A(K,I)
:A(K,I).M..."..I...,..I.R.1.N:K1.A(I,R).
A(R,R).;.6..J.R.N.1.W.@.A(I,J).A(I,J).K1
.A(R,J).B.J..J,I,R...K..A(N,N).0..".FORK
ERT INDTASTNING !":.I.1.2500:.:.580...T.
A(N,N.1).A(N,N.1).A(N,N).S.^..I.N.1.1..1
:S.A(I,N.1)...H..M.I.1.N...R.S.S.A(I,M).
A(M,N.1):.M...|.A(I,N.1).S.A(I,I).!....A
Q..1.3000.*....I:..H....***2. GRADS LIGN
INGER***...B.O$."... . 2. GRADS LIGNIN
G . .":.O$...L..".A*X.
2.+B*X+C=0"......".KOEFFICIENTEN TIL X.2
."......"A MED FORTEGN :
";:.9,A$:....!.A.E(A$)...$.."..KOEFFICIE
NTEN TIL X ".H.&.."B MED FORTEGN
: ";:.9,B$:.:..G.+.B.E(B$):.B.
.0.B$.".+".D(B)......".DET RENE TAL
"...0.."C MED FORTEGN
: ";:.9,C$:..Y.5.C.E(C$):.C..0.C$.
" +".D(C)...N.L$.A$."*X.2. ".B$."*X ".C$
." = 0"......O$:."."L$.2....".ER LIGNING
EN KORREKT (J/N) ".F....S$:.S$."".3215.X
....S$.."J".3000......A.0..".DET ER IKKE
EN 2. GRADSLIGNING!":.3600......O$:."."
L$......*BEREGNING AF R0DDER*.P...D.B.B.
4.A.C:.D..0.3320......**PRINT".DER ER IN
GEN REELLE R0DDER".. ...*GOTO3600.' ..."
.. -B.+..- MN.N.......@ ..."..........
B.2.-4AC.W ..."X= ..............H ..."
2A.. ..OS.2.C(D(.T3(B.B))).C(D(.T3
(.4.A.C))).. ..I.1.OS:OS$.OS$.".":..T %
.L2$." ".D(.1.B).".+..- MN.N".OS$.. \
.."..";:.L2$..!A.P.C(D(.1.B)).8:D1..T3(.
4.A.C):D1$.D(D1).'!D..D1..0.D1$."+".D1$.
O!F...P).T3(B.2);:.D1$:.***FNT3(-4*A*C).
Q!P.."X= ";:.I.1.OS.P.2:.".";:.:...!Z...
10).T3(2.A):.D..0.3500..!...".DER ER ING
EN REELLE R0DDER"..!...".ST0RRELSEN UNDE
R KVADRATRODSTEGNET ER NEGATIV.":.3600
.."..X1.(.B..(B.B.4.A.C)).(2.A).."..X2.(
.B..(B.B.4.A.C)).(2.A).L"...".X=".T3(X1)
"NM ".T3(X2).C"..."...TRYK <RETURN>.W"..
.A$:.A$."".3605.."...O$:OS$."".."$.."..
1 . FLERE 2. GRADS LIGNINGER".Q"...".. 2
. TILBAGE TIL HOVEDMENU".."8..".. . S
VAR MED TAL"..#B..S$:.S$."".3650..#L.S.E
(S$):.S.1.S.2..R$:.3640.3#V..S.AQ.1.3000
,90.O# ..**3. GRADS LIGNINGER**..#..O$."
... . 3. GRADS LIGNING .
.":.O$..#...".A*X.3.+B*X.2.+C*X+D =
0".J#...".KOEFFICIENTEN TIL X.3."..#...
"A MED FORTEGN : ";:.9,A$
:...$..A.E(A$).)$..."..KOEFFICIENTEN TIL
X.2. ".[$..."B MED FORTEGN
: ";:.9,B$:.:..Z$..B.E(B$):.B..0.B$
.".+".D(B)..$..."..KOEFFICIENTEN TIL X
".O$..."C MED FORTEGN
: ";:.9,C$:.:...$..C.E(C$):.C..0.C$.".+
".D(C)..%...".DET RENE TAL
".A%..."D MED FORTEGN : "
;:.9,D$:..`%..D.E(D$):.D..0.D$." +".D(D)
..%6.L$.A$."*X.3. ".B$."*X.2. ".C$."*X "
.D$." = 0"..%H..O$:."."L$.E%R...L1(X).(X
.3.B.A.X.2.C.A.X.D.A)..%|...L2(X).(3.X.2
.B.A.2.X.C.A)..&L..".ER LIGNINGEN KORREK
T (J/N) "..&V..S$:.S$."".4310./&...S$.."
J".4000.N&...A.0..".DET ER IKKE EN 3. GR
ADS LIGNING":.I.1.2000:.:.3000..&...".IN
DTAST SK0NNET V[RDI FOR X ";:.9,X$:.:X.E
(X$)..&...O$:."."L$.Z&...".SK0NNET X
FORBEDRING..&...I.1.20:K1..L1(X)
..L2(X)..'..Y.X:X.X.K1:X(I).X.&'...I.2..
(I.2)..Y.20)K1.,'....L'....T6(X(19))..T6
(X(20)).4400..'&..".DER ER INGEN SK[RING
MED 20 ITERATIONER":.4600..'0..".X="X..
'..."..TRYK <RETURN>..'...A$:.A$."".4605
.G'...O$:OS$.""..'...".. 1 . FLERE 3. GR
ADS LIGNINGER"..(...".. 2 . TILBAGE TIL
HOVEDMENU".-( ..".. . SVAR MED TAL".A(
*..S$:.S$."".4650.`(4.S.E(S$):.S.1.S.2..
R$:.3640.T(>..S.AQ.1.4000,90......I..
> CLICK IMAGE PREVIEW FOR FULL MODAL