MATEMATIK
FILE INFORMATION
FILENAME(S): MATEMATIK
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-12-01 01:10:20
APPEARS ON: 1 disk(s)
FILE HASH
bab188ecf4e0d7bf4f8a98779681cfd879f374701b30b1a0056dd9de46787777
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LEON OLSEN | MATEMATIK | PRG | hedning, Martin L0fgren | 22 | 6 | 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 45 08 5A 00 97 35 33 32 | APS***.E.Z..532|
00000030: 38 30 2C 32 3A 97 35 33 32 38 31 2C 35 3A 99 C7 |80,2:.53281,5:..|
00000040: 28 31 34 34 29 00 7D 08 64 00 4F 24 B2 22 93 11 |(144).}.d.O$."..|
00000050: 12 20 20 20 92 20 4D 41 54 45 4D 41 54 49 4B 4D |. . MATEMATIKM|
00000060: 4F 44 55 4C 20 12 20 20 20 20 20 20 20 20 20 20 |ODUL . |
00000070: 20 20 20 20 20 20 20 20 20 20 20 92 22 00 8D 08 | ."...|
00000080: 6E 00 99 4F 24 3A A0 39 3A 9F 39 2C 30 00 BD 08 |n..O$:.9:.9,0...|
00000090: 78 00 99 22 11 11 11 11 11 11 11 11 11 11 11 11 |x.."............|
000000A0: 11 11 20 D5 C9 22 3A 99 22 20 CA 52 20 43 4F 50 |.. ..":." .R COP|
000000B0: 59 52 49 47 48 54 20 20 20 31 39 38 33 00 F1 08 |YRIGHT 1983...|
000000C0: 82 00 99 22 20 20 20 20 4A 55 53 54 20 52 2E 2D |..." JUST R.-|
000000D0: 44 41 54 41 20 41 50 53 22 3A 99 22 20 20 20 20 |DATA APS":." |
000000E0: 44 4B 20 20 38 37 30 30 20 48 4F 52 53 45 4E 53 |DK 8700 HORSENS|
000000F0: 22 00 04 09 C8 00 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""|
00000100: A7 32 30 30 00 2A 09 D2 00 52 24 B2 22 91 91 20 |.200.*...R$.".. |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 91 22 00 5E 09 DC 00 96 | .".^....|
00000130: A5 54 33 28 58 29 B2 B5 28 58 AC 31 45 33 AA 2E |.T3(X)..(X.1E3..|
00000140: 35 29 AD 31 45 33 3A 96 A5 54 36 28 58 29 B2 B5 |5).1E3:..T6(X)..|
00000150: 28 58 AC 31 45 36 AA 2E 35 29 AD 31 45 36 00 A3 |(X.1E6..5).1E6..|
00000160: 09 E6 00 8B 46 4C B2 30 A7 86 58 28 32 35 29 2C |....FL.0..X(25),|
00000170: 59 28 31 35 29 2C 41 28 34 30 2C 34 31 29 2C 42 |Y(15),A(40,41),B|
00000180: 28 34 30 2C 34 31 29 2C 50 28 33 30 29 2C 41 45 |(40,41),P(30),AE|
00000190: 28 31 36 29 2C 42 31 28 31 36 29 3A 99 3A 46 4C |(16),B1(16):.:FL|
000001A0: B2 41 51 00 D0 09 2C 01 99 4F 24 3A 99 22 11 12 |.AQ...,..O$:."..|
000001B0: 20 31 20 92 20 4C 30 53 4E 49 4E 47 20 41 46 20 | 1 . L0SNING AF |
000001C0: 32 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E 47 |2. GRADS LIGNING|
000001D0: 00 F9 09 36 01 99 22 11 12 20 32 20 92 20 4C 30 |...6..".. 2 . L0|
000001E0: 53 4E 49 4E 47 20 41 46 20 33 2E 20 47 52 41 44 |SNING AF 3. GRAD|
000001F0: 53 20 4C 49 47 4E 49 4E 47 00 44 0A 40 01 99 22 |S LIGNING.D.@.."|
00000200: 11 12 20 33 20 92 20 4C 30 53 4E 49 4E 47 20 41 |.. 3 . L0SNING A|
00000210: 46 20 4E 20 4C 49 47 4E 49 4E 47 45 52 20 4D 45 |F N LIGNINGER ME|
00000220: 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E |D N|
00000230: 20 55 42 45 4B 45 4E 44 54 45 20 28 4D 41 58 2E | UBEKENDTE (MAX.|
00000240: 20 34 30 29 00 61 0A 4A 01 99 22 11 12 20 34 20 | 40).a.J..".. 4 |
00000250: 92 20 4B 55 52 56 45 54 49 4C 50 41 53 4E 49 4E |. KURVETILPASNIN|
00000260: 47 00 73 0A 4F 01 99 22 11 12 20 35 20 92 20 53 |G.s.O..".. 5 . S|
00000270: 4C 55 54 00 8E 0A 54 01 99 22 11 12 20 20 20 92 |LUT...T..".. .|
00000280: 20 53 56 41 52 20 4D 45 44 20 54 41 4C 22 00 A1 | SVAR MED TAL"..|
00000290: 0A 56 01 A1 53 24 3A 8B 53 24 B2 22 22 A7 33 34 |.V..S$:.S$."".34|
000002A0: 32 00 C2 0A 5E 01 53 56 B2 C5 28 53 24 29 3A 8B |2...^.SV..(S$):.|
000002B0: 53 56 B3 31 B0 53 56 B1 35 A7 99 52 24 3A 89 33 |SV.1.SV.5..R$:.3|
000002C0: 34 30 00 CE 0A 68 01 8B 53 56 B2 35 A7 A2 00 E9 |40...h..SV.5....|
000002D0: 0A 72 01 91 53 56 89 33 30 30 30 2C 34 30 30 30 |.r..SV.3000,4000|
000002E0: 2C 35 38 30 2C 31 39 37 30 00 FE 0A 44 02 8F 2A |,580,1970...D..*|
000002F0: 2A 4E 20 4C 49 47 4E 49 4E 47 45 52 2A 2A 00 3A |*N LIGNINGER**.:|
00000300: 0B 4E 02 4F 24 B2 22 93 11 12 20 20 20 92 20 4E |.N.O$."... . N|
00000310: 20 4C 49 47 4E 49 4E 47 45 52 20 12 20 20 20 20 | LIGNINGER . |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 92 22 3A 99 4F 24 00 69 0B 58 02 99 | .":.O$.i.X..|
00000340: 22 11 4C 30 53 4E 49 4E 47 53 54 49 44 45 4E 20 |".L0SNINGSTIDEN |
00000350: 56 4F 4B 53 45 52 20 4E 41 54 55 52 4C 49 47 56 |VOKSER NATURLIGV|
00000360: 49 53 20 4D 45 44 20 4E 22 00 97 0B 62 02 99 22 |IS MED N"...b.."|
00000370: 4F 47 20 45 52 20 54 59 50 49 53 4B 20 46 4F 52 |OG ER TYPISK FOR|
00000380: 20 4E 3D 31 30 20 31 34 20 53 45 4B 2E 2C 46 4F | N=10 14 SEK.,FO|
00000390: 52 20 4E 3D 32 30 22 00 BB 0B 6C 02 99 22 31 2E |R N=20"...l.."1.|
000003A0: 35 20 4D 49 4E 2E 20 4F 47 20 46 4F 52 20 4E 3D |5 MIN. OG FOR N=|
000003B0: 33 30 20 34 2E 35 20 4D 49 4E 2E 00 E8 0B 76 02 |30 4.5 MIN....v.|
000003C0: 99 22 11 41 4E 54 41 4C 20 4C 49 47 4E 49 4E 47 |.".ANTAL LIGNING|
000003D0: 45 52 3A 20 22 3B 3A 84 39 2C 58 24 3A 4E B2 C5 |ER: ";:.9,X$:N..|
000003E0: 28 58 24 29 3A 99 3A 99 00 FA 0B 7B 02 8B 4E B3 |(X$):.:....{..N.|
000003F0: 32 A7 99 52 24 3A 89 36 33 30 00 25 0C 80 02 8F |2..R$:.630.%....|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 44 49 4D 41 28 4E 2C 4E |********DIMA(N,N|
00000410: 2B 31 29 3A 44 49 4D 42 28 4E 2C 4E 2B 31 29 3A |+1):DIMB(N,N+1):|
00000420: 50 52 49 4E 54 00 39 0C 85 02 8B 41 51 B3 B1 31 |PRINT.9....AQ..1|
00000430: A7 A2 3A 81 54 B2 31 A4 4E 00 54 0C 8A 02 81 52 |..:.T.1.N.T....R|
00000440: B2 31 A4 4E 3A 99 52 3B 22 9D 2E 4C 49 47 4E 49 |.1.N:.R;"..LIGNI|
00000450: 4E 47 3A 22 00 78 0C 94 02 81 53 B2 31 A4 4E 3A |NG:".x....S.1.N:|
00000460: 99 22 4B 4F 45 46 46 49 43 49 45 4E 54 20 54 49 |."KOEFFICIENT TI|
00000470: 4C 20 58 28 22 3B 53 3B 00 A7 0C 9E 02 99 22 29 |L X(";S;......")|
00000480: 3D 22 3B 3A 84 39 2C 49 4E 24 3A 99 3A 8F 2A 2A |=";:.9,IN$:.:.**|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 2C 41 28 52 2C 53 |********* ,A(R,S|
000004A0: 29 3A 50 52 49 4E 54 00 B9 0C A3 02 41 28 52 2C |):PRINT.....A(R,|
000004B0: 53 29 B2 C5 28 49 4E 24 29 00 C0 0C A8 02 82 53 |S)..(IN$)......S|
000004C0: 00 F9 0C B2 02 99 22 48 30 4A 52 45 53 49 44 45 |......"H0JRESIDE|
000004D0: 4E 20 20 20 20 20 20 20 20 20 20 20 20 3D 22 3B |N =";|
000004E0: 3A 84 39 2C 49 4E 24 3A 41 28 52 2C 4E AA 31 29 |:.9,IN$:A(R,N.1)|
000004F0: B2 C5 28 49 4E 24 29 3A 99 00 04 0D BC 02 99 4F |..(IN$):.......O|
00000500: 24 3A 82 52 00 2A 0D C6 02 99 22 4B 4F 4E 54 52 |$:.R.*...."KONTR|
00000510: 4F 4C 20 2D 20 4B 4F 45 46 46 49 43 49 45 4E 54 |OL - KOEFFICIENT|
00000520: 4D 41 54 52 49 43 45 4E 3A 22 00 37 0D D0 02 81 |MATRICEN:".7....|
00000530: 52 B2 31 A4 4E 3A 99 00 52 0D DA 02 81 53 B2 31 |R.1.N:..R....S.1|
00000540: A4 4E AA 31 3A 99 41 28 52 2C 53 29 3B 3A 82 53 |.N.1:.A(R,S);:.S|
00000550: 2C 52 00 76 0D E4 02 99 3A 99 3A 99 22 4B 4F 52 |,R.v....:.:."KOR|
00000560: 52 45 4B 54 20 28 4A 2F 4E 29 3A 20 22 3B 3A 84 |REKT (J/N): ";:.|
00000570: 39 2C 41 24 3A 99 00 86 0D EE 02 8B 41 24 B2 22 |9,A$:.......A$."|
00000580: 4A 22 89 38 32 30 00 97 0D F8 02 8B 41 24 B3 B1 |J".820......A$..|
00000590: 22 4E 22 89 37 34 30 00 CC 0D 02 03 99 3A 99 22 |"N".740......:."|
000005A0: 4E 52 2E 50 5D 20 4C 49 47 4E 49 4E 47 20 44 45 |NR.P] LIGNING DE|
000005B0: 52 20 52 45 54 54 45 53 3A 20 22 3B 3A 84 39 2C |R RETTES: ";:.9,|
000005C0: 58 24 3A 51 B2 C5 28 58 24 29 3A 99 00 DE 0D 07 |X$:Q..(X$):.....|
000005D0: 03 8B 51 B1 4E A7 99 52 24 3A 89 37 37 30 00 04 |..Q.N..R$:.770..|
000005E0: 0E 0C 03 99 3A 99 22 49 22 3B 51 3B 22 4C 49 47 |....:."I";Q;"LIG|
000005F0: 4E 49 4E 47 20 45 52 20 4B 4F 45 46 46 2E 20 4E |NING ER KOEFF. N|
00000600: 55 22 3A 99 00 25 0E 16 03 81 20 53 B2 31 20 A4 |U":..%.... S.1 .|
00000610: 20 4E AA 31 3A 99 41 28 51 2C 53 29 3B 3A 82 20 | N.1:.A(Q,S);:. |
00000620: 53 3A 99 3A 99 00 57 0E 20 03 99 22 48 56 49 4C |S:.:..W. .."HVIL|
00000630: 4B 45 54 20 4E 52 2E 20 4B 4F 45 46 46 49 43 49 |KET NR. KOEFFICI|
00000640: 45 4E 54 20 52 45 54 54 45 53 3A 20 22 3B 3A 84 |ENT RETTES: ";:.|
00000650: 39 2C 55 3A 99 3A 99 00 7C 0E 2A 03 99 22 4E 59 |9,U:.:..|.*.."NY|
00000660: 20 56 5B 52 44 49 3A 20 22 3B 3A 84 39 2C 41 28 | V[RDI: ";:.9,A(|
00000670: 51 2C 55 29 3A 99 3A 89 20 37 31 30 00 9A 0E 34 |Q,U):.:. 710...4|
00000680: 03 99 4F 24 3A 81 20 52 B2 31 20 A4 20 4E 3A 81 |..O$:. R.1 . N:.|
00000690: 20 53 B2 31 20 A4 20 4E AA 31 00 B4 0E 3E 03 42 | S.1 . N.1...>.B|
000006A0: 28 52 2C 53 29 B2 41 28 52 2C 53 29 3A 82 20 53 |(R,S).A(R,S):. S|
000006B0: 3A 82 20 52 00 BE 0E 48 03 8D 32 37 36 30 00 D1 |:. R...H..2760..|
000006C0: 0E 52 03 99 3A 99 22 52 45 53 55 4C 54 41 54 3A |.R..:."RESULTAT:|
000006D0: 22 00 00 0F 5C 03 81 49 B2 31 A4 4E 3A 99 22 58 |"...\..I.1.N:."X|
000006E0: 28 22 49 22 29 3D 22 41 28 49 2C 4E AA 31 29 3A |("I")="A(I,N.1):|
000006F0: 82 49 3A 99 3A 8B 50 24 B2 22 4A 22 A7 39 31 30 |.I:.:.P$."J".910|
00000700: 00 35 0F 66 03 99 22 30 4E 53 4B 45 53 20 4B 4F |.5.f.."0NSKES KO|
00000710: 4E 54 52 4F 4C 20 56 2E 20 49 4E 44 53 5B 54 4E |NTROL V. INDS[TN|
00000720: 49 4E 47 20 28 4A 2F 4E 29 3A 20 22 3B 3A 84 39 |ING (J/N): ";:.9|
00000730: 2C 41 24 3A 99 00 48 0F 70 03 8B 41 24 B2 22 4A |,A$:..H.p..A$."J|
00000740: 22 A7 99 3A 89 39 31 30 00 59 0F 7A 03 8B 41 24 |"..:.910.Y.z..A$|
00000750: B3 B1 22 4E 22 89 38 37 30 00 62 0F 84 03 89 39 |.."N".870.b....9|
00000760: 37 30 00 70 0F 8E 03 81 20 52 B2 31 20 A4 20 4E |70.p.... R.1 . N|
00000770: 00 9A 0F 98 03 99 52 22 4C 49 47 4E 2E 20 4E 55 |......R"LIGN. NU|
00000780: 56 2E 20 48 30 4A 52 45 53 49 44 45 3D 22 42 28 |V. H0JRESIDE="B(|
00000790: 52 2C 4E AA 31 29 3A 48 B2 30 00 A8 0F A2 03 81 |R,N.1):H.0......|
000007A0: 20 53 B2 31 20 A4 20 4E 00 C4 0F AC 03 48 B2 48 | S.1 . N.....H.H|
000007B0: AA 42 28 52 2C 53 29 AC 41 28 53 2C 4E AA 31 29 |.B(R,S).A(S,N.1)|
000007C0: 3A 82 20 53 00 E8 0F B6 03 99 A6 C3 28 C7 28 52 |:. S........(.(R|
000007D0: 29 29 AA 37 29 22 20 56 45 44 20 49 4E 44 53 5B |)).7)" VED INDS[|
000007E0: 54 4E 49 4E 47 3D 22 48 00 12 10 C0 03 82 20 52 |TNING="H...... R|
000007F0: 3A 8F 2A 2A 49 46 50 24 3D 22 4A 22 54 48 45 4E |:.**IFP$="J"THEN|
00000800: 50 52 49 4E 54 23 31 3A 43 4C 4F 53 45 31 3A 45 |PRINT#1:CLOSE1:E|
00000810: 4E 44 00 51 10 CA 03 8F 2A 2A 2A 2A 50 52 49 4E |ND.Q....****PRIN|
00000820: 54 22 11 55 44 53 4B 52 49 46 54 20 50 5D 20 50 |T".UDSKRIFT P] P|
00000830: 52 49 4E 54 45 52 20 28 4A 2F 4E 29 3A 20 22 3B |RINTER (J/N): ";|
00000840: 3A 49 4E 50 55 54 23 39 2C 50 24 3A 50 52 49 4E |:INPUT#9,P$:PRIN|
00000850: 54 00 7A 10 D4 03 8F 2A 2A 49 46 50 24 3D 22 4A |T.z....**IFP$="J|
00000860: 22 54 48 45 4E 4F 50 45 4E 31 2C 34 3A 43 4D 44 |"THENOPEN1,4:CMD|
00000870: 31 3A 47 4F 54 4F 31 30 31 30 00 94 10 D9 03 8F |1:GOTO1010......|
00000880: 2A 2A 2A 2A 49 46 50 24 3C 3E 22 4E 22 47 4F 54 |****IFP$<>"N"GOT|
00000890: 4F 39 37 30 00 A7 10 DE 03 A1 41 24 3A 8B 41 24 |O970......A$:.A$|
000008A0: B2 22 22 A7 39 39 30 00 AF 10 E8 03 89 39 30 00 |."".990......90.|
000008B0: DD 10 F2 03 99 22 4C 30 53 4E 49 4E 47 20 41 46 |....."L0SNING AF|
000008C0: 20 4E 20 4C 49 47 4E 49 4E 47 45 52 20 4D 45 44 | N LIGNINGER MED|
000008D0: 20 4E 20 55 42 45 4B 45 4E 44 54 45 22 00 06 11 | N UBEKENDTE"...|
000008E0: FC 03 99 22 44 45 4E 20 49 4E 44 54 41 53 54 45 |..."DEN INDTASTE|
000008F0: 44 45 20 4B 4F 45 46 46 49 43 49 45 4E 54 4D 41 |DE KOEFFICIENTMA|
00000900: 54 52 49 58 3A 22 00 13 11 06 04 81 52 B2 31 A4 |TRIX:"......R.1.|
00000910: 4E 3A 99 00 2E 11 10 04 81 53 B2 31 A4 4E AA 31 |N:.......S.1.N.1|
00000920: 3A 99 42 28 52 2C 53 29 3B 3A 82 53 2C 52 00 3C |:.B(R,S);:.S,R.<|
00000930: 11 1A 04 8B 41 51 B2 31 A7 38 35 30 00 78 11 B2 |....AQ.1.850.x..|
00000940: 07 4F 24 B2 22 93 11 12 20 20 20 92 20 4B 55 52 |.O$."... . KUR|
00000950: 56 45 54 49 4C 50 41 53 4E 49 4E 47 20 12 20 20 |VETILPASNING . |
00000960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000970: 20 20 92 22 3A 99 4F 24 00 A7 11 BC 07 99 22 46 | .":.O$......"F|
00000980: 4F 52 20 44 45 20 47 49 56 4E 45 20 50 55 4E 4B |OR DE GIVNE PUNK|
00000990: 54 45 52 20 46 49 4E 44 45 53 20 44 45 54 20 50 |TER FINDES DET P|
000009A0: 4F 4C 59 4E 4F 2D 22 00 D6 11 C6 07 99 22 4D 49 |OLYNO-"......"MI|
000009B0: 55 4D 20 41 46 20 4E 27 54 45 20 47 52 41 44 2C |UM AF N'TE GRAD,|
000009C0: 20 44 45 52 20 45 46 54 45 52 20 44 45 20 4D 49 | DER EFTER DE MI|
000009D0: 4E 44 53 54 45 22 00 03 12 D0 07 99 22 4B 56 41 |NDSTE"......"KVA|
000009E0: 44 52 41 54 45 52 53 20 4D 45 54 4F 44 45 20 42 |DRATERS METODE B|
000009F0: 45 44 53 54 20 54 49 4C 50 41 53 53 45 52 20 53 |EDST TILPASSER S|
00000A00: 49 47 22 00 15 12 DA 07 99 22 50 55 4E 4B 54 45 |IG"......"PUNKTE|
00000A10: 52 4E 45 2E 22 00 41 12 E4 07 99 22 4E 20 41 4E |RNE.".A...."N AN|
00000A20: 54 41 47 45 52 20 56 5B 52 44 49 45 52 4E 45 20 |TAGER V[RDIERNE |
00000A30: 32 2C 33 2C 34 20 2D 20 2D 20 4F 50 20 54 49 4C |2,3,4 - - OP TIL|
00000A40: 22 00 5E 12 EE 07 99 22 45 4E 20 56 41 4C 47 54 |".^...."EN VALGT|
00000A50: 20 30 56 52 45 20 47 52 5B 4E 53 45 2E 22 00 8D | 0VRE GR[NSE."..|
00000A60: 12 F8 07 99 3A 99 22 41 4C 54 45 52 4E 41 54 49 |....:."ALTERNATI|
00000A70: 56 54 20 4B 41 4E 20 53 30 47 45 53 20 54 49 4C |VT KAN S0GES TIL|
00000A80: 50 41 53 4E 49 4E 47 20 4D 45 44 20 22 00 B8 12 |PASNING MED "...|
00000A90: 02 08 99 22 45 4E 20 46 55 4E 4B 54 49 4F 4E 20 |..."EN FUNKTION |
00000AA0: 41 46 20 54 59 50 45 4E 20 59 3D 41 2B 42 2A 45 |AF TYPEN Y=A+B*E|
00000AB0: 58 50 28 58 29 22 3A 99 00 D7 12 0C 08 99 22 56 |XP(X)":......."V|
00000AC0: 5B 4C 47 45 53 20 20 20 20 20 31 2E 50 4F 4C 59 |[LGES 1.POLY|
00000AD0: 4E 4F 4D 49 55 4D 22 00 FF 12 16 08 99 22 45 4C |NOMIUM"......"EL|
00000AE0: 4C 45 52 20 20 20 20 20 20 32 2E 45 58 50 4F 4E |LER 2.EXPON|
00000AF0: 45 4E 54 49 41 4C 46 55 4E 4B 54 49 4F 4E 22 00 |ENTIALFUNKTION".|
00000B00: 29 13 20 08 99 22 11 54 41 53 54 20 31 20 45 4C |). ..".TAST 1 EL|
00000B10: 4C 45 52 20 32 3A 20 22 3B 3A 84 39 2C 58 24 3A |LER 2: ";:.9,X$:|
00000B20: 54 B2 C5 28 58 24 29 3A 99 00 42 13 2A 08 8B 54 |T..(X$):..B.*..T|
00000B30: B3 B1 31 AF 54 B3 B1 32 A7 99 52 24 3A 89 32 30 |..1.T..2..R$:.20|
00000B40: 38 30 00 7C 13 34 08 99 22 11 41 4E 54 41 4C 20 |80.|.4..".ANTAL |
00000B50: 50 55 4E 4B 54 45 52 20 28 4D 49 4E 2E 20 33 20 |PUNKTER (MIN. 3 |
00000B60: 20 4D 41 58 2E 20 31 35 29 20 22 3B 3A 84 39 2C | MAX. 15) ";:.9,|
00000B70: 58 24 3A 4E B2 C5 28 58 24 29 3A 99 00 94 13 39 |X$:N..(X$):....9|
00000B80: 08 8B 4E B3 33 B0 4E B1 31 35 A7 99 52 24 3A 89 |..N.3.N.15..R$:.|
00000B90: 32 31 30 30 00 AF 13 3E 08 99 4F 24 3A 8F 2A 2A |2100...>..O$:.**|
00000BA0: 2A 2A 2A 44 49 4D 58 28 4E 29 2C 59 28 4E 29 00 |***DIMX(N),Y(N).|
00000BB0: BF 13 48 08 81 49 B2 31 A4 4E 3A 99 20 49 3B 00 |..H..I.1.N:. I;.|
00000BC0: E6 13 52 08 99 22 50 55 4E 4B 54 3A 20 58 20 3D |..R.."PUNKT: X =|
00000BD0: 20 22 3B 3A 84 39 2C 58 24 3A 58 28 49 29 B2 C5 | ";:.9,X$:X(I)..|
00000BE0: 28 58 24 29 3A 99 00 F7 13 5C 08 99 A3 31 30 29 |(X$):....\...10)|
00000BF0: 22 59 20 3D 20 22 3B 00 13 14 66 08 84 39 2C 58 |"Y = ";...f..9,X|
00000C00: 24 3A 59 28 49 29 B2 C5 28 58 24 29 3A 99 3A 82 |$:Y(I)..(X$):.:.|
00000C10: 49 3A 99 00 21 14 70 08 8B 54 B2 32 89 32 35 32 |I:..!.p..T.2.252|
00000C20: 30 00 54 14 7A 08 99 22 53 54 30 52 53 54 45 20 |0.T.z.."ST0RSTE |
00000C30: 56 5B 52 44 49 20 46 4F 52 20 4E 20 20 22 3B 3A |V[RDI FOR N ";:|
00000C40: 84 39 2C 58 24 3A 57 B2 C5 28 58 24 29 3A 99 3A |.9,X$:W..(X$):.:|
00000C50: 4D 32 B2 32 00 83 14 84 08 8F 2A 2A 2A 2A 2A 20 |M2.2......***** |
00000C60: 44 49 4D 50 28 32 2A 57 29 2C 41 45 28 57 2B 31 |DIMP(2*W),AE(W+1|
00000C70: 29 2C 42 28 57 2B 31 29 2C 41 28 57 2B 31 2C 57 |),B(W+1),A(W+1,W|
00000C80: 2B 32 29 00 98 14 8E 08 81 52 B2 30 A4 32 AC 4D |+2)......R.0.2.M|
00000C90: 32 3A 50 28 52 29 B2 30 00 B0 14 98 08 8B 52 B3 |2:P(R).0......R.|
00000CA0: B2 4D 32 A7 42 31 28 52 AA 31 29 B2 30 3A 82 52 |.M2.B1(R.1).0:.R|
00000CB0: 00 CA 14 A2 08 82 52 3A 81 49 B2 31 A4 4E 3A 50 |......R:.I.1.N:P|
00000CC0: 45 B2 31 3A 51 B2 59 28 49 29 00 E5 14 AC 08 81 |E.1:Q.Y(I)......|
00000CD0: 52 B2 30 A4 32 AC 4D 32 3A 50 28 52 29 B2 50 28 |R.0.2.M2:P(R).P(|
00000CE0: 52 29 AA 50 45 00 02 15 B6 08 8B 52 B3 B2 4D 32 |R).PE......R..M2|
00000CF0: A7 42 31 28 52 AA 31 29 B2 42 31 28 52 AA 31 29 |.B1(R.1).B1(R.1)|
00000D00: AA 51 00 1F 15 C0 08 50 45 B2 50 45 AC 58 28 49 |.Q.....PE.PE.X(I|
00000D10: 29 3A 51 B2 51 AC 58 28 49 29 3A 82 52 2C 49 00 |):Q.Q.X(I):.R,I.|
00000D20: 37 15 CA 08 81 4B B2 31 A4 4D 32 AA 31 3A 81 4A |7....K.1.M2.1:.J|
00000D30: B2 31 A4 4D 32 AA 31 00 50 15 D4 08 41 28 4B 2C |.1.M2.1.P...A(K,|
00000D40: 4A 29 B2 50 28 4B AA 4A AB 32 29 3A 82 4A 2C 4B |J).P(K.J.2):.J,K|
00000D50: 00 71 15 DE 08 81 4B B2 31 A4 4D 32 AA 31 3A 41 |.q....K.1.M2.1:A|
00000D60: 28 4B 2C 4D 32 AA 32 29 B2 42 31 28 4B 29 3A 82 |(K,M2.2).B1(K):.|
00000D70: 4B 00 8C 15 E8 08 4E 31 B2 4E 3A 4E B2 4D 32 AA |K.....N1.N:N.M2.|
00000D80: 31 3A 8D 32 37 36 30 3A 4E B2 4E 31 00 94 15 F2 |1:.2760:N.N1....|
00000D90: 08 99 4F 24 00 C1 15 FC 08 99 22 50 4F 4C 59 4E |..O$......"POLYN|
00000DA0: 4F 4D 49 45 54 20 41 46 22 4D 32 22 47 52 41 44 |OMIET AF"M2"GRAD|
00000DB0: 20 47 45 4E 4E 45 4D 20 44 45 20 47 49 56 4E 45 | GENNEM DE GIVNE|
00000DC0: 22 00 D4 15 06 09 99 4E 22 50 55 4E 4B 54 45 52 |"......N"PUNKTER|
00000DD0: 3A 22 3A 99 00 FE 15 10 09 99 22 20 20 20 20 20 |:":......." |
00000DE0: 4B 4F 4E 53 54 41 4E 54 45 20 4C 45 44 20 20 20 |KONSTANTE LED |
00000DF0: 20 20 20 3D 22 41 28 31 2C 4D 32 AA 32 29 00 37 | ="A(1,M2.2).7|
00000E00: 16 1A 09 81 49 B2 32 A4 4D 32 AA 31 3A 99 22 4B |....I.2.M2.1:."K|
00000E10: 4F 45 46 46 49 43 49 45 4E 54 45 4E 20 54 49 4C |OEFFICIENTEN TIL|
00000E20: 20 58 20 5E 22 49 AB 31 22 3D 22 41 28 49 2C 4D | X ^"I.1"="A(I,M|
00000E30: 32 AA 32 29 3A 82 49 00 4B 16 24 09 8B 50 24 B2 |2.2):.I.K.$..P$.|
00000E40: 22 4A 22 A7 99 3A 89 32 33 38 30 00 7B 16 2E 09 |"J"..:.2380.{...|
00000E50: 99 22 11 4B 4F 4E 54 52 4F 4C 20 41 46 20 59 2D |.".KONTROL AF Y-|
00000E60: 56 5B 52 44 49 45 52 20 28 4A 2F 4E 29 3A 20 22 |V[RDIER (J/N): "|
00000E70: 3B 3A 84 39 2C 41 24 3A 99 3A 99 00 8C 16 38 09 |;:.9,A$:.:....8.|
00000E80: 8B 41 24 B2 22 4E 22 A7 32 34 34 30 00 9E 16 42 |.A$."N".2440...B|
00000E90: 09 8B 41 24 B3 B1 22 4A 22 A7 32 33 35 30 00 C0 |..A$.."J".2350..|
00000EA0: 16 4C 09 99 22 20 20 58 22 2C 22 59 47 49 56 45 |.L.." X","YGIVE|
00000EB0: 54 22 2C 22 59 42 45 52 45 47 4E 45 54 22 3A 99 |T","YBEREGNET":.|
00000EC0: 00 DA 16 56 09 81 49 B2 31 A4 4E 3A 51 B2 41 28 |...V..I.1.N:Q.A(|
00000ED0: 4D 32 AA 31 2C 4D 32 AA 32 29 00 FC 16 60 09 81 |M2.1,M2.2)...`..|
00000EE0: 4A B2 4D 32 A4 31 A9 AB 31 3A 51 B2 51 AC 58 28 |J.M2.1..1:Q.Q.X(|
00000EF0: 49 29 AA 41 28 4A 2C 4D 32 AA 32 29 00 13 17 6A |I).A(J,M2.2)...j|
00000F00: 09 82 4A 3A 99 58 28 49 29 2C 59 28 49 29 2C 51 |..J:.X(I),Y(I),Q|
00000F10: 3A 82 49 00 36 17 74 09 8F 2A 2A 2A 49 46 50 24 |:.I.6.t..***IFP$|
00000F20: 3D 22 4A 22 54 48 45 4E 50 52 49 4E 54 23 31 3A |="J"THENPRINT#1:|
00000F30: 43 4C 4F 53 45 31 00 5A 17 7E 09 8F 2A 2A 2A 49 |CLOSE1.Z.~..***I|
00000F40: 46 50 24 3D 22 4A 22 54 48 45 4E 50 24 3D 22 4E |FP$="J"THENP$="N|
00000F50: 22 3A 47 4F 54 4F 32 34 37 30 00 98 17 88 09 8F |":GOTO2470......|
00000F60: 2A 2A 2A 50 52 49 4E 54 22 11 55 44 53 4B 52 49 |***PRINT".UDSKRI|
00000F70: 46 54 20 50 5D 20 50 52 49 4E 54 45 52 20 28 4A |FT P] PRINTER (J|
00000F80: 2F 4E 29 3A 20 22 3B 3A 49 4E 50 55 54 23 39 2C |/N): ";:INPUT#9,|
00000F90: 50 24 3A 50 52 49 4E 54 00 C0 17 92 09 8F 2A 49 |P$:PRINT......*I|
00000FA0: 46 50 24 3D 22 4A 22 54 48 45 4E 4F 50 45 4E 31 |FP$="J"THENOPEN1|
00000FB0: 2C 34 3A 43 4D 44 31 3A 47 4F 54 4F 32 32 39 30 |,4:CMD1:GOTO2290|
00000FC0: 00 DA 17 9C 09 8F 2A 2A 2A 49 46 50 24 3C 3E 22 |......***IFP$<>"|
00000FD0: 4E 22 47 4F 54 4F 32 34 34 30 00 F6 17 A1 09 8B |N"GOTO2440......|
00000FE0: 41 24 B2 22 4A 22 A7 A1 50 24 3A 8B 50 24 B2 22 |A$."J"..P$:.P$."|
00000FF0: 22 A7 32 34 36 35 00 03 18 A6 09 8B 4D 32 B2 57 |".2465......M2.W|
00001000: A7 39 30 00 2B 18 B0 09 99 22 11 4E 59 54 20 50 |.90.+....".NYT P|
00001010: 4F 4C 59 4E 4F 4D 49 55 4D 20 28 4A 2F 4E 29 3A |OLYNOMIUM (J/N):|
00001020: 20 22 3B 3A 84 39 2C 41 24 3A 99 00 45 18 BA 09 | ";:.9,A$:..E...|
00001030: 8B 41 24 B2 22 4A 22 A7 4D 32 B2 4D 32 AA 31 3A |.A$."J".M2.M2.1:|
00001040: 89 32 31 39 30 00 5D 18 C4 09 8B 41 24 B3 B1 22 |.2190.]....A$.."|
00001050: 4E 22 B0 41 51 B3 B1 31 A7 32 34 38 30 00 65 18 |N".AQ..1.2480.e.|
00001060: CE 09 89 39 30 00 81 18 D8 09 86 4B 28 32 2C 33 |...90......K(2,3|
00001070: 29 3A 4B 28 31 2C 31 29 B2 4E 3A 81 49 B2 31 A4 |):K(1,1).N:.I.1.|
00001080: 4E 00 9B 18 E2 09 4B 28 31 2C 32 29 B2 4B 28 31 |N.....K(1,2).K(1|
00001090: 2C 32 29 AA BD 28 58 28 49 29 29 00 B2 18 EC 09 |,2)..(X(I)).....|
000010A0: 4B 28 31 2C 33 29 B2 4B 28 31 2C 33 29 AA 59 28 |K(1,3).K(1,3).Y(|
000010B0: 49 29 00 CE 18 F6 09 4B 28 32 2C 32 29 B2 4B 28 |I).....K(2,2).K(|
000010C0: 32 2C 32 29 AA BD 28 32 AC 58 28 49 29 29 00 F0 |2,2)..(2.X(I))..|
000010D0: 18 00 0A 4B 28 32 2C 33 29 B2 4B 28 32 2C 33 29 |...K(2,3).K(2,3)|
000010E0: AA BD 28 58 28 49 29 29 AC 59 28 49 29 3A 82 49 |..(X(I)).Y(I):.I|
000010F0: 00 02 19 0A 0A 4B 28 32 2C 31 29 B2 4B 28 31 2C |.....K(2,1).K(1,|
00001100: 32 29 00 24 19 14 0A 44 B2 4B 28 31 2C 31 29 AC |2).$...D.K(1,1).|
00001110: 4B 28 32 2C 32 29 AB 4B 28 31 2C 32 29 AC 4B 28 |K(2,2).K(1,2).K(|
00001120: 32 2C 31 29 00 4A 19 1E 0A 41 B2 28 4B 28 31 2C |2,1).J...A.(K(1,|
00001130: 33 29 AC 4B 28 32 2C 32 29 AB 4B 28 31 2C 32 29 |3).K(2,2).K(1,2)|
00001140: AC 4B 28 32 2C 33 29 29 AD 44 00 70 19 28 0A 42 |.K(2,3)).D.p.(.B|
00001150: B2 28 4B 28 31 2C 31 29 AC 4B 28 32 2C 33 29 AB |.(K(1,1).K(2,3).|
00001160: 4B 28 31 2C 33 29 AC 4B 28 32 2C 31 29 29 AD 44 |K(1,3).K(2,1)).D|
00001170: 00 78 19 32 0A 99 4F 24 00 97 19 3C 0A 99 3A 99 |.x.2..O$...<..:.|
00001180: 22 44 45 4E 20 53 30 47 54 45 20 46 55 4E 4B 54 |"DEN S0GTE FUNKT|
00001190: 49 4F 4E 3A 22 3A 99 00 A7 19 46 0A 8B 42 B1 30 |ION:":....F..B.0|
000011A0: A7 42 24 B2 22 2B 22 00 C4 19 50 0A 99 22 20 20 |.B$."+"...P.." |
000011B0: 59 3D 22 41 3B 42 24 3B 42 22 2A 45 58 50 28 58 |Y="A;B$;B"*EXP(X|
000011C0: 29 22 3A 99 00 D5 19 5A 0A 8B 50 24 B2 22 4A 22 |)":....Z..P$."J"|
000011D0: A7 32 36 39 30 00 02 1A 64 0A 99 22 4B 4F 4E 54 |.2690...d.."KONT|
000011E0: 52 4F 4C 20 41 46 20 59 2D 56 5B 52 44 49 45 52 |ROL AF Y-V[RDIER|
000011F0: 20 28 4A 2F 4E 29 3A 20 22 3B 3A 84 39 2C 41 24 | (J/N): ";:.9,A$|
00001200: 3A 99 00 13 1A 6E 0A 8B 41 24 B2 22 4E 22 A7 32 |:....n..A$."N".2|
00001210: 37 32 30 00 25 1A 78 0A 8B 41 24 B3 B1 22 4A 22 |720.%.x..A$.."J"|
00001220: A7 32 36 36 30 00 49 1A 82 0A 99 3A 99 22 20 20 |.2660.I....:." |
00001230: 58 22 2C 22 59 47 49 56 45 54 22 2C 22 59 42 45 |X","YGIVET","YBE|
00001240: 52 45 47 4E 45 54 22 3A 99 00 6E 1A 8C 0A 81 49 |REGNET":..n....I|
00001250: B2 31 A4 4E 3A 99 58 28 49 29 2C 59 28 49 29 2C |.1.N:.X(I),Y(I),|
00001260: 41 AA 42 AC BD 28 58 28 49 29 29 3A 82 49 00 94 |A.B..(X(I)):.I..|
00001270: 1A 96 0A 8F 2A 2A 49 46 50 24 3D 22 4A 22 54 48 |....**IFP$="J"TH|
00001280: 45 4E 50 52 49 4E 54 23 31 3A 43 4C 4F 53 45 31 |ENPRINT#1:CLOSE1|
00001290: 3A 45 4E 44 00 D1 1A A0 0A 8F 2A 2A 50 52 49 4E |:END......**PRIN|
000012A0: 54 22 11 55 44 53 4B 52 49 46 54 20 50 5D 20 50 |T".UDSKRIFT P] P|
000012B0: 52 49 4E 54 45 52 20 28 4A 2F 4E 29 3A 20 22 3B |RINTER (J/N): ";|
000012C0: 3A 49 4E 50 55 54 23 39 2C 50 24 3A 50 52 49 4E |:INPUT#9,P$:PRIN|
000012D0: 54 00 FC 1A AA 0A 8F 2A 2A 2A 2A 49 46 50 24 3D |T......****IFP$=|
000012E0: 22 4A 22 54 48 45 4E 4F 50 45 4E 31 2C 34 3A 43 |"J"THENOPEN1,4:C|
000012F0: 4D 44 31 3A 47 4F 54 4F 32 36 31 30 00 17 1B B4 |MD1:GOTO2610....|
00001300: 0A 8F 2A 2A 2A 2A 49 46 50 24 3C 3E 22 4E 22 47 |..****IFP$<>"N"G|
00001310: 4F 54 4F 32 37 32 30 00 2B 1B BE 0A A1 41 24 3A |OTO2720.+....A$:|
00001320: 8B 41 24 B2 22 22 A7 32 37 35 30 00 33 1B C3 0A |.A$."".2750.3...|
00001330: 89 39 30 00 51 1B C8 0A 81 52 B2 31 A4 4E AB 31 |.90.Q....R.1.N.1|
00001340: 3A 4D 31 B2 B6 28 41 28 52 2C 52 29 29 3A 4B B2 |:M1..(A(R,R)):K.|
00001350: 52 00 5E 1B D2 0A 81 49 B2 52 AA 31 A4 4E 00 76 |R.^....I.R.1.N.v|
00001360: 1B DC 0A 8B B6 28 41 28 49 2C 52 29 29 B3 B2 4D |.....(A(I,R))..M|
00001370: 31 89 32 38 30 30 00 8B 1B E6 0A 4D 31 B2 B6 28 |1.2800.....M1..(|
00001380: 41 28 49 2C 52 29 29 3A 4B B2 49 00 92 1B F0 0A |A(I,R)):K.I.....|
00001390: 82 49 00 C1 1B FA 0A 8B B6 28 4D 31 29 B3 31 45 |.I.......(M1).1E|
000013A0: AB 36 A7 99 22 4C 49 47 4E 49 4E 47 53 53 59 53 |.6.."LIGNINGSSYS|
000013B0: 54 45 4D 45 54 20 55 53 54 41 42 49 4C 54 22 3A |TEMET USTABILT":|
000013C0: 8E 00 CF 1B 04 0B 8B 4B B2 52 89 32 38 36 30 00 |.......K.R.2860.|
000013D0: DC 1B 0E 0B 81 49 B2 52 A4 4E AA 31 00 00 1C 18 |.....I.R.N.1....|
000013E0: 0B 4D B2 41 28 52 2C 49 29 3A 41 28 52 2C 49 29 |.M.A(R,I):A(R,I)|
000013F0: B2 41 28 4B 2C 49 29 3A 41 28 4B 2C 49 29 B2 4D |.A(K,I):A(K,I).M|
00001400: 00 07 1C 22 0B 82 49 00 25 1C 2C 0B 81 49 B2 52 |..."..I.%.,..I.R|
00001410: AA 31 A4 4E 3A 4B 31 B2 41 28 49 2C 52 29 AD 41 |.1.N:K1.A(I,R).A|
00001420: 28 52 2C 52 29 00 32 1C 36 0B 81 4A B2 52 A4 4E |(R,R).2.6..J.R.N|
00001430: AA 31 00 4E 1C 40 0B 41 28 49 2C 4A 29 B2 41 28 |.1.N.@.A(I,J).A(|
00001440: 49 2C 4A 29 AB 4B 31 AC 41 28 52 2C 4A 29 00 59 |I,J).K1.A(R,J).Y|
00001450: 1C 4A 0B 82 4A 2C 49 2C 52 00 92 1C 4B 0B 8B 41 |.J..J,I,R...K..A|
00001460: 28 4E 2C 4E 29 B2 30 A7 99 22 11 46 4F 52 4B 45 |(N,N).0..".FORKE|
00001470: 52 54 20 49 4E 44 54 41 53 54 4E 49 4E 47 20 21 |RT INDTASTNING !|
00001480: 22 3A 81 49 B2 31 A4 32 35 30 30 3A 82 3A 89 35 |":.I.1.2500:.:.5|
00001490: 38 30 00 AF 1C 54 0B 41 28 4E 2C 4E AA 31 29 B2 |80...T.A(N,N.1).|
000014A0: 41 28 4E 2C 4E AA 31 29 AD 41 28 4E 2C 4E 29 00 |A(N,N.1).A(N,N).|
000014B0: CA 1C 5E 0B 81 49 B2 4E AB 31 A4 31 A9 AB 31 3A |..^..I.N.1.1..1:|
000014C0: 53 B2 41 28 49 2C 4E AA 31 29 00 D7 1C 68 0B 81 |S.A(I,N.1)...h..|
000014D0: 4D B2 49 AA 31 A4 4E 00 F2 1C 72 0B 53 B2 53 AB |M.I.1.N...r.S.S.|
000014E0: 41 28 49 2C 4D 29 AC 41 28 4D 2C 4E AA 31 29 3A |A(I,M).A(M,N.1):|
000014F0: 82 4D 00 08 1D 7C 0B 41 28 49 2C 4E AA 31 29 B2 |.M...|.A(I,N.1).|
00001500: 53 AD 41 28 49 2C 49 29 00 18 1D 81 0B 8B 41 51 |S.A(I,I)......AQ|
00001510: B3 B1 31 A7 33 30 30 30 00 21 1D 86 0B 82 49 3A |..1.3000.!....I:|
00001520: 8E 00 3F 1D B8 0B 8F 2A 2A 2A 32 2E 20 47 52 41 |..?....***2. GRA|
00001530: 44 53 20 4C 49 47 4E 49 4E 47 45 52 2A 2A 2A 00 |DS LIGNINGER***.|
00001540: 7B 1D C2 0B 4F 24 B2 22 93 11 12 20 20 20 92 20 |{...O$."... . |
00001550: 32 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E 47 |2. GRADS LIGNING|
00001560: 20 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00001570: 20 20 20 20 20 92 22 3A 99 4F 24 00 92 1D CC 0B | .":.O$.....|
00001580: 99 22 11 41 2A 58 91 32 11 2B 42 2A 58 2B 43 3D |.".A*X.2.+B*X+C=|
00001590: 30 22 00 B1 1D 12 0C 99 22 11 4B 4F 45 46 46 49 |0"......".KOEFFI|
000015A0: 43 49 45 4E 54 45 4E 20 54 49 4C 20 58 91 32 11 |CIENTEN TIL X.2.|
000015B0: 22 00 E1 1D 1C 0C 99 22 41 20 4D 45 44 20 46 4F |"......"A MED FO|
000015C0: 52 54 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 |RTEGN |
000015D0: 20 20 20 20 20 3A 20 22 3B 3A 84 39 2C 41 24 3A | : ";:.9,A$:|
000015E0: 99 00 ED 1D 21 0C 41 B2 C5 28 41 24 29 00 0D 1E |....!.A..(A$)...|
000015F0: 24 0C 99 22 11 11 4B 4F 45 46 46 49 43 49 45 4E |$.."..KOEFFICIEN|
00001600: 54 45 4E 20 54 49 4C 20 58 20 20 20 22 00 3F 1E |TEN TIL X ".?.|
00001610: 26 0C 99 22 42 20 4D 45 44 20 46 4F 52 54 45 47 |&.."B MED FORTEG|
00001620: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N |
00001630: 20 3A 20 22 3B 3A 84 39 2C 42 24 3A 99 3A 99 00 | : ";:.9,B$:.:..|
00001640: 5E 1E 2B 0C 42 B2 C5 28 42 24 29 3A 8B 42 B2 B1 |^.+.B..(B$):.B..|
00001650: 30 A7 42 24 B2 22 9D 2B 22 AA C4 28 42 29 00 81 |0.B$.".+"..(B)..|
00001660: 1E 2E 0C 99 22 11 44 45 54 20 52 45 4E 45 20 54 |....".DET RENE T|
00001670: 41 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |AL |
00001680: 22 00 B1 1E 30 0C 99 22 43 20 4D 45 44 20 46 4F |"...0.."C MED FO|
00001690: 52 54 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 |RTEGN |
000016A0: 20 20 20 20 20 3A 20 22 3B 3A 84 39 2C 43 24 3A | : ";:.9,C$:|
000016B0: 99 00 D0 1E 35 0C 43 B2 C5 28 43 24 29 3A 8B 43 |....5.C..(C$):.C|
000016C0: B2 B1 30 A7 43 24 B2 22 20 2B 22 AA C4 28 43 29 |..0.C$." +"..(C)|
000016D0: 00 F6 1E 4E 0C 4C 24 B2 41 24 AA 22 2A 58 91 32 |...N.L$.A$."*X.2|
000016E0: 11 20 22 AA 42 24 AA 22 2A 58 20 22 AA 43 24 AA |. ".B$."*X ".C$.|
000016F0: 22 20 3D 20 30 22 00 05 1F 80 0C 99 4F 24 3A 99 |" = 0"......O$:.|
00001700: 22 11 22 4C 24 00 29 1F 8A 0C 99 22 11 45 52 20 |"."L$.)....".ER |
00001710: 4C 49 47 4E 49 4E 47 45 4E 20 4B 4F 52 52 45 4B |LIGNINGEN KORREK|
00001720: 54 20 28 4A 2F 4E 29 20 22 00 3D 1F 8F 0C A1 53 |T (J/N) ".=....S|
00001730: 24 3A 8B 53 24 B2 22 22 A7 33 32 31 35 00 4F 1F |$:.S$."".3215.O.|
00001740: 94 0C 8B 53 24 B3 B1 22 4A 22 A7 33 30 30 30 00 |...S$.."J".3000.|
00001750: 82 1F 99 0C 8B 41 B2 30 A7 99 22 11 44 45 54 20 |.....A.0..".DET |
00001760: 45 52 20 49 4B 4B 45 20 45 4E 20 32 2E 20 47 52 |ER IKKE EN 2. GR|
00001770: 41 44 53 4C 49 47 4E 49 4E 47 21 22 3A 89 33 36 |ADSLIGNING!":.36|
00001780: 30 30 00 91 1F 9E 0C 99 4F 24 3A 99 22 11 22 4C |00......O$:."."L|
00001790: 24 00 AC 1F E4 0C 8F 2A 42 45 52 45 47 4E 49 4E |$......*BEREGNIN|
000017A0: 47 20 41 46 20 52 30 44 44 45 52 2A 00 C7 1F EE |G AF R0DDER*....|
000017B0: 0C 44 B2 42 AC 42 AB 34 AC 41 AC 43 3A 8B 44 B2 |.D.B.B.4.A.C:.D.|
000017C0: B1 30 A7 33 33 32 30 00 F1 1F F0 0C 8F 2A 2A 50 |.0.3320......**P|
000017D0: 52 49 4E 54 22 11 44 45 52 20 45 52 20 49 4E 47 |RINT".DER ER ING|
000017E0: 45 4E 20 52 45 45 4C 4C 45 20 52 30 44 44 45 52 |EN REELLE R0DDER|
000017F0: 22 00 00 20 F2 0C 8F 2A 47 4F 54 4F 33 36 30 30 |".. ...*GOTO3600|
00001800: 00 1E 20 F8 0C 99 22 20 11 11 20 20 2D 42 91 2B |.. ..." .. -B.+|
00001810: 11 9D 2D 20 CD CE 91 CE B7 B7 B7 B7 B7 B7 00 37 |..- ...........7|
00001820: 20 02 0D 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 42 | ..."..........B|
00001830: 91 32 11 2D 34 41 43 00 4E 20 0C 0D 99 22 58 3D |.2.-4AC.N ..."X=|
00001840: 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 5F | .............._|
00001850: 20 16 0D 99 22 20 20 20 20 20 20 20 20 32 41 00 | ..." 2A.|
00001860: 89 20 1B 0D 4F 53 B2 32 AA C3 28 C4 28 A5 54 33 |. ..OS.2..(.(.T3|
00001870: 28 42 AC 42 29 29 29 AA C3 28 C4 28 A5 54 33 28 |(B.B)))..(.(.T3(|
00001880: AB 34 AC 41 AC 43 29 29 29 00 A3 20 20 0D 81 49 |.4.A.C))).. ..I|
00001890: B2 31 A4 4F 53 3A 4F 53 24 B2 4F 53 24 AA 22 B7 |.1.OS:OS$.OS$.".|
000018A0: 22 3A 82 00 CB 20 25 0D 4C 32 24 B2 22 20 20 20 |":... %.L2$." |
000018B0: 20 22 AA C4 28 AB 31 AC 42 29 AA 22 91 2B 11 9D | "..(.1.B).".+..|
000018C0: 2D 20 CD CE 91 CE 22 AA 4F 53 24 00 DB 20 5C 0D |- ....".OS$.. \.|
000018D0: 99 22 11 11 22 3B 3A 99 4C 32 24 00 07 21 61 0D |."..";:.L2$..!a.|
000018E0: 50 B2 C3 28 C4 28 AB 31 AC 42 29 29 AA 38 3A 44 |P..(.(.1.B)).8:D|
000018F0: 31 B2 A5 54 33 28 AB 34 AC 41 AC 43 29 3A 44 31 |1..T3(.4.A.C):D1|
00001900: 24 B2 C4 28 44 31 29 00 1E 21 64 0D 8B 44 31 B2 |$..(D1)..!d..D1.|
00001910: B1 30 A7 44 31 24 B2 22 2B 22 AA 44 31 24 00 46 |.0.D1$."+".D1$.F|
00001920: 21 66 0D 99 A3 50 29 A5 54 33 28 42 AE 32 29 3B |!f...P).T3(B.2);|
00001930: 3A 99 44 31 24 3A 8F 2A 2A 2A 46 4E 54 33 28 2D |:.D1$:.***FNT3(-|
00001940: 34 2A 41 2A 43 29 00 68 21 70 0D 99 22 58 3D 20 |4*A*C).h!p.."X= |
00001950: 22 3B 3A 81 49 B2 31 A4 4F 53 AA 50 AB 32 3A 99 |";:.I.1.OS.P.2:.|
00001960: 22 C0 22 3B 3A 82 3A 99 00 85 21 7A 0D 99 A3 31 |".";:.:...!z...1|
00001970: 30 29 A5 54 33 28 32 AC 41 29 3A 8B 44 B2 B1 30 |0).T3(2.A):.D..0|
00001980: A7 33 35 30 30 00 A8 21 84 0D 99 22 11 44 45 52 |.3500..!...".DER|
00001990: 20 45 52 20 49 4E 47 45 4E 20 52 45 45 4C 4C 45 | ER INGEN REELLE|
000019A0: 20 52 30 44 44 45 52 22 00 E7 21 8E 0D 99 22 11 | R0DDER"..!...".|
000019B0: 53 54 30 52 52 45 4C 53 45 4E 20 55 4E 44 45 52 |ST0RRELSEN UNDER|
000019C0: 20 4B 56 41 44 52 41 54 52 4F 44 53 54 45 47 4E | KVADRATRODSTEGN|
000019D0: 45 54 20 45 52 20 20 20 4E 45 47 41 54 49 56 2E |ET ER NEGATIV.|
000019E0: 22 3A 89 33 36 30 30 00 06 22 AC 0D 58 31 B2 28 |":.3600.."..X1.(|
000019F0: AB 42 AA BA 28 42 AC 42 AB 34 AC 41 AC 43 29 29 |.B..(B.B.4.A.C))|
00001A00: AD 28 32 AC 41 29 00 25 22 B6 0D 58 32 B2 28 AB |.(2.A).%"..X2.(.|
00001A10: 42 AB BA 28 42 AC 42 AB 34 AC 41 AC 43 29 29 AD |B..(B.B.4.A.C)).|
00001A20: 28 32 AC 41 29 00 43 22 C0 0D 99 22 11 58 3D 22 |(2.A).C"...".X="|
00001A30: A5 54 33 28 58 31 29 22 CE CD 20 22 A5 54 33 28 |.T3(X1)".. ".T3(|
00001A40: 58 32 29 00 5A 22 10 0E 99 22 11 11 11 54 52 59 |X2).Z"..."...TRY|
00001A50: 4B 20 3C 52 45 54 55 52 4E 3E 00 6E 22 15 0E A1 |K <RETURN>.n"...|
00001A60: 41 24 3A 8B 41 24 B2 22 22 A7 33 36 30 35 00 7D |A$:.A$."".3605.}|
00001A70: 22 1A 0E 99 4F 24 3A 4F 53 24 B2 22 22 00 A4 22 |"...O$:OS$."".."|
00001A80: 24 0E 99 22 11 12 20 31 20 92 20 46 4C 45 52 45 |$..".. 1 . FLERE|
00001A90: 20 32 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E | 2. GRADS LIGNIN|
00001AA0: 47 45 52 22 00 C8 22 2E 0E 99 22 11 12 20 32 20 |GER".."...".. 2 |
00001AB0: 92 20 54 49 4C 42 41 47 45 20 54 49 4C 20 48 4F |. TILBAGE TIL HO|
00001AC0: 56 45 44 4D 45 4E 55 22 00 E3 22 38 0E 99 22 11 |VEDMENU".."8..".|
00001AD0: 12 20 20 20 92 20 53 56 41 52 20 4D 45 44 20 54 |. . SVAR MED T|
00001AE0: 41 4C 22 00 F7 22 42 0E A1 53 24 3A 8B 53 24 B2 |AL".."B..S$:.S$.|
00001AF0: 22 22 A7 33 36 35 30 00 16 23 4C 0E 53 B2 C5 28 |"".3650..#L.S..(|
00001B00: 53 24 29 3A 8B 53 B3 31 B0 53 B1 32 A7 99 52 24 |S$):.S.1.S.2..R$|
00001B10: 3A 89 33 36 34 30 00 2A 23 56 0E 91 53 AA 41 51 |:.3640.*#V..S.AQ|
00001B20: AB 31 89 33 30 30 30 2C 39 30 00 46 23 A0 0F 8F |.1.3000,90.F#...|
00001B30: 2A 2A 33 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 |**3. GRADS LIGNI|
00001B40: 4E 47 45 52 2A 2A 00 82 23 AA 0F 4F 24 B2 22 93 |NGER**..#..O$.".|
00001B50: 11 12 20 20 20 92 20 33 2E 20 47 52 41 44 53 20 |.. . 3. GRADS |
00001B60: 4C 49 47 4E 49 4E 47 20 12 20 20 20 20 20 20 20 |LIGNING . |
00001B70: 20 20 20 20 20 20 20 20 20 20 20 20 92 22 3A 99 | .":.|
00001B80: 4F 24 00 A2 23 B4 0F 99 22 11 41 2A 58 91 33 11 |O$..#...".A*X.3.|
00001B90: 2B 42 2A 58 91 32 11 2B 43 2A 58 2B 44 20 3D 20 |+B*X.2.+C*X+D = |
00001BA0: 30 22 00 C1 23 FA 0F 99 22 11 4B 4F 45 46 46 49 |0"..#...".KOEFFI|
00001BB0: 43 49 45 4E 54 45 4E 20 54 49 4C 20 58 91 33 11 |CIENTEN TIL X.3.|
00001BC0: 22 00 F1 23 04 10 99 22 41 20 4D 45 44 20 46 4F |"..#..."A MED FO|
00001BD0: 52 54 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 |RTEGN |
00001BE0: 20 20 20 20 20 3A 20 22 3B 3A 84 39 2C 41 24 3A | : ";:.9,A$:|
00001BF0: 99 00 FD 23 09 10 41 B2 C5 28 41 24 29 00 20 24 |...#..A..(A$). $|
00001C00: 0C 10 99 22 11 11 4B 4F 45 46 46 49 43 49 45 4E |..."..KOEFFICIEN|
00001C10: 54 45 4E 20 54 49 4C 20 58 91 32 11 20 20 20 22 |TEN TIL X.2. "|
00001C20: 00 52 24 0E 10 99 22 42 20 4D 45 44 20 46 4F 52 |.R$..."B MED FOR|
00001C30: 54 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 20 |TEGN |
00001C40: 20 20 20 20 3A 20 22 3B 3A 84 39 2C 42 24 3A 99 | : ";:.9,B$:.|
00001C50: 3A 99 00 71 24 13 10 42 B2 C5 28 42 24 29 3A 8B |:..q$..B..(B$):.|
00001C60: 42 B2 B1 30 A7 42 24 B2 22 9D 2B 22 AA C4 28 42 |B..0.B$.".+"..(B|
00001C70: 29 00 94 24 14 10 99 22 11 11 4B 4F 45 46 46 49 |)..$..."..KOEFFI|
00001C80: 43 49 45 4E 54 45 4E 20 54 49 4C 20 58 20 20 20 |CIENTEN TIL X |
00001C90: 20 20 20 22 00 C6 24 15 10 99 22 43 20 4D 45 44 | "..$..."C MED|
00001CA0: 20 46 4F 52 54 45 47 4E 20 20 20 20 20 20 20 20 | FORTEGN |
00001CB0: 20 20 20 20 20 20 20 20 3A 20 22 3B 3A 84 39 2C | : ";:.9,|
00001CC0: 43 24 3A 99 3A 99 00 E5 24 16 10 43 B2 C5 28 43 |C$:.:...$..C..(C|
00001CD0: 24 29 3A 8B 43 B2 B1 30 A7 43 24 B2 22 9D 2B 22 |$):.C..0.C$.".+"|
00001CE0: AA C4 28 43 29 00 08 25 18 10 99 22 11 44 45 54 |..(C)..%...".DET|
00001CF0: 20 52 45 4E 45 20 54 41 4C 20 20 20 20 20 20 20 | RENE TAL |
00001D00: 20 20 20 20 20 20 20 22 00 38 25 1A 10 99 22 44 | ".8%..."D|
00001D10: 20 4D 45 44 20 46 4F 52 54 45 47 4E 20 20 20 20 | MED FORTEGN |
00001D20: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B | : ";|
00001D30: 3A 84 39 2C 44 24 3A 99 00 57 25 1D 10 44 B2 C5 |:.9,D$:..W%..D..|
00001D40: 28 44 24 29 3A 8B 44 B2 B1 30 A7 44 24 B2 22 20 |(D$):.D..0.D$." |
00001D50: 2B 22 AA C4 28 44 29 00 89 25 36 10 4C 24 B2 41 |+"..(D)..%6.L$.A|
00001D60: 24 AA 22 2A 58 91 33 11 20 22 AA 42 24 AA 22 2A |$."*X.3. ".B$."*|
00001D70: 58 91 32 11 20 22 AA 43 24 AA 22 2A 58 20 22 AA |X.2. ".C$."*X ".|
00001D80: 44 24 AA 22 20 3D 20 30 22 00 98 25 68 10 99 4F |D$." = 0"..%h..O|
00001D90: 24 3A 99 22 11 22 4C 24 00 BC 25 72 10 96 A5 4C |$:."."L$..%r...L|
00001DA0: 31 28 58 29 B2 28 58 AE 33 AA 42 AD 41 AC 58 AE |1(X).(X.3.B.A.X.|
00001DB0: 32 AA 43 AD 41 AC 58 AA 44 AD 41 29 00 DC 25 7C |2.C.A.X.D.A)..%||
00001DC0: 10 96 A5 4C 32 28 58 29 B2 28 33 AC 58 AE 32 AA |...L2(X).(3.X.2.|
00001DD0: 42 AD 41 AC 32 AC 58 AA 43 AD 41 29 00 00 26 CC |B.A.2.X.C.A)..&.|
00001DE0: 10 99 22 11 45 52 20 4C 49 47 4E 49 4E 47 45 4E |..".ER LIGNINGEN|
00001DF0: 20 4B 4F 52 52 45 4B 54 20 28 4A 2F 4E 29 20 22 | KORREKT (J/N) "|
00001E00: 00 14 26 D6 10 A1 53 24 3A 8B 53 24 B2 22 22 A7 |..&...S$:.S$."".|
00001E10: 34 33 31 30 00 26 26 E0 10 8B 53 24 B3 B1 22 4A |4310.&&...S$.."J|
00001E20: 22 A7 34 30 30 30 00 65 26 E5 10 8B 41 B2 30 A7 |".4000.e&...A.0.|
00001E30: 99 22 11 44 45 54 20 45 52 20 49 4B 4B 45 20 45 |.".DET ER IKKE E|
00001E40: 4E 20 33 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 |N 3. GRADS LIGNI|
00001E50: 4E 47 22 3A 81 49 B2 31 A4 32 30 30 30 3A 82 3A |NG":.I.1.2000:.:|
00001E60: 89 33 30 30 30 00 9B 26 EA 10 99 22 11 49 4E 44 |.3000..&...".IND|
00001E70: 54 41 53 54 20 53 4B 30 4E 4E 45 54 20 56 5B 52 |TAST SK0NNET V[R|
00001E80: 44 49 20 46 4F 52 20 58 20 22 3B 3A 84 39 2C 58 |DI FOR X ";:.9,X|
00001E90: 24 3A 99 3A 58 B2 C5 28 58 24 29 00 AA 26 FE 10 |$:.:X..(X$)..&..|
00001EA0: 99 4F 24 3A 99 22 11 22 4C 24 00 D1 26 03 11 99 |.O$:."."L$..&...|
00001EB0: 22 11 53 4B 30 4E 4E 45 54 20 58 20 20 20 20 20 |".SK0NNET X |
00001EC0: 20 20 20 20 20 20 20 46 4F 52 42 45 44 52 49 4E | FORBEDRIN|
00001ED0: 47 00 EE 26 08 11 81 49 B2 31 A4 32 30 3A 4B 31 |G..&...I.1.20:K1|
00001EE0: B2 A5 4C 31 28 58 29 AD A5 4C 32 28 58 29 00 04 |..L1(X)..L2(X)..|
00001EF0: 27 12 11 59 B2 58 3A 58 B2 58 AB 4B 31 3A 58 28 |'..Y.X:X.X.K1:X(|
00001F00: 49 29 B2 58 00 1D 27 17 11 8B 49 AD 32 B2 B5 28 |I).X..'...I.2..(|
00001F10: 49 AD 32 29 A7 99 59 A3 32 30 29 4B 31 00 23 27 |I.2)..Y.20)K1.#'|
00001F20: 19 11 82 00 43 27 1C 11 8B A5 54 36 28 58 28 31 |....C'....T6(X(1|
00001F30: 39 29 29 B2 A5 54 36 28 58 28 32 30 29 29 A7 34 |9))..T6(X(20)).4|
00001F40: 34 30 30 00 79 27 26 11 99 22 11 44 45 52 20 45 |400.y'&..".DER E|
00001F50: 52 20 49 4E 47 45 4E 20 53 4B 5B 52 49 4E 47 20 |R INGEN SK[RING |
00001F60: 4D 45 44 20 32 30 20 49 54 45 52 41 54 49 4F 4E |MED 20 ITERATION|
00001F70: 45 52 22 3A 89 34 36 30 30 00 85 27 30 11 99 22 |ER":.4600..'0.."|
00001F80: 11 58 3D 22 58 00 9B 27 F8 11 99 22 11 11 54 52 |.X="X..'..."..TR|
00001F90: 59 4B 20 3C 52 45 54 55 52 4E 3E 00 AF 27 FD 11 |YK <RETURN>..'..|
00001FA0: A1 41 24 3A 8B 41 24 B2 22 22 A7 34 36 30 35 00 |.A$:.A$."".4605.|
00001FB0: BE 27 02 12 99 4F 24 3A 4F 53 24 B2 22 22 00 E5 |.'...O$:OS$.""..|
00001FC0: 27 0C 12 99 22 11 12 20 31 20 92 20 46 4C 45 52 |'...".. 1 . FLER|
00001FD0: 45 20 33 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 |E 3. GRADS LIGNI|
00001FE0: 4E 47 45 52 22 00 09 28 16 12 99 22 11 12 20 32 |NGER"..(...".. 2|
00001FF0: 20 92 20 54 49 4C 42 41 47 45 20 54 49 4C 20 48 | . TILBAGE TIL H|
00002000: 4F 56 45 44 4D 45 4E 55 22 00 24 28 20 12 99 22 |OVEDMENU".$( .."|
00002010: 11 12 20 20 20 92 20 53 56 41 52 20 4D 45 44 20 |.. . SVAR MED |
00002020: 54 41 4C 22 00 38 28 2A 12 A1 53 24 3A 8B 53 24 |TAL".8(*..S$:.S$|
00002030: B2 22 22 A7 34 36 35 30 00 57 28 34 12 53 B2 C5 |."".4650.W(4.S..|
00002040: 28 53 24 29 3A 8B 53 B3 31 B0 53 B1 32 A7 99 52 |(S$):.S.1.S.2..R|
00002050: 24 3A 89 33 36 34 30 00 6B 28 3E 12 91 53 AA 41 |$:.3640.k(>..S.A|
00002060: 51 AB 31 89 34 30 30 30 2C 39 30 00 00 00 |Q.1.4000,90... |
..'....***COPYRIGHT JUST R.-DATA APS***.
E.Z..53280,2:.53281,5:.G(144).}.D.O$."..
. . MATEMATIKMODUL .
."...N..O$: 9:.9,0...X.."............
.. UI":." JR COPYRIGHT 1983......"
JUST R.-DATA APS":." DK 8700 HORSENS
"...H..A$:.A$."".200.*.R.R$."..
.".^.....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.P.,..O$:.".. 1 . L0S
NING AF 2. GRADS LIGNING...6..".. 2 . L0
SNING AF 3. GRADS LIGNING.D.@..".. 3 . L
0SNING AF N LIGNINGER MED N
UBEKENDTE (MAX. 40).A.J..".. 4 . KURVET
ILPASNING.S.O..".. 5 . SLUT...T..".. .
SVAR MED TAL"...V..S$:.S$."".342.B.^.SV
.E(S$):.SV.1.SV.5..R$:.340.N.H..SV.5....
.R..SV.3000,4000,580,1970...D..**N LIGNI
NGER**.:.N.O$."... . N LIGNINGER .
.":.O$.I.X..".L0SNIN
GSTIDEN VOKSER NATURLIGVIS MED N"...B.."
OG ER TYPISK FOR N=10 14 SEK.,FOR N=20".
..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.9....AQ..1..:.T.1.
N.T....R.1.N:.R;"..LIGNING:".X....S.1.N:
."KOEFFICIENT TIL X(";S;......")=";:.9,I
N$:.:.*********** ,A(R,S):PRINT.....A(R,
S).E(IN$)......S......"H0JRESIDEN
=";:.9,IN$:A(R,N.1).E(IN$):.......O
$:.R.*.F.."KONTROL - KOEFFICIENTMATRICEN
:".7.P..R.1.N:..R.Z..S.1.N.1:.A(R,S);:.S
,R.V....:.:."KORREKT (J/N): ";:.9,A$:...
....A$."J".820......A$.."N".740.L....:."
NR.P] LIGNING DER RETTES: ";:.9,X$:Q.E(X
$):.......Q.N..R$:.770......:."I";Q;"LIG
NING ER KOEFF. NU":..%.... S.1 . N.1:.A(
Q,S);:. S:.:..W. .."HVILKET NR. KOEFFICI
ENT RETTES: ";:.9,U:.:..|.*.."NY V[RDI:
";:.9,A(Q,U):.:. 710...4..O$:. R.1 . N:.
S.1 . N.1...>.B(R,S).A(R,S):. S:. R...H
..2760.Q.R..:."RESULTAT:"...\..I.1.N:."X
("I")="A(I,N.1):.I:.:.P$."J".910.5.F.."0
NSKES KONTROL V. INDS[TNING (J/N): ";:.9
,A$:..H.P..A$."J"..:.910.Y.Z..A$.."N".87
0.B....970.P.... R.1 . N......R"LIGN. NU
V. H0JRESIDE="B(R,N.1):H.0...... S.1 . N
.D...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.Q.J..****PRIN
T".UDSKRIFT P] PRINTER (J/N): ";:INPUT#9
,P$:PRINT.Z.T..**IFP$="J"THENOPEN1,4:CMD
1:GOTO1010...Y..****IFP$<>"N"GOTO970....
..A$:.A$."".990......90......"L0SNING AF
N LIGNINGER MED N UBEKENDTE"......"DEN
INDTASTEDE KOEFFICIENTMATRIX:"......R.1.
N:.......S.1.N.1:.B(R,S);:.S,R.<....AQ.1
.850.X...O$."... . KURVETILPASNING .
.":.O$......"FOR DE GI
VNE PUNKTER FINDES DET POLYNO-".V.F.."MI
UM AF N'TE GRAD, DER EFTER DE MINDSTE"..
.P.."KVADRATERS METODE BEDST TILPASSER S
IG"...Z.."PUNKTERNE.".A...."N ANTAGER V[
RDIERNE 2,3,4 - - OP TIL".^...."EN VALGT
0VRE GR[NSE."......:."ALTERNATIVT KAN S
0GES TILPASNING MED "......"EN FUNKTION
AF TYPEN Y=A+B*EXP(X)":..W...."V[LGES
1.POLYNOMIUM"......"ELLER 2.EXPON
ENTIALFUNKTION".). ..".TAST 1 ELLER 2: "
;:.9,X$:T.E(X$):..B.*..T..1.T..2..R$:.20
80.|.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..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.T.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.J....R:.I.1.N:PE.1:Q.Y(I)......
R.0.2.M2:P(R).P(R).PE......R..M2.B1(R.1)
.B1(R.1).Q.....PE.PE.X(I):Q.Q.X(I):.R,I.
7.J..K.1.M2.1:.J.1.M2.1.P.T.A(K,J).P(K.J
.2):.J,K.Q....K.1.M2.1:A(K,M2.2).B1(K):.
K.....N1.N:N.M2.1:.2760:N.N1......O$.A..
.."POLYNOMIET AF"M2"GRAD GENNEM DE GIVNE
".T....N"PUNKTER:":......." KONSTANT
E LED ="A(1,M2.2).7....I.2.M2.1:."K
OEFFICIENTEN TIL X ^"I.1"="A(I,M2.2):.I.
K.$..P$."J"..:.2380.{....".KONTROL AF Y-
V[RDIER (J/N): ";:.9,A$:.:....8..A$."N".
2440...B..A$.."J".2350...L.." X","YGIVE
T","YBEREGNET":..Z.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.6.T..***IFP$="J"THEN
PRINT#1:CLOSE1.Z.~..***IFP$="J"THENP$="N
":GOTO2470......***PRINT".UDSKRIFT P] PR
INTER (J/N): ";:INPUT#9,P$:PRINT......*I
FP$="J"THENOPEN1,4:CMD1:GOTO2290.Z....**
*IFP$<>"N"GOTO2440......A$."J"..P$:.P$."
".2465......M2.W.90.+....".NYT POLYNOMIU
M (J/N): ";:.9,A$:..E....A$."J".M2.M2.1:
.2190.].D..A$.."N".AQ..1.2480.E.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).N...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).J...A.(K(1,
3).K(2,2).K(1,2).K(2,3)).D.P.(.B.(K(1,1)
.K(2,3).K(1,3).K(2,1)).D.X.2..O$...<..:.
"DEN S0GTE FUNKTION:":....F..B.0.B$."+".
D.P.." Y="A;B$;B"*EXP(X)":..U.Z..P$."J"
.2690...D.."KONTROL AF Y-V[RDIER (J/N):
";:.9,A$:....N..A$."N".2720.%.X..A$.."J"
.2660.I....:." X","YGIVET","YBEREGNET":
..N....I.1.N:.X(I),Y(I),A.B..(X(I)):.I..
....**IFP$="J"THENPRINT#1:CLOSE1:END.Q.
..**PRINT".UDSKRIFT P] PRINTER (J/N): ";
:INPUT#9,P$:PRINT......****IFP$="J"THENO
PEN1,4:CMD1:GOTO2610......****IFP$<>"N"G
OTO2720.+....A$:.A$."".2750.3.C..90.Q.H.
.R.1.N.1:M1..(A(R,R)):K.R.^.R..I.R.1.N.V
.....(A(I,R))..M1.2800.....M1..(A(I,R)):
K.I......I.A.....(M1).1E.6.."LIGNINGSSYS
TEMET USTABILT":..O....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).2.
6..J.R.N.1.N.@.A(I,J).A(I,J).K1.A(R,J).Y
.J..J,I,R...K..A(N,N).0..".FORKERT INDTA
STNING !":.I.1.2500:.:.580...T.A(N,N.1).
A(N,N.1).A(N,N).J.^..I.N.1.1..1:S.A(I,N.
1).W.H..M.I.1.N...R.S.S.A(I,M).A(M,N.1):
.M...|.A(I,N.1).S.A(I,I)......AQ..1.3000
.!....I:..?....***2. GRADS LIGNINGER***.
{.B.O$."... . 2. GRADS LIGNING .
.":.O$...L..".A*X.2.+B*X+C=
0"......".KOEFFICIENTEN TIL X.2."......"
A MED FORTEGN : ";:.9,A$:
....!.A.E(A$)...$.."..KOEFFICIENTEN TIL
X ".?.&.."B MED FORTEGN
: ";:.9,B$:.:..^.+.B.E(B$):.B..0.B$.".+
".D(B)......".DET RENE TAL
"...0.."C MED FORTEGN : "
;:.9,C$:..P.5.C.E(C$):.C..0.C$." +".D(C)
...N.L$.A$."*X.2. ".B$."*X ".C$." = 0"..
....O$:."."L$.)....".ER LIGNINGEN KORREK
T (J/N) ".=....S$:.S$."".3215.O....S$.."
J".3000......A.0..".DET ER IKKE EN 2. GR
ADSLIGNING!":.3600......O$:."."L$......*
BEREGNING AF R0DDER*.G...D.B.B.4.A.C:.D.
.0.3320......**PRINT".DER ER INGEN REELL
E R0DDER".. ...*GOTO3600.. ..." .. -B.+
..- MN.N.......7 ..."..........B.2.-4AC.
N ..."X= .............._ ..." 2A.
. ..OS.2.C(D(.T3(B.B))).C(D(.T3(.4.A.C))
).. ..I.1.OS:OS$.OS$.".":..K %.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$.F!F...P).
T3(B.2);:.D1$:.***FNT3(-4*A*C).H!P.."X=
";:.I.1.OS.P.2:.".";:.:...!Z...10).T3(2.
A):.D..0.3500..!...".DER ER INGEN REELLE
R0DDER"..!...".ST0RRELSEN UNDER KVADRAT
RODSTEGNET ER NEGATIV.":.3600.."..X1.(
.B..(B.B.4.A.C)).(2.A).%"..X2.(.B..(B.B.
4.A.C)).(2.A).C"...".X=".T3(X1)"NM ".T3(
X2).Z"..."...TRYK <RETURN>.N"...A$:.A$."
".3605.}"...O$:OS$."".."$..".. 1 . FLERE
2. GRADS LIGNINGER".H"...".. 2 . TILBAG
E TIL HOVEDMENU".."8..".. . SVAR MED T
AL".."B..S$:.S$."".3650..#L.S.E(S$):.S.1
.S.2..R$:.3640.*#V..S.AQ.1.3000,90.F# ..
**3. GRADS LIGNINGER**..#..O$."... . 3
. GRADS LIGNING . .":.
O$..#...".A*X.3.+B*X.2.+C*X+D = 0".A#...
".KOEFFICIENTEN TIL X.3."..#..."A MED FO
RTEGN : ";:.9,A$:...#..A.
E(A$). $..."..KOEFFICIENTEN TIL X.2. "
.R$..."B MED FORTEGN : ";
:.9,B$:.:..Q$..B.E(B$):.B..0.B$.".+".D(B
)..$..."..KOEFFICIENTEN TIL X ".F$.
.."C MED FORTEGN : ";:.9,
C$:.:...$..C.E(C$):.C..0.C$.".+".D(C)..%
...".DET RENE TAL ".8%..."D
MED FORTEGN : ";:.9,D$:.
.W%..D.E(D$):.D..0.D$." +".D(D)..%6.L$.A
$."*X.3. ".B$."*X.2. ".C$."*X ".D$." = 0
"..%H..O$:."."L$..%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 KORREKT (J/N) "
..&V..S$:.S$."".4310.&&...S$.."J".4000.E
&...A.0..".DET ER IKKE EN 3. GRADS LIGNI
NG":.I.1.2000:.:.3000..&...".INDTAST SK0
NNET V[RDI FOR X ";:.9,X$:.:X.E(X$)..&..
.O$:."."L$.Q&...".SK0NNET X F
ORBEDRING..&...I.1.20:K1..L1(X)..L2(X)..
'..Y.X:X.X.K1:X(I).X..'...I.2..(I.2)..Y.
20)K1.#'....C'....T6(X(19))..T6(X(20)).4
400.Y'&..".DER ER INGEN SK[RING MED 20 I
TERATIONER":.4600..'0..".X="X..'..."..TR
YK <RETURN>..'...A$:.A$."".4605..'...O$:
OS$.""..'...".. 1 . FLERE 3. GRADS LIGNI
NGER"..(...".. 2 . TILBAGE TIL HOVEDMENU
".$( ..".. . SVAR MED TAL".8(*..S$:.S$
."".4650.W(4.S.E(S$):.S.1.S.2..R$:.3640.
K(>..S.AQ.1.4000,90...
> CLICK IMAGE PREVIEW FOR FULL MODAL