MATEMATIKMODUL
FILE INFORMATION
FILENAME(S): MATEMATIKMODUL
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-11-30 20:22:44
APPEARS ON: 1 disk(s)
FILE HASH
6b4df384f746e62d7a52f396ec740f4e7dc6041867c832f8e90beeb002edeb92
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KH COPY | MATEMATIKMODUL | PRG | Curtcool, Misc | 19 | 2 | 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 42 08 03 00 00 14 14 14 14 8B 41 51 B2 31 A7 |.B.........AQ.1.|
00000040: 39 30 00 4D 08 04 00 00 14 14 14 14 A2 00 63 08 |90.M..........c.|
00000050: 5A 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 |Z..53280,0:.5328|
00000060: 31 2C 30 00 9C 08 64 00 4F 24 B2 22 93 98 11 12 |1,0...d.O$."....|
00000070: 20 20 20 92 20 4D 41 54 45 4D 41 54 49 4B 4D 4F | . MATEMATIKMO|
00000080: 44 55 4C 20 12 20 20 20 20 20 20 20 20 20 20 20 |DUL . |
00000090: 20 20 20 20 20 20 20 20 20 20 92 22 00 AC 08 6E | ."...n|
000000A0: 00 99 4F 24 3A A0 39 3A 9F 39 2C 30 00 DC 08 78 |..O$:.9:.9,0...x|
000000B0: 00 99 22 11 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
000000C0: 11 20 D5 C9 22 3A 99 22 20 CA 52 20 43 4F 50 59 |. ..":." .R COPY|
000000D0: 52 49 47 48 54 20 20 20 31 39 38 33 00 10 09 82 |RIGHT 1983....|
000000E0: 00 99 22 20 20 20 20 4A 55 53 54 20 52 2E 2D 44 |.." JUST R.-D|
000000F0: 41 54 41 20 41 50 53 22 3A 99 22 20 20 20 20 44 |ATA APS":." D|
00000100: 4B 20 20 38 37 30 30 20 48 4F 52 53 45 4E 53 22 |K 8700 HORSENS"|
00000110: 00 23 09 C8 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.#....A$:.A$."".|
00000120: 32 30 30 00 49 09 D2 00 52 24 B2 22 91 91 20 20 |200.I...R$.".. |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 91 22 00 7D 09 DC 00 96 A5 | .".}.....|
00000150: 54 33 28 58 29 B2 B5 28 58 AC 31 45 33 AA 2E 35 |T3(X)..(X.1E3..5|
00000160: 29 AD 31 45 33 3A 96 A5 54 36 28 58 29 B2 B5 28 |).1E3:..T6(X)..(|
00000170: 58 AC 31 45 36 AA 2E 35 29 AD 31 45 36 00 C2 09 |X.1E6..5).1E6...|
00000180: E6 00 8B 46 4C B2 30 A7 86 58 28 32 35 29 2C 59 |...FL.0..X(25),Y|
00000190: 28 31 35 29 2C 41 28 34 30 2C 34 31 29 2C 42 28 |(15),A(40,41),B(|
000001A0: 34 30 2C 34 31 29 2C 50 28 33 30 29 2C 41 45 28 |40,41),P(30),AE(|
000001B0: 31 36 29 2C 42 31 28 31 36 29 3A 99 3A 46 4C B2 |16),B1(16):.:FL.|
000001C0: 41 51 00 EF 09 2C 01 99 4F 24 3A 99 22 11 12 20 |AQ...,..O$:.".. |
000001D0: 31 20 92 20 4C 30 53 4E 49 4E 47 20 41 46 20 32 |1 . L0SNING AF 2|
000001E0: 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E 47 00 |. GRADS LIGNING.|
000001F0: 18 0A 36 01 99 22 11 12 20 32 20 92 20 4C 30 53 |..6..".. 2 . L0S|
00000200: 4E 49 4E 47 20 41 46 20 33 2E 20 47 52 41 44 53 |NING AF 3. GRADS|
00000210: 20 4C 49 47 4E 49 4E 47 00 63 0A 40 01 99 22 11 | LIGNING.c.@..".|
00000220: 12 20 33 20 92 20 4C 30 53 4E 49 4E 47 20 41 46 |. 3 . L0SNING AF|
00000230: 20 4E 20 4C 49 47 4E 49 4E 47 45 52 20 4D 45 44 | N LIGNINGER MED|
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 20 | N |
00000250: 55 42 45 4B 45 4E 44 54 45 20 28 4D 41 58 2E 20 |UBEKENDTE (MAX. |
00000260: 34 30 29 00 80 0A 4A 01 99 22 11 12 20 34 20 92 |40)...J..".. 4 .|
00000270: 20 4B 55 52 56 45 54 49 4C 50 41 53 4E 49 4E 47 | KURVETILPASNING|
00000280: 00 92 0A 4F 01 99 22 11 12 20 35 20 92 20 53 4C |...O..".. 5 . SL|
00000290: 55 54 00 AD 0A 54 01 99 22 11 12 20 20 20 92 20 |UT...T..".. . |
000002A0: 53 56 41 52 20 4D 45 44 20 54 41 4C 22 00 C0 0A |SVAR MED TAL"...|
000002B0: 56 01 A1 53 24 3A 8B 53 24 B2 22 22 A7 33 34 32 |V..S$:.S$."".342|
000002C0: 00 E1 0A 5E 01 53 56 B2 C5 28 53 24 29 3A 8B 53 |...^.SV..(S$):.S|
000002D0: 56 B3 31 B0 53 56 B1 35 A7 99 52 24 3A 89 33 34 |V.1.SV.5..R$:.34|
000002E0: 30 00 ED 0A 68 01 8B 53 56 B2 35 A7 A2 00 08 0B |0...h..SV.5.....|
000002F0: 72 01 91 53 56 89 33 30 30 30 2C 34 30 30 30 2C |r..SV.3000,4000,|
00000300: 35 38 30 2C 31 39 37 30 00 1D 0B 44 02 8F 2A 2A |580,1970...D..**|
00000310: 4E 20 4C 49 47 4E 49 4E 47 45 52 2A 2A 00 59 0B |N LIGNINGER**.Y.|
00000320: 4E 02 4F 24 B2 22 93 11 12 20 20 20 92 20 4E 20 |N.O$."... . N |
00000330: 4C 49 47 4E 49 4E 47 45 52 20 12 20 20 20 20 20 |LIGNINGER . |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 92 22 3A 99 4F 24 00 88 0B 58 02 99 22 | .":.O$...X.."|
00000360: 11 4C 30 53 4E 49 4E 47 53 54 49 44 45 4E 20 56 |.L0SNINGSTIDEN V|
00000370: 4F 4B 53 45 52 20 4E 41 54 55 52 4C 49 47 56 49 |OKSER NATURLIGVI|
00000380: 53 20 4D 45 44 20 4E 22 00 B6 0B 62 02 99 22 4F |S MED N"...b.."O|
00000390: 47 20 45 52 20 54 59 50 49 53 4B 20 46 4F 52 20 |G ER TYPISK FOR |
000003A0: 4E 3D 31 30 20 31 34 20 53 45 4B 2E 2C 46 4F 52 |N=10 14 SEK.,FOR|
000003B0: 20 4E 3D 32 30 22 00 DA 0B 6C 02 99 22 31 2E 35 | N=20"...l.."1.5|
000003C0: 20 4D 49 4E 2E 20 4F 47 20 46 4F 52 20 4E 3D 33 | MIN. OG FOR N=3|
000003D0: 30 20 34 2E 35 20 4D 49 4E 2E 00 07 0C 76 02 99 |0 4.5 MIN....v..|
000003E0: 22 11 41 4E 54 41 4C 20 4C 49 47 4E 49 4E 47 45 |".ANTAL LIGNINGE|
000003F0: 52 3A 20 22 3B 3A 84 39 2C 58 24 3A 4E B2 C5 28 |R: ";:.9,X$:N..(|
00000400: 58 24 29 3A 99 3A 99 00 19 0C 7B 02 8B 4E B3 32 |X$):.:....{..N.2|
00000410: A7 99 52 24 3A 89 36 33 30 00 44 0C 80 02 8F 2A |..R$:.630.D....*|
00000420: 2A 2A 2A 2A 2A 2A 2A 44 49 4D 41 28 4E 2C 4E 2B |*******DIMA(N,N+|
00000430: 31 29 3A 44 49 4D 42 28 4E 2C 4E 2B 31 29 3A 50 |1):DIMB(N,N+1):P|
00000440: 52 49 4E 54 00 58 0C 85 02 8B 41 51 B3 B1 31 A7 |RINT.X....AQ..1.|
00000450: A2 3A 81 54 B2 31 A4 4E 00 73 0C 8A 02 81 52 B2 |.:.T.1.N.s....R.|
00000460: 31 A4 4E 3A 99 52 3B 22 9D 2E 4C 49 47 4E 49 4E |1.N:.R;"..LIGNIN|
00000470: 47 3A 22 00 97 0C 94 02 81 53 B2 31 A4 4E 3A 99 |G:"......S.1.N:.|
00000480: 22 4B 4F 45 46 46 49 43 49 45 4E 54 20 54 49 4C |"KOEFFICIENT TIL|
00000490: 20 58 28 22 3B 53 3B 00 C6 0C 9E 02 99 22 29 3D | X(";S;......")=|
000004A0: 22 3B 3A 84 39 2C 49 4E 24 3A 99 3A 8F 2A 2A 2A |";:.9,IN$:.:.***|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 20 2C 41 28 52 2C 53 29 |******** ,A(R,S)|
000004C0: 3A 50 52 49 4E 54 00 D8 0C A3 02 41 28 52 2C 53 |:PRINT.....A(R,S|
000004D0: 29 B2 C5 28 49 4E 24 29 00 DF 0C A8 02 82 53 00 |)..(IN$)......S.|
000004E0: 18 0D B2 02 99 22 48 30 4A 52 45 53 49 44 45 4E |....."H0JRESIDEN|
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 3D 22 3B 3A | =";:|
00000500: 84 39 2C 49 4E 24 3A 41 28 52 2C 4E AA 31 29 B2 |.9,IN$:A(R,N.1).|
00000510: C5 28 49 4E 24 29 3A 99 00 23 0D BC 02 99 4F 24 |.(IN$):..#....O$|
00000520: 3A 82 52 00 49 0D C6 02 99 22 4B 4F 4E 54 52 4F |:.R.I...."KONTRO|
00000530: 4C 20 2D 20 4B 4F 45 46 46 49 43 49 45 4E 54 4D |L - KOEFFICIENTM|
00000540: 41 54 52 49 43 45 4E 3A 22 00 56 0D D0 02 81 52 |ATRICEN:".V....R|
00000550: B2 31 A4 4E 3A 99 00 71 0D DA 02 81 53 B2 31 A4 |.1.N:..q....S.1.|
00000560: 4E AA 31 3A 99 41 28 52 2C 53 29 3B 3A 82 53 2C |N.1:.A(R,S);:.S,|
00000570: 52 00 95 0D E4 02 99 3A 99 3A 99 22 4B 4F 52 52 |R......:.:."KORR|
00000580: 45 4B 54 20 28 4A 2F 4E 29 3A 20 22 3B 3A 84 39 |EKT (J/N): ";:.9|
00000590: 2C 41 24 3A 99 00 A5 0D EE 02 8B 41 24 B2 22 4A |,A$:.......A$."J|
000005A0: 22 89 38 32 30 00 B6 0D F8 02 8B 41 24 B3 B1 22 |".820......A$.."|
000005B0: 4E 22 89 37 34 30 00 EB 0D 02 03 99 3A 99 22 4E |N".740......:."N|
000005C0: 52 2E 50 5D 20 4C 49 47 4E 49 4E 47 20 44 45 52 |R.P] LIGNING DER|
000005D0: 20 52 45 54 54 45 53 3A 20 22 3B 3A 84 39 2C 58 | RETTES: ";:.9,X|
000005E0: 24 3A 51 B2 C5 28 58 24 29 3A 99 00 FD 0D 07 03 |$:Q..(X$):......|
000005F0: 8B 51 B1 4E A7 99 52 24 3A 89 37 37 30 00 23 0E |.Q.N..R$:.770.#.|
00000600: 0C 03 99 3A 99 22 49 22 3B 51 3B 22 4C 49 47 4E |...:."I";Q;"LIGN|
00000610: 49 4E 47 20 45 52 20 4B 4F 45 46 46 2E 20 4E 55 |ING ER KOEFF. NU|
00000620: 22 3A 99 00 44 0E 16 03 81 20 53 B2 31 20 A4 20 |":..D.... S.1 . |
00000630: 4E AA 31 3A 99 41 28 51 2C 53 29 3B 3A 82 20 53 |N.1:.A(Q,S);:. S|
00000640: 3A 99 3A 99 00 76 0E 20 03 99 22 48 56 49 4C 4B |:.:..v. .."HVILK|
00000650: 45 54 20 4E 52 2E 20 4B 4F 45 46 46 49 43 49 45 |ET NR. KOEFFICIE|
00000660: 4E 54 20 52 45 54 54 45 53 3A 20 22 3B 3A 84 39 |NT RETTES: ";:.9|
00000670: 2C 55 3A 99 3A 99 00 9B 0E 2A 03 99 22 4E 59 20 |,U:.:....*.."NY |
00000680: 56 5B 52 44 49 3A 20 22 3B 3A 84 39 2C 41 28 51 |V[RDI: ";:.9,A(Q|
00000690: 2C 55 29 3A 99 3A 89 20 37 31 30 00 B9 0E 34 03 |,U):.:. 710...4.|
000006A0: 99 4F 24 3A 81 20 52 B2 31 20 A4 20 4E 3A 81 20 |.O$:. R.1 . N:. |
000006B0: 53 B2 31 20 A4 20 4E AA 31 00 D3 0E 3E 03 42 28 |S.1 . N.1...>.B(|
000006C0: 52 2C 53 29 B2 41 28 52 2C 53 29 3A 82 20 53 3A |R,S).A(R,S):. S:|
000006D0: 82 20 52 00 DD 0E 48 03 8D 32 37 36 30 00 F0 0E |. R...H..2760...|
000006E0: 52 03 99 3A 99 22 52 45 53 55 4C 54 41 54 3A 22 |R..:."RESULTAT:"|
000006F0: 00 1F 0F 5C 03 81 49 B2 31 A4 4E 3A 99 22 58 28 |...\..I.1.N:."X(|
00000700: 22 49 22 29 3D 22 41 28 49 2C 4E AA 31 29 3A 82 |"I")="A(I,N.1):.|
00000710: 49 3A 99 3A 8B 50 24 B2 22 4A 22 A7 39 31 30 00 |I:.:.P$."J".910.|
00000720: 54 0F 66 03 99 22 30 4E 53 4B 45 53 20 4B 4F 4E |T.f.."0NSKES KON|
00000730: 54 52 4F 4C 20 56 2E 20 49 4E 44 53 5B 54 4E 49 |TROL V. INDS[TNI|
00000740: 4E 47 20 28 4A 2F 4E 29 3A 20 22 3B 3A 84 39 2C |NG (J/N): ";:.9,|
00000750: 41 24 3A 99 00 67 0F 70 03 8B 41 24 B2 22 4A 22 |A$:..g.p..A$."J"|
00000760: A7 99 3A 89 39 31 30 00 78 0F 7A 03 8B 41 24 B3 |..:.910.x.z..A$.|
00000770: B1 22 4E 22 89 38 37 30 00 81 0F 84 03 89 39 37 |."N".870......97|
00000780: 30 00 8F 0F 8E 03 81 20 52 B2 31 20 A4 20 4E 00 |0...... R.1 . N.|
00000790: B9 0F 98 03 99 52 22 4C 49 47 4E 2E 20 4E 55 56 |.....R"LIGN. NUV|
000007A0: 2E 20 48 30 4A 52 45 53 49 44 45 3D 22 42 28 52 |. H0JRESIDE="B(R|
000007B0: 2C 4E AA 31 29 3A 48 B2 30 00 C7 0F A2 03 81 20 |,N.1):H.0...... |
000007C0: 53 B2 31 20 A4 20 4E 00 E3 0F AC 03 48 B2 48 AA |S.1 . N.....H.H.|
000007D0: 42 28 52 2C 53 29 AC 41 28 53 2C 4E AA 31 29 3A |B(R,S).A(S,N.1):|
000007E0: 82 20 53 00 07 10 B6 03 99 A6 C3 28 C7 28 52 29 |. S........(.(R)|
000007F0: 29 AA 37 29 22 20 56 45 44 20 49 4E 44 53 5B 54 |).7)" VED INDS[T|
00000800: 4E 49 4E 47 3D 22 48 00 31 10 C0 03 82 20 52 3A |NING="H.1.... R:|
00000810: 8F 2A 2A 49 46 50 24 3D 22 4A 22 54 48 45 4E 50 |.**IFP$="J"THENP|
00000820: 52 49 4E 54 23 31 3A 43 4C 4F 53 45 31 3A 45 4E |RINT#1:CLOSE1:EN|
00000830: 44 00 70 10 CA 03 8F 2A 2A 2A 2A 50 52 49 4E 54 |D.p....****PRINT|
00000840: 22 11 55 44 53 4B 52 49 46 54 20 50 5D 20 50 52 |".UDSKRIFT P] PR|
00000850: 49 4E 54 45 52 20 28 4A 2F 4E 29 3A 20 22 3B 3A |INTER (J/N): ";:|
00000860: 49 4E 50 55 54 23 39 2C 50 24 3A 50 52 49 4E 54 |INPUT#9,P$:PRINT|
00000870: 00 99 10 D4 03 8F 2A 2A 49 46 50 24 3D 22 4A 22 |......**IFP$="J"|
00000880: 54 48 45 4E 4F 50 45 4E 31 2C 34 3A 43 4D 44 31 |THENOPEN1,4:CMD1|
00000890: 3A 47 4F 54 4F 31 30 31 30 00 B3 10 D9 03 8F 2A |:GOTO1010......*|
000008A0: 2A 2A 2A 49 46 50 24 3C 3E 22 4E 22 47 4F 54 4F |***IFP$<>"N"GOTO|
000008B0: 39 37 30 00 C6 10 DE 03 A1 41 24 3A 8B 41 24 B2 |970......A$:.A$.|
000008C0: 22 22 A7 39 39 30 00 CE 10 E8 03 89 39 30 00 FC |"".990......90..|
000008D0: 10 F2 03 99 22 4C 30 53 4E 49 4E 47 20 41 46 20 |...."L0SNING AF |
000008E0: 4E 20 4C 49 47 4E 49 4E 47 45 52 20 4D 45 44 20 |N LIGNINGER MED |
000008F0: 4E 20 55 42 45 4B 45 4E 44 54 45 22 00 25 11 FC |N UBEKENDTE".%..|
00000900: 03 99 22 44 45 4E 20 49 4E 44 54 41 53 54 45 44 |.."DEN INDTASTED|
00000910: 45 20 4B 4F 45 46 46 49 43 49 45 4E 54 4D 41 54 |E KOEFFICIENTMAT|
00000920: 52 49 58 3A 22 00 32 11 06 04 81 52 B2 31 A4 4E |RIX:".2....R.1.N|
00000930: 3A 99 00 4D 11 10 04 81 53 B2 31 A4 4E AA 31 3A |:..M....S.1.N.1:|
00000940: 99 42 28 52 2C 53 29 3B 3A 82 53 2C 52 00 5B 11 |.B(R,S);:.S,R.[.|
00000950: 1A 04 8B 41 51 B2 31 A7 38 35 30 00 97 11 B2 07 |...AQ.1.850.....|
00000960: 4F 24 B2 22 93 11 12 20 20 20 92 20 4B 55 52 56 |O$."... . KURV|
00000970: 45 54 49 4C 50 41 53 4E 49 4E 47 20 12 20 20 20 |ETILPASNING . |
00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000990: 20 92 22 3A 99 4F 24 00 C6 11 BC 07 99 22 46 4F | .":.O$......"FO|
000009A0: 52 20 44 45 20 47 49 56 4E 45 20 50 55 4E 4B 54 |R DE GIVNE PUNKT|
000009B0: 45 52 20 46 49 4E 44 45 53 20 44 45 54 20 50 4F |ER FINDES DET PO|
000009C0: 4C 59 4E 4F 2D 22 00 F5 11 C6 07 99 22 4D 49 55 |LYNO-"......"MIU|
000009D0: 4D 20 41 46 20 4E 27 54 45 20 47 52 41 44 2C 20 |M AF N'TE GRAD, |
000009E0: 44 45 52 20 45 46 54 45 52 20 44 45 20 4D 49 4E |DER EFTER DE MIN|
000009F0: 44 53 54 45 22 00 22 12 D0 07 99 22 4B 56 41 44 |DSTE"."...."KVAD|
00000A00: 52 41 54 45 52 53 20 4D 45 54 4F 44 45 20 42 45 |RATERS METODE BE|
00000A10: 44 53 54 20 54 49 4C 50 41 53 53 45 52 20 53 49 |DST TILPASSER SI|
00000A20: 47 22 00 34 12 DA 07 99 22 50 55 4E 4B 54 45 52 |G".4...."PUNKTER|
00000A30: 4E 45 2E 22 00 60 12 E4 07 99 22 4E 20 41 4E 54 |NE.".`...."N ANT|
00000A40: 41 47 45 52 20 56 5B 52 44 49 45 52 4E 45 20 32 |AGER V[RDIERNE 2|
00000A50: 2C 33 2C 34 20 2D 20 2D 20 4F 50 20 54 49 4C 22 |,3,4 - - OP TIL"|
00000A60: 00 7D 12 EE 07 99 22 45 4E 20 56 41 4C 47 54 20 |.}...."EN VALGT |
00000A70: 30 56 52 45 20 47 52 5B 4E 53 45 2E 22 00 AC 12 |0VRE GR[NSE."...|
00000A80: F8 07 99 3A 99 22 41 4C 54 45 52 4E 41 54 49 56 |...:."ALTERNATIV|
00000A90: 54 20 4B 41 4E 20 53 30 47 45 53 20 54 49 4C 50 |T KAN S0GES TILP|
00000AA0: 41 53 4E 49 4E 47 20 4D 45 44 20 22 00 D7 12 02 |ASNING MED "....|
00000AB0: 08 99 22 45 4E 20 46 55 4E 4B 54 49 4F 4E 20 41 |.."EN FUNKTION A|
00000AC0: 46 20 54 59 50 45 4E 20 59 3D 41 2B 42 2A 45 58 |F TYPEN Y=A+B*EX|
00000AD0: 50 28 58 29 22 3A 99 00 F6 12 0C 08 99 22 56 5B |P(X)":......."V[|
00000AE0: 4C 47 45 53 20 20 20 20 20 31 2E 50 4F 4C 59 4E |LGES 1.POLYN|
00000AF0: 4F 4D 49 55 4D 22 00 1E 13 16 08 99 22 45 4C 4C |OMIUM"......"ELL|
00000B00: 45 52 20 20 20 20 20 20 32 2E 45 58 50 4F 4E 45 |ER 2.EXPONE|
00000B10: 4E 54 49 41 4C 46 55 4E 4B 54 49 4F 4E 22 00 48 |NTIALFUNKTION".H|
00000B20: 13 20 08 99 22 11 54 41 53 54 20 31 20 45 4C 4C |. ..".TAST 1 ELL|
00000B30: 45 52 20 32 3A 20 22 3B 3A 84 39 2C 58 24 3A 54 |ER 2: ";:.9,X$:T|
00000B40: B2 C5 28 58 24 29 3A 99 00 61 13 2A 08 8B 54 B3 |..(X$):..a.*..T.|
00000B50: B1 31 AF 54 B3 B1 32 A7 99 52 24 3A 89 32 30 38 |.1.T..2..R$:.208|
00000B60: 30 00 9B 13 34 08 99 22 11 41 4E 54 41 4C 20 50 |0...4..".ANTAL P|
00000B70: 55 4E 4B 54 45 52 20 28 4D 49 4E 2E 20 33 20 20 |UNKTER (MIN. 3 |
00000B80: 4D 41 58 2E 20 31 35 29 20 22 3B 3A 84 39 2C 58 |MAX. 15) ";:.9,X|
00000B90: 24 3A 4E B2 C5 28 58 24 29 3A 99 00 B3 13 39 08 |$:N..(X$):....9.|
00000BA0: 8B 4E B3 33 B0 4E B1 31 35 A7 99 52 24 3A 89 32 |.N.3.N.15..R$:.2|
00000BB0: 31 30 30 00 CE 13 3E 08 99 4F 24 3A 8F 2A 2A 2A |100...>..O$:.***|
00000BC0: 2A 2A 44 49 4D 58 28 4E 29 2C 59 28 4E 29 00 DE |**DIMX(N),Y(N)..|
00000BD0: 13 48 08 81 49 B2 31 A4 4E 3A 99 20 49 3B 00 05 |.H..I.1.N:. I;..|
00000BE0: 14 52 08 99 22 50 55 4E 4B 54 3A 20 58 20 3D 20 |.R.."PUNKT: X = |
00000BF0: 22 3B 3A 84 39 2C 58 24 3A 58 28 49 29 B2 C5 28 |";:.9,X$:X(I)..(|
00000C00: 58 24 29 3A 99 00 16 14 5C 08 99 A3 31 30 29 22 |X$):....\...10)"|
00000C10: 59 20 3D 20 22 3B 00 32 14 66 08 84 39 2C 58 24 |Y = ";.2.f..9,X$|
00000C20: 3A 59 28 49 29 B2 C5 28 58 24 29 3A 99 3A 82 49 |:Y(I)..(X$):.:.I|
00000C30: 3A 99 00 40 14 70 08 8B 54 B2 32 89 32 35 32 30 |:..@.p..T.2.2520|
00000C40: 00 73 14 7A 08 99 22 53 54 30 52 53 54 45 20 56 |.s.z.."ST0RSTE V|
00000C50: 5B 52 44 49 20 46 4F 52 20 4E 20 20 22 3B 3A 84 |[RDI FOR N ";:.|
00000C60: 39 2C 58 24 3A 57 B2 C5 28 58 24 29 3A 99 3A 4D |9,X$:W..(X$):.:M|
00000C70: 32 B2 32 00 A2 14 84 08 8F 2A 2A 2A 2A 2A 20 44 |2.2......***** D|
00000C80: 49 4D 50 28 32 2A 57 29 2C 41 45 28 57 2B 31 29 |IMP(2*W),AE(W+1)|
00000C90: 2C 42 28 57 2B 31 29 2C 41 28 57 2B 31 2C 57 2B |,B(W+1),A(W+1,W+|
00000CA0: 32 29 00 B7 14 8E 08 81 52 B2 30 A4 32 AC 4D 32 |2)......R.0.2.M2|
00000CB0: 3A 50 28 52 29 B2 30 00 CF 14 98 08 8B 52 B3 B2 |:P(R).0......R..|
00000CC0: 4D 32 A7 42 31 28 52 AA 31 29 B2 30 3A 82 52 00 |M2.B1(R.1).0:.R.|
00000CD0: E9 14 A2 08 82 52 3A 81 49 B2 31 A4 4E 3A 50 45 |.....R:.I.1.N:PE|
00000CE0: B2 31 3A 51 B2 59 28 49 29 00 04 15 AC 08 81 52 |.1:Q.Y(I)......R|
00000CF0: B2 30 A4 32 AC 4D 32 3A 50 28 52 29 B2 50 28 52 |.0.2.M2:P(R).P(R|
00000D00: 29 AA 50 45 00 21 15 B6 08 8B 52 B3 B2 4D 32 A7 |).PE.!....R..M2.|
00000D10: 42 31 28 52 AA 31 29 B2 42 31 28 52 AA 31 29 AA |B1(R.1).B1(R.1).|
00000D20: 51 00 3E 15 C0 08 50 45 B2 50 45 AC 58 28 49 29 |Q.>...PE.PE.X(I)|
00000D30: 3A 51 B2 51 AC 58 28 49 29 3A 82 52 2C 49 00 56 |:Q.Q.X(I):.R,I.V|
00000D40: 15 CA 08 81 4B B2 31 A4 4D 32 AA 31 3A 81 4A B2 |....K.1.M2.1:.J.|
00000D50: 31 A4 4D 32 AA 31 00 6F 15 D4 08 41 28 4B 2C 4A |1.M2.1.o...A(K,J|
00000D60: 29 B2 50 28 4B AA 4A AB 32 29 3A 82 4A 2C 4B 00 |).P(K.J.2):.J,K.|
00000D70: 90 15 DE 08 81 4B B2 31 A4 4D 32 AA 31 3A 41 28 |.....K.1.M2.1:A(|
00000D80: 4B 2C 4D 32 AA 32 29 B2 42 31 28 4B 29 3A 82 4B |K,M2.2).B1(K):.K|
00000D90: 00 AB 15 E8 08 4E 31 B2 4E 3A 4E B2 4D 32 AA 31 |.....N1.N:N.M2.1|
00000DA0: 3A 8D 32 37 36 30 3A 4E B2 4E 31 00 B3 15 F2 08 |:.2760:N.N1.....|
00000DB0: 99 4F 24 00 E0 15 FC 08 99 22 50 4F 4C 59 4E 4F |.O$......"POLYNO|
00000DC0: 4D 49 45 54 20 41 46 22 4D 32 22 47 52 41 44 20 |MIET AF"M2"GRAD |
00000DD0: 47 45 4E 4E 45 4D 20 44 45 20 47 49 56 4E 45 22 |GENNEM DE GIVNE"|
00000DE0: 00 F3 15 06 09 99 4E 22 50 55 4E 4B 54 45 52 3A |......N"PUNKTER:|
00000DF0: 22 3A 99 00 1D 16 10 09 99 22 20 20 20 20 20 4B |":......." K|
00000E00: 4F 4E 53 54 41 4E 54 45 20 4C 45 44 20 20 20 20 |ONSTANTE LED |
00000E10: 20 20 3D 22 41 28 31 2C 4D 32 AA 32 29 00 56 16 | ="A(1,M2.2).V.|
00000E20: 1A 09 81 49 B2 32 A4 4D 32 AA 31 3A 99 22 4B 4F |...I.2.M2.1:."KO|
00000E30: 45 46 46 49 43 49 45 4E 54 45 4E 20 54 49 4C 20 |EFFICIENTEN TIL |
00000E40: 58 20 5E 22 49 AB 31 22 3D 22 41 28 49 2C 4D 32 |X ^"I.1"="A(I,M2|
00000E50: AA 32 29 3A 82 49 00 6A 16 24 09 8B 50 24 B2 22 |.2):.I.j.$..P$."|
00000E60: 4A 22 A7 99 3A 89 32 33 38 30 00 9A 16 2E 09 99 |J"..:.2380......|
00000E70: 22 11 4B 4F 4E 54 52 4F 4C 20 41 46 20 59 2D 56 |".KONTROL AF Y-V|
00000E80: 5B 52 44 49 45 52 20 28 4A 2F 4E 29 3A 20 22 3B |[RDIER (J/N): ";|
00000E90: 3A 84 39 2C 41 24 3A 99 3A 99 00 AB 16 38 09 8B |:.9,A$:.:....8..|
00000EA0: 41 24 B2 22 4E 22 A7 32 34 34 30 00 BD 16 42 09 |A$."N".2440...B.|
00000EB0: 8B 41 24 B3 B1 22 4A 22 A7 32 33 35 30 00 DF 16 |.A$.."J".2350...|
00000EC0: 4C 09 99 22 20 20 58 22 2C 22 59 47 49 56 45 54 |L.." X","YGIVET|
00000ED0: 22 2C 22 59 42 45 52 45 47 4E 45 54 22 3A 99 00 |","YBEREGNET":..|
00000EE0: F9 16 56 09 81 49 B2 31 A4 4E 3A 51 B2 41 28 4D |..V..I.1.N:Q.A(M|
00000EF0: 32 AA 31 2C 4D 32 AA 32 29 00 1B 17 60 09 81 4A |2.1,M2.2)...`..J|
00000F00: B2 4D 32 A4 31 A9 AB 31 3A 51 B2 51 AC 58 28 49 |.M2.1..1:Q.Q.X(I|
00000F10: 29 AA 41 28 4A 2C 4D 32 AA 32 29 00 32 17 6A 09 |).A(J,M2.2).2.j.|
00000F20: 82 4A 3A 99 58 28 49 29 2C 59 28 49 29 2C 51 3A |.J:.X(I),Y(I),Q:|
00000F30: 82 49 00 55 17 74 09 8F 2A 2A 2A 49 46 50 24 3D |.I.U.t..***IFP$=|
00000F40: 22 4A 22 54 48 45 4E 50 52 49 4E 54 23 31 3A 43 |"J"THENPRINT#1:C|
00000F50: 4C 4F 53 45 31 00 79 17 7E 09 8F 2A 2A 2A 49 46 |LOSE1.y.~..***IF|
00000F60: 50 24 3D 22 4A 22 54 48 45 4E 50 24 3D 22 4E 22 |P$="J"THENP$="N"|
00000F70: 3A 47 4F 54 4F 32 34 37 30 00 B7 17 88 09 8F 2A |:GOTO2470......*|
00000F80: 2A 2A 50 52 49 4E 54 22 11 55 44 53 4B 52 49 46 |**PRINT".UDSKRIF|
00000F90: 54 20 50 5D 20 50 52 49 4E 54 45 52 20 28 4A 2F |T P] PRINTER (J/|
00000FA0: 4E 29 3A 20 22 3B 3A 49 4E 50 55 54 23 39 2C 50 |N): ";:INPUT#9,P|
00000FB0: 24 3A 50 52 49 4E 54 00 DF 17 92 09 8F 2A 49 46 |$:PRINT......*IF|
00000FC0: 50 24 3D 22 4A 22 54 48 45 4E 4F 50 45 4E 31 2C |P$="J"THENOPEN1,|
00000FD0: 34 3A 43 4D 44 31 3A 47 4F 54 4F 32 32 39 30 00 |4:CMD1:GOTO2290.|
00000FE0: F9 17 9C 09 8F 2A 2A 2A 49 46 50 24 3C 3E 22 4E |.....***IFP$<>"N|
00000FF0: 22 47 4F 54 4F 32 34 34 30 00 15 18 A1 09 8B 41 |"GOTO2440......A|
00001000: 24 B2 22 4A 22 A7 A1 50 24 3A 8B 50 24 B2 22 22 |$."J"..P$:.P$.""|
00001010: A7 32 34 36 35 00 22 18 A6 09 8B 4D 32 B2 57 A7 |.2465."....M2.W.|
00001020: 39 30 00 4A 18 B0 09 99 22 11 4E 59 54 20 50 4F |90.J....".NYT PO|
00001030: 4C 59 4E 4F 4D 49 55 4D 20 28 4A 2F 4E 29 3A 20 |LYNOMIUM (J/N): |
00001040: 22 3B 3A 84 39 2C 41 24 3A 99 00 64 18 BA 09 8B |";:.9,A$:..d....|
00001050: 41 24 B2 22 4A 22 A7 4D 32 B2 4D 32 AA 31 3A 89 |A$."J".M2.M2.1:.|
00001060: 32 31 39 30 00 7C 18 C4 09 8B 41 24 B3 B1 22 4E |2190.|....A$.."N|
00001070: 22 B0 41 51 B3 B1 31 A7 32 34 38 30 00 84 18 CE |".AQ..1.2480....|
00001080: 09 89 39 30 00 A0 18 D8 09 86 4B 28 32 2C 33 29 |..90......K(2,3)|
00001090: 3A 4B 28 31 2C 31 29 B2 4E 3A 81 49 B2 31 A4 4E |:K(1,1).N:.I.1.N|
000010A0: 00 BA 18 E2 09 4B 28 31 2C 32 29 B2 4B 28 31 2C |.....K(1,2).K(1,|
000010B0: 32 29 AA BD 28 58 28 49 29 29 00 D1 18 EC 09 4B |2)..(X(I)).....K|
000010C0: 28 31 2C 33 29 B2 4B 28 31 2C 33 29 AA 59 28 49 |(1,3).K(1,3).Y(I|
000010D0: 29 00 ED 18 F6 09 4B 28 32 2C 32 29 B2 4B 28 32 |).....K(2,2).K(2|
000010E0: 2C 32 29 AA BD 28 32 AC 58 28 49 29 29 00 0F 19 |,2)..(2.X(I))...|
000010F0: 00 0A 4B 28 32 2C 33 29 B2 4B 28 32 2C 33 29 AA |..K(2,3).K(2,3).|
00001100: BD 28 58 28 49 29 29 AC 59 28 49 29 3A 82 49 00 |.(X(I)).Y(I):.I.|
00001110: 21 19 0A 0A 4B 28 32 2C 31 29 B2 4B 28 31 2C 32 |!...K(2,1).K(1,2|
00001120: 29 00 43 19 14 0A 44 B2 4B 28 31 2C 31 29 AC 4B |).C...D.K(1,1).K|
00001130: 28 32 2C 32 29 AB 4B 28 31 2C 32 29 AC 4B 28 32 |(2,2).K(1,2).K(2|
00001140: 2C 31 29 00 69 19 1E 0A 41 B2 28 4B 28 31 2C 33 |,1).i...A.(K(1,3|
00001150: 29 AC 4B 28 32 2C 32 29 AB 4B 28 31 2C 32 29 AC |).K(2,2).K(1,2).|
00001160: 4B 28 32 2C 33 29 29 AD 44 00 8F 19 28 0A 42 B2 |K(2,3)).D...(.B.|
00001170: 28 4B 28 31 2C 31 29 AC 4B 28 32 2C 33 29 AB 4B |(K(1,1).K(2,3).K|
00001180: 28 31 2C 33 29 AC 4B 28 32 2C 31 29 29 AD 44 00 |(1,3).K(2,1)).D.|
00001190: 97 19 32 0A 99 4F 24 00 B6 19 3C 0A 99 3A 99 22 |..2..O$...<..:."|
000011A0: 44 45 4E 20 53 30 47 54 45 20 46 55 4E 4B 54 49 |DEN S0GTE FUNKTI|
000011B0: 4F 4E 3A 22 3A 99 00 C6 19 46 0A 8B 42 B1 30 A7 |ON:":....F..B.0.|
000011C0: 42 24 B2 22 2B 22 00 E3 19 50 0A 99 22 20 20 59 |B$."+"...P.." Y|
000011D0: 3D 22 41 3B 42 24 3B 42 22 2A 45 58 50 28 58 29 |="A;B$;B"*EXP(X)|
000011E0: 22 3A 99 00 F4 19 5A 0A 8B 50 24 B2 22 4A 22 A7 |":....Z..P$."J".|
000011F0: 32 36 39 30 00 21 1A 64 0A 99 22 4B 4F 4E 54 52 |2690.!.d.."KONTR|
00001200: 4F 4C 20 41 46 20 59 2D 56 5B 52 44 49 45 52 20 |OL AF Y-V[RDIER |
00001210: 28 4A 2F 4E 29 3A 20 22 3B 3A 84 39 2C 41 24 3A |(J/N): ";:.9,A$:|
00001220: 99 00 32 1A 6E 0A 8B 41 24 B2 22 4E 22 A7 32 37 |..2.n..A$."N".27|
00001230: 32 30 00 44 1A 78 0A 8B 41 24 B3 B1 22 4A 22 A7 |20.D.x..A$.."J".|
00001240: 32 36 36 30 00 68 1A 82 0A 99 3A 99 22 20 20 58 |2660.h....:." X|
00001250: 22 2C 22 59 47 49 56 45 54 22 2C 22 59 42 45 52 |","YGIVET","YBER|
00001260: 45 47 4E 45 54 22 3A 99 00 8D 1A 8C 0A 81 49 B2 |EGNET":.......I.|
00001270: 31 A4 4E 3A 99 58 28 49 29 2C 59 28 49 29 2C 41 |1.N:.X(I),Y(I),A|
00001280: AA 42 AC BD 28 58 28 49 29 29 3A 82 49 00 B3 1A |.B..(X(I)):.I...|
00001290: 96 0A 8F 2A 2A 49 46 50 24 3D 22 4A 22 54 48 45 |...**IFP$="J"THE|
000012A0: 4E 50 52 49 4E 54 23 31 3A 43 4C 4F 53 45 31 3A |NPRINT#1:CLOSE1:|
000012B0: 45 4E 44 00 F0 1A A0 0A 8F 2A 2A 50 52 49 4E 54 |END......**PRINT|
000012C0: 22 11 55 44 53 4B 52 49 46 54 20 50 5D 20 50 52 |".UDSKRIFT P] PR|
000012D0: 49 4E 54 45 52 20 28 4A 2F 4E 29 3A 20 22 3B 3A |INTER (J/N): ";:|
000012E0: 49 4E 50 55 54 23 39 2C 50 24 3A 50 52 49 4E 54 |INPUT#9,P$:PRINT|
000012F0: 00 1B 1B AA 0A 8F 2A 2A 2A 2A 49 46 50 24 3D 22 |......****IFP$="|
00001300: 4A 22 54 48 45 4E 4F 50 45 4E 31 2C 34 3A 43 4D |J"THENOPEN1,4:CM|
00001310: 44 31 3A 47 4F 54 4F 32 36 31 30 00 36 1B B4 0A |D1:GOTO2610.6...|
00001320: 8F 2A 2A 2A 2A 49 46 50 24 3C 3E 22 4E 22 47 4F |.****IFP$<>"N"GO|
00001330: 54 4F 32 37 32 30 00 4A 1B BE 0A A1 41 24 3A 8B |TO2720.J....A$:.|
00001340: 41 24 B2 22 22 A7 32 37 35 30 00 52 1B C3 0A 89 |A$."".2750.R....|
00001350: 39 30 00 70 1B C8 0A 81 52 B2 31 A4 4E AB 31 3A |90.p....R.1.N.1:|
00001360: 4D 31 B2 B6 28 41 28 52 2C 52 29 29 3A 4B B2 52 |M1..(A(R,R)):K.R|
00001370: 00 7D 1B D2 0A 81 49 B2 52 AA 31 A4 4E 00 95 1B |.}....I.R.1.N...|
00001380: DC 0A 8B B6 28 41 28 49 2C 52 29 29 B3 B2 4D 31 |....(A(I,R))..M1|
00001390: 89 32 38 30 30 00 AA 1B E6 0A 4D 31 B2 B6 28 41 |.2800.....M1..(A|
000013A0: 28 49 2C 52 29 29 3A 4B B2 49 00 B1 1B F0 0A 82 |(I,R)):K.I......|
000013B0: 49 00 E0 1B FA 0A 8B B6 28 4D 31 29 B3 31 45 AB |I.......(M1).1E.|
000013C0: 36 A7 99 22 4C 49 47 4E 49 4E 47 53 53 59 53 54 |6.."LIGNINGSSYST|
000013D0: 45 4D 45 54 20 55 53 54 41 42 49 4C 54 22 3A 8E |EMET USTABILT":.|
000013E0: 00 EE 1B 04 0B 8B 4B B2 52 89 32 38 36 30 00 FB |......K.R.2860..|
000013F0: 1B 0E 0B 81 49 B2 52 A4 4E AA 31 00 1F 1C 18 0B |....I.R.N.1.....|
00001400: 4D B2 41 28 52 2C 49 29 3A 41 28 52 2C 49 29 B2 |M.A(R,I):A(R,I).|
00001410: 41 28 4B 2C 49 29 3A 41 28 4B 2C 49 29 B2 4D 00 |A(K,I):A(K,I).M.|
00001420: 26 1C 22 0B 82 49 00 44 1C 2C 0B 81 49 B2 52 AA |&."..I.D.,..I.R.|
00001430: 31 A4 4E 3A 4B 31 B2 41 28 49 2C 52 29 AD 41 28 |1.N:K1.A(I,R).A(|
00001440: 52 2C 52 29 00 51 1C 36 0B 81 4A B2 52 A4 4E AA |R,R).Q.6..J.R.N.|
00001450: 31 00 6D 1C 40 0B 41 28 49 2C 4A 29 B2 41 28 49 |1.m.@.A(I,J).A(I|
00001460: 2C 4A 29 AB 4B 31 AC 41 28 52 2C 4A 29 00 78 1C |,J).K1.A(R,J).x.|
00001470: 4A 0B 82 4A 2C 49 2C 52 00 B1 1C 4B 0B 8B 41 28 |J..J,I,R...K..A(|
00001480: 4E 2C 4E 29 B2 30 A7 99 22 11 46 4F 52 4B 45 52 |N,N).0..".FORKER|
00001490: 54 20 49 4E 44 54 41 53 54 4E 49 4E 47 20 21 22 |T INDTASTNING !"|
000014A0: 3A 81 49 B2 31 A4 32 35 30 30 3A 82 3A 89 35 38 |:.I.1.2500:.:.58|
000014B0: 30 00 CE 1C 54 0B 41 28 4E 2C 4E AA 31 29 B2 41 |0...T.A(N,N.1).A|
000014C0: 28 4E 2C 4E AA 31 29 AD 41 28 4E 2C 4E 29 00 E9 |(N,N.1).A(N,N)..|
000014D0: 1C 5E 0B 81 49 B2 4E AB 31 A4 31 A9 AB 31 3A 53 |.^..I.N.1.1..1:S|
000014E0: B2 41 28 49 2C 4E AA 31 29 00 F6 1C 68 0B 81 4D |.A(I,N.1)...h..M|
000014F0: B2 49 AA 31 A4 4E 00 11 1D 72 0B 53 B2 53 AB 41 |.I.1.N...r.S.S.A|
00001500: 28 49 2C 4D 29 AC 41 28 4D 2C 4E AA 31 29 3A 82 |(I,M).A(M,N.1):.|
00001510: 4D 00 27 1D 7C 0B 41 28 49 2C 4E AA 31 29 B2 53 |M.'.|.A(I,N.1).S|
00001520: AD 41 28 49 2C 49 29 00 37 1D 81 0B 8B 41 51 B3 |.A(I,I).7....AQ.|
00001530: B1 31 A7 33 30 30 30 00 40 1D 86 0B 82 49 3A 8E |.1.3000.@....I:.|
00001540: 00 5E 1D B8 0B 8F 2A 2A 2A 32 2E 20 47 52 41 44 |.^....***2. GRAD|
00001550: 53 20 4C 49 47 4E 49 4E 47 45 52 2A 2A 2A 00 9A |S LIGNINGER***..|
00001560: 1D C2 0B 4F 24 B2 22 93 11 12 20 20 20 92 20 32 |...O$."... . 2|
00001570: 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E 47 20 |. GRADS LIGNING |
00001580: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001590: 20 20 20 20 92 22 3A 99 4F 24 00 B1 1D CC 0B 99 | .":.O$......|
000015A0: 22 11 41 2A 58 91 32 11 2B 42 2A 58 2B 43 3D 30 |".A*X.2.+B*X+C=0|
000015B0: 22 00 D0 1D 12 0C 99 22 11 4B 4F 45 46 46 49 43 |"......".KOEFFIC|
000015C0: 49 45 4E 54 45 4E 20 54 49 4C 20 58 91 32 11 22 |IENTEN TIL X.2."|
000015D0: 00 00 1E 1C 0C 99 22 41 20 4D 45 44 20 46 4F 52 |......"A MED FOR|
000015E0: 54 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 20 |TEGN |
000015F0: 20 20 20 20 3A 20 22 3B 3A 84 39 2C 41 24 3A 99 | : ";:.9,A$:.|
00001600: 00 0C 1E 21 0C 41 B2 C5 28 41 24 29 00 2C 1E 24 |...!.A..(A$).,.$|
00001610: 0C 99 22 11 11 4B 4F 45 46 46 49 43 49 45 4E 54 |.."..KOEFFICIENT|
00001620: 45 4E 20 54 49 4C 20 58 20 20 20 22 00 5E 1E 26 |EN TIL X ".^.&|
00001630: 0C 99 22 42 20 4D 45 44 20 46 4F 52 54 45 47 4E |.."B MED FORTEGN|
00001640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001650: 3A 20 22 3B 3A 84 39 2C 42 24 3A 99 3A 99 00 7D |: ";:.9,B$:.:..}|
00001660: 1E 2B 0C 42 B2 C5 28 42 24 29 3A 8B 42 B2 B1 30 |.+.B..(B$):.B..0|
00001670: A7 42 24 B2 22 9D 2B 22 AA C4 28 42 29 00 A0 1E |.B$.".+"..(B)...|
00001680: 2E 0C 99 22 11 44 45 54 20 52 45 4E 45 20 54 41 |...".DET RENE TA|
00001690: 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |L "|
000016A0: 00 D0 1E 30 0C 99 22 43 20 4D 45 44 20 46 4F 52 |...0.."C MED FOR|
000016B0: 54 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 20 |TEGN |
000016C0: 20 20 20 20 3A 20 22 3B 3A 84 39 2C 43 24 3A 99 | : ";:.9,C$:.|
000016D0: 00 EF 1E 35 0C 43 B2 C5 28 43 24 29 3A 8B 43 B2 |...5.C..(C$):.C.|
000016E0: B1 30 A7 43 24 B2 22 20 2B 22 AA C4 28 43 29 00 |.0.C$." +"..(C).|
000016F0: 15 1F 4E 0C 4C 24 B2 41 24 AA 22 2A 58 91 32 11 |..N.L$.A$."*X.2.|
00001700: 20 22 AA 42 24 AA 22 2A 58 20 22 AA 43 24 AA 22 | ".B$."*X ".C$."|
00001710: 20 3D 20 30 22 00 24 1F 80 0C 99 4F 24 3A 99 22 | = 0".$....O$:."|
00001720: 11 22 4C 24 00 48 1F 8A 0C 99 22 11 45 52 20 4C |."L$.H....".ER L|
00001730: 49 47 4E 49 4E 47 45 4E 20 4B 4F 52 52 45 4B 54 |IGNINGEN KORREKT|
00001740: 20 28 4A 2F 4E 29 20 22 00 5C 1F 8F 0C A1 53 24 | (J/N) ".\....S$|
00001750: 3A 8B 53 24 B2 22 22 A7 33 32 31 35 00 6E 1F 94 |:.S$."".3215.n..|
00001760: 0C 8B 53 24 B3 B1 22 4A 22 A7 33 30 30 30 00 A1 |..S$.."J".3000..|
00001770: 1F 99 0C 8B 41 B2 30 A7 99 22 11 44 45 54 20 45 |....A.0..".DET E|
00001780: 52 20 49 4B 4B 45 20 45 4E 20 32 2E 20 47 52 41 |R IKKE EN 2. GRA|
00001790: 44 53 4C 49 47 4E 49 4E 47 21 22 3A 89 33 36 30 |DSLIGNING!":.360|
000017A0: 30 00 B0 1F 9E 0C 99 4F 24 3A 99 22 11 22 4C 24 |0......O$:."."L$|
000017B0: 00 CB 1F E4 0C 8F 2A 42 45 52 45 47 4E 49 4E 47 |......*BEREGNING|
000017C0: 20 41 46 20 52 30 44 44 45 52 2A 00 E6 1F EE 0C | AF R0DDER*.....|
000017D0: 44 B2 42 AC 42 AB 34 AC 41 AC 43 3A 8B 44 B2 B1 |D.B.B.4.A.C:.D..|
000017E0: 30 A7 33 33 32 30 00 10 20 F0 0C 8F 2A 2A 50 52 |0.3320.. ...**PR|
000017F0: 49 4E 54 22 11 44 45 52 20 45 52 20 49 4E 47 45 |INT".DER ER INGE|
00001800: 4E 20 52 45 45 4C 4C 45 20 52 30 44 44 45 52 22 |N REELLE R0DDER"|
00001810: 00 1F 20 F2 0C 8F 2A 47 4F 54 4F 33 36 30 30 00 |.. ...*GOTO3600.|
00001820: 3D 20 F8 0C 99 22 20 11 11 20 20 2D 42 91 2B 11 |= ..." .. -B.+.|
00001830: 9D 2D 20 CD CE 91 CE B7 B7 B7 B7 B7 B7 00 56 20 |.- ...........V |
00001840: 02 0D 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 42 91 |..."..........B.|
00001850: 32 11 2D 34 41 43 00 6D 20 0C 0D 99 22 58 3D 20 |2.-4AC.m ..."X= |
00001860: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 7E 20 |..............~ |
00001870: 16 0D 99 22 20 20 20 20 20 20 20 20 32 41 00 A8 |..." 2A..|
00001880: 20 1B 0D 4F 53 B2 32 AA C3 28 C4 28 A5 54 33 28 | ..OS.2..(.(.T3(|
00001890: 42 AC 42 29 29 29 AA C3 28 C4 28 A5 54 33 28 AB |B.B)))..(.(.T3(.|
000018A0: 34 AC 41 AC 43 29 29 29 00 C2 20 20 0D 81 49 B2 |4.A.C))).. ..I.|
000018B0: 31 A4 4F 53 3A 4F 53 24 B2 4F 53 24 AA 22 B7 22 |1.OS:OS$.OS$."."|
000018C0: 3A 82 00 EA 20 25 0D 4C 32 24 B2 22 20 20 20 20 |:... %.L2$." |
000018D0: 22 AA C4 28 AB 31 AC 42 29 AA 22 91 2B 11 9D 2D |"..(.1.B).".+..-|
000018E0: 20 CD CE 91 CE 22 AA 4F 53 24 00 FA 20 5C 0D 99 | ....".OS$.. \..|
000018F0: 22 11 11 22 3B 3A 99 4C 32 24 00 26 21 61 0D 50 |"..";:.L2$.&!a.P|
00001900: B2 C3 28 C4 28 AB 31 AC 42 29 29 AA 38 3A 44 31 |..(.(.1.B)).8:D1|
00001910: B2 A5 54 33 28 AB 34 AC 41 AC 43 29 3A 44 31 24 |..T3(.4.A.C):D1$|
00001920: B2 C4 28 44 31 29 00 3D 21 64 0D 8B 44 31 B2 B1 |..(D1).=!d..D1..|
00001930: 30 A7 44 31 24 B2 22 2B 22 AA 44 31 24 00 65 21 |0.D1$."+".D1$.e!|
00001940: 66 0D 99 A3 50 29 A5 54 33 28 42 AE 32 29 3B 3A |f...P).T3(B.2);:|
00001950: 99 44 31 24 3A 8F 2A 2A 2A 46 4E 54 33 28 2D 34 |.D1$:.***FNT3(-4|
00001960: 2A 41 2A 43 29 00 87 21 70 0D 99 22 58 3D 20 22 |*A*C)..!p.."X= "|
00001970: 3B 3A 81 49 B2 31 A4 4F 53 AA 50 AB 32 3A 99 22 |;:.I.1.OS.P.2:."|
00001980: C0 22 3B 3A 82 3A 99 00 A4 21 7A 0D 99 A3 31 30 |.";:.:...!z...10|
00001990: 29 A5 54 33 28 32 AC 41 29 3A 8B 44 B2 B1 30 A7 |).T3(2.A):.D..0.|
000019A0: 33 35 30 30 00 C7 21 84 0D 99 22 11 44 45 52 20 |3500..!...".DER |
000019B0: 45 52 20 49 4E 47 45 4E 20 52 45 45 4C 4C 45 20 |ER INGEN REELLE |
000019C0: 52 30 44 44 45 52 22 00 06 22 8E 0D 99 22 11 53 |R0DDER".."...".S|
000019D0: 54 30 52 52 45 4C 53 45 4E 20 55 4E 44 45 52 20 |T0RRELSEN UNDER |
000019E0: 4B 56 41 44 52 41 54 52 4F 44 53 54 45 47 4E 45 |KVADRATRODSTEGNE|
000019F0: 54 20 45 52 20 20 20 4E 45 47 41 54 49 56 2E 22 |T ER NEGATIV."|
00001A00: 3A 89 33 36 30 30 00 25 22 AC 0D 58 31 B2 28 AB |:.3600.%"..X1.(.|
00001A10: 42 AA 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 44 22 B6 0D 58 32 B2 28 AB 42 |(2.A).D"..X2.(.B|
00001A30: AB BA 28 42 AC 42 AB 34 AC 41 AC 43 29 29 AD 28 |..(B.B.4.A.C)).(|
00001A40: 32 AC 41 29 00 62 22 C0 0D 99 22 11 58 3D 22 A5 |2.A).b"...".X=".|
00001A50: 54 33 28 58 31 29 22 CE CD 20 22 A5 54 33 28 58 |T3(X1)".. ".T3(X|
00001A60: 32 29 00 79 22 10 0E 99 22 11 11 11 54 52 59 4B |2).y"..."...TRYK|
00001A70: 20 3C 52 45 54 55 52 4E 3E 00 8D 22 15 0E A1 41 | <RETURN>.."...A|
00001A80: 24 3A 8B 41 24 B2 22 22 A7 33 36 30 35 00 9C 22 |$:.A$."".3605.."|
00001A90: 1A 0E 99 4F 24 3A 4F 53 24 B2 22 22 00 C3 22 24 |...O$:OS$."".."$|
00001AA0: 0E 99 22 11 12 20 31 20 92 20 46 4C 45 52 45 20 |..".. 1 . FLERE |
00001AB0: 32 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E 47 |2. GRADS LIGNING|
00001AC0: 45 52 22 00 E7 22 2E 0E 99 22 11 12 20 32 20 92 |ER".."...".. 2 .|
00001AD0: 20 54 49 4C 42 41 47 45 20 54 49 4C 20 48 4F 56 | TILBAGE TIL HOV|
00001AE0: 45 44 4D 45 4E 55 22 00 02 23 38 0E 99 22 11 12 |EDMENU"..#8.."..|
00001AF0: 20 20 20 92 20 53 56 41 52 20 4D 45 44 20 54 41 | . SVAR MED TA|
00001B00: 4C 22 00 16 23 42 0E A1 53 24 3A 8B 53 24 B2 22 |L"..#B..S$:.S$."|
00001B10: 22 A7 33 36 35 30 00 35 23 4C 0E 53 B2 C5 28 53 |".3650.5#L.S..(S|
00001B20: 24 29 3A 8B 53 B3 31 B0 53 B1 32 A7 99 52 24 3A |$):.S.1.S.2..R$:|
00001B30: 89 33 36 34 30 00 49 23 56 0E 91 53 AA 41 51 AB |.3640.I#V..S.AQ.|
00001B40: 31 89 33 30 30 30 2C 39 30 00 65 23 A0 0F 8F 2A |1.3000,90.e#...*|
00001B50: 2A 33 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E |*3. GRADS LIGNIN|
00001B60: 47 45 52 2A 2A 00 A1 23 AA 0F 4F 24 B2 22 93 11 |GER**..#..O$."..|
00001B70: 12 20 20 20 92 20 33 2E 20 47 52 41 44 53 20 4C |. . 3. GRADS L|
00001B80: 49 47 4E 49 4E 47 20 12 20 20 20 20 20 20 20 20 |IGNING . |
00001B90: 20 20 20 20 20 20 20 20 20 20 20 92 22 3A 99 4F | .":.O|
00001BA0: 24 00 C1 23 B4 0F 99 22 11 41 2A 58 91 33 11 2B |$..#...".A*X.3.+|
00001BB0: 42 2A 58 91 32 11 2B 43 2A 58 2B 44 20 3D 20 30 |B*X.2.+C*X+D = 0|
00001BC0: 22 00 E0 23 FA 0F 99 22 11 4B 4F 45 46 46 49 43 |"..#...".KOEFFIC|
00001BD0: 49 45 4E 54 45 4E 20 54 49 4C 20 58 91 33 11 22 |IENTEN TIL X.3."|
00001BE0: 00 10 24 04 10 99 22 41 20 4D 45 44 20 46 4F 52 |..$..."A MED FOR|
00001BF0: 54 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 20 |TEGN |
00001C00: 20 20 20 20 3A 20 22 3B 3A 84 39 2C 41 24 3A 99 | : ";:.9,A$:.|
00001C10: 00 1C 24 09 10 41 B2 C5 28 41 24 29 00 3F 24 0C |..$..A..(A$).?$.|
00001C20: 10 99 22 11 11 4B 4F 45 46 46 49 43 49 45 4E 54 |.."..KOEFFICIENT|
00001C30: 45 4E 20 54 49 4C 20 58 91 32 11 20 20 20 22 00 |EN TIL X.2. ".|
00001C40: 71 24 0E 10 99 22 42 20 4D 45 44 20 46 4F 52 54 |q$..."B MED FORT|
00001C50: 45 47 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 |EGN |
00001C60: 20 20 20 3A 20 22 3B 3A 84 39 2C 42 24 3A 99 3A | : ";:.9,B$:.:|
00001C70: 99 00 90 24 13 10 42 B2 C5 28 42 24 29 3A 8B 42 |...$..B..(B$):.B|
00001C80: B2 B1 30 A7 42 24 B2 22 9D 2B 22 AA C4 28 42 29 |..0.B$.".+"..(B)|
00001C90: 00 B3 24 14 10 99 22 11 11 4B 4F 45 46 46 49 43 |..$..."..KOEFFIC|
00001CA0: 49 45 4E 54 45 4E 20 54 49 4C 20 58 20 20 20 20 |IENTEN TIL X |
00001CB0: 20 20 22 00 E5 24 15 10 99 22 43 20 4D 45 44 20 | "..$..."C MED |
00001CC0: 46 4F 52 54 45 47 4E 20 20 20 20 20 20 20 20 20 |FORTEGN |
00001CD0: 20 20 20 20 20 20 20 3A 20 22 3B 3A 84 39 2C 43 | : ";:.9,C|
00001CE0: 24 3A 99 3A 99 00 04 25 16 10 43 B2 C5 28 43 24 |$:.:...%..C..(C$|
00001CF0: 29 3A 8B 43 B2 B1 30 A7 43 24 B2 22 9D 2B 22 AA |):.C..0.C$.".+".|
00001D00: C4 28 43 29 00 27 25 18 10 99 22 11 44 45 54 20 |.(C).'%...".DET |
00001D10: 52 45 4E 45 20 54 41 4C 20 20 20 20 20 20 20 20 |RENE TAL |
00001D20: 20 20 20 20 20 20 22 00 57 25 1A 10 99 22 44 20 | ".W%..."D |
00001D30: 4D 45 44 20 46 4F 52 54 45 47 4E 20 20 20 20 20 |MED FORTEGN |
00001D40: 20 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B 3A | : ";:|
00001D50: 84 39 2C 44 24 3A 99 00 76 25 1D 10 44 B2 C5 28 |.9,D$:..v%..D..(|
00001D60: 44 24 29 3A 8B 44 B2 B1 30 A7 44 24 B2 22 20 2B |D$):.D..0.D$." +|
00001D70: 22 AA C4 28 44 29 00 A8 25 36 10 4C 24 B2 41 24 |"..(D)..%6.L$.A$|
00001D80: AA 22 2A 58 91 33 11 20 22 AA 42 24 AA 22 2A 58 |."*X.3. ".B$."*X|
00001D90: 91 32 11 20 22 AA 43 24 AA 22 2A 58 20 22 AA 44 |.2. ".C$."*X ".D|
00001DA0: 24 AA 22 20 3D 20 30 22 00 B7 25 68 10 99 4F 24 |$." = 0"..%h..O$|
00001DB0: 3A 99 22 11 22 4C 24 00 DB 25 72 10 96 A5 4C 31 |:."."L$..%r...L1|
00001DC0: 28 58 29 B2 28 58 AE 33 AA 42 AD 41 AC 58 AE 32 |(X).(X.3.B.A.X.2|
00001DD0: AA 43 AD 41 AC 58 AA 44 AD 41 29 00 FB 25 7C 10 |.C.A.X.D.A)..%|.|
00001DE0: 96 A5 4C 32 28 58 29 B2 28 33 AC 58 AE 32 AA 42 |..L2(X).(3.X.2.B|
00001DF0: AD 41 AC 32 AC 58 AA 43 AD 41 29 00 1F 26 CC 10 |.A.2.X.C.A)..&..|
00001E00: 99 22 11 45 52 20 4C 49 47 4E 49 4E 47 45 4E 20 |.".ER LIGNINGEN |
00001E10: 4B 4F 52 52 45 4B 54 20 28 4A 2F 4E 29 20 22 00 |KORREKT (J/N) ".|
00001E20: 33 26 D6 10 A1 53 24 3A 8B 53 24 B2 22 22 A7 34 |3&...S$:.S$."".4|
00001E30: 33 31 30 00 45 26 E0 10 8B 53 24 B3 B1 22 4A 22 |310.E&...S$.."J"|
00001E40: A7 34 30 30 30 00 84 26 E5 10 8B 41 B2 30 A7 99 |.4000..&...A.0..|
00001E50: 22 11 44 45 54 20 45 52 20 49 4B 4B 45 20 45 4E |".DET ER IKKE EN|
00001E60: 20 33 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E | 3. GRADS LIGNIN|
00001E70: 47 22 3A 81 49 B2 31 A4 32 30 30 30 3A 82 3A 89 |G":.I.1.2000:.:.|
00001E80: 33 30 30 30 00 BA 26 EA 10 99 22 11 49 4E 44 54 |3000..&...".INDT|
00001E90: 41 53 54 20 53 4B 30 4E 4E 45 54 20 56 5B 52 44 |AST SK0NNET V[RD|
00001EA0: 49 20 46 4F 52 20 58 20 22 3B 3A 84 39 2C 58 24 |I FOR X ";:.9,X$|
00001EB0: 3A 99 3A 58 B2 C5 28 58 24 29 00 C9 26 FE 10 99 |:.:X..(X$)..&...|
00001EC0: 4F 24 3A 99 22 11 22 4C 24 00 F0 26 03 11 99 22 |O$:."."L$..&..."|
00001ED0: 11 53 4B 30 4E 4E 45 54 20 58 20 20 20 20 20 20 |.SK0NNET X |
00001EE0: 20 20 20 20 20 20 46 4F 52 42 45 44 52 49 4E 47 | FORBEDRING|
00001EF0: 00 0D 27 08 11 81 49 B2 31 A4 32 30 3A 4B 31 B2 |..'...I.1.20:K1.|
00001F00: A5 4C 31 28 58 29 AD A5 4C 32 28 58 29 00 23 27 |.L1(X)..L2(X).#'|
00001F10: 12 11 59 B2 58 3A 58 B2 58 AB 4B 31 3A 58 28 49 |..Y.X:X.X.K1:X(I|
00001F20: 29 B2 58 00 3C 27 17 11 8B 49 AD 32 B2 B5 28 49 |).X.<'...I.2..(I|
00001F30: AD 32 29 A7 99 59 A3 32 30 29 4B 31 00 42 27 19 |.2)..Y.20)K1.B'.|
00001F40: 11 82 00 62 27 1C 11 8B A5 54 36 28 58 28 31 39 |...b'....T6(X(19|
00001F50: 29 29 B2 A5 54 36 28 58 28 32 30 29 29 A7 34 34 |))..T6(X(20)).44|
00001F60: 30 30 00 98 27 26 11 99 22 11 44 45 52 20 45 52 |00..'&..".DER ER|
00001F70: 20 49 4E 47 45 4E 20 53 4B 5B 52 49 4E 47 20 4D | INGEN SK[RING M|
00001F80: 45 44 20 32 30 20 49 54 45 52 41 54 49 4F 4E 45 |ED 20 ITERATIONE|
00001F90: 52 22 3A 89 34 36 30 30 00 A4 27 30 11 99 22 11 |R":.4600..'0..".|
00001FA0: 58 3D 22 58 00 BA 27 F8 11 99 22 11 11 54 52 59 |X="X..'..."..TRY|
00001FB0: 4B 20 3C 52 45 54 55 52 4E 3E 00 CE 27 FD 11 A1 |K <RETURN>..'...|
00001FC0: 41 24 3A 8B 41 24 B2 22 22 A7 34 36 30 35 00 DD |A$:.A$."".4605..|
00001FD0: 27 02 12 99 4F 24 3A 4F 53 24 B2 22 22 00 04 28 |'...O$:OS$.""..(|
00001FE0: 0C 12 99 22 11 12 20 31 20 92 20 46 4C 45 52 45 |...".. 1 . FLERE|
00001FF0: 20 33 2E 20 47 52 41 44 53 20 4C 49 47 4E 49 4E | 3. GRADS LIGNIN|
00002000: 47 45 52 22 00 28 28 16 12 99 22 11 12 20 32 20 |GER".((...".. 2 |
00002010: 92 20 54 49 4C 42 41 47 45 20 54 49 4C 20 48 4F |. TILBAGE TIL HO|
00002020: 56 45 44 4D 45 4E 55 22 00 43 28 20 12 99 22 11 |VEDMENU".C( ..".|
00002030: 12 20 20 20 92 20 53 56 41 52 20 4D 45 44 20 54 |. . SVAR MED T|
00002040: 41 4C 22 00 57 28 2A 12 A1 53 24 3A 8B 53 24 B2 |AL".W(*..S$:.S$.|
00002050: 22 22 A7 34 36 35 30 00 76 28 34 12 53 B2 C5 28 |"".4650.v(4.S..(|
00002060: 53 24 29 3A 8B 53 B3 31 B0 53 B1 32 A7 99 52 24 |S$):.S.1.S.2..R$|
00002070: 3A 89 33 36 34 30 00 8A 28 3E 12 91 53 AA 41 51 |:.3640..(>..S.AQ|
00002080: AB 31 89 34 30 30 30 2C 39 30 00 00 00 |.1.4000,90... |
..'....***COPYRIGHT JUST R.-DATA APS***.
0...AQ.1.B.........AQ.1.90.M..........C.
Z..53280,0:.53281,0...D.O$.".... . MAT
EMATIKMODUL . ."...N
..O$: 9:.9,0...X..".............. UI":."
JR COPYRIGHT 1983......" JUST R.-D
ATA APS":." DK 8700 HORSENS".#.H..A$
:.A$."".200.I.R.R$."..
.".}.....T3(X)..(X.1E3..5).1E3:..
T6(X)..(X.1E6..5).1E6.B....FL.0..X(25),Y
(15),A(40,41),B(40,41),P(30),AE(16),B1(1
6):.:FL.AQ...,..O$:.".. 1 . L0SNING AF 2
. GRADS LIGNING...6..".. 2 . L0SNING AF
3. GRADS LIGNING.C.@..".. 3 . L0SNING AF
N LIGNINGER MED N UBEKENDT
E (MAX. 40)...J..".. 4 . KURVETILPASNING
...O..".. 5 . SLUT...T..".. . SVAR MED
TAL"...V..S$:.S$."".342...^.SV.E(S$):.S
V.1.SV.5..R$:.340...H..SV.5.....R..SV.30
00,4000,580,1970...D..**N LIGNINGER**.Y.
N.O$."... . N LIGNINGER .
.":.O$...X..".L0SNINGSTIDEN V
OKSER NATURLIGVIS MED N"...B.."OG ER TYP
ISK FOR N=10 14 SEK.,FOR N=20".Z.L.."1.5
MIN. OG FOR N=30 4.5 MIN....V..".ANTAL
LIGNINGER: ";:.9,X$:N.E(X$):.:....{..N.2
..R$:.630.D....********DIMA(N,N+1):DIMB(
N,N+1):PRINT.X....AQ..1..:.T.1.N.S....R.
1.N:.R;"..LIGNING:"......S.1.N:."KOEFFIC
IENT TIL X(";S;.F....")=";:.9,IN$:.:.***
******** ,A(R,S):PRINT.X...A(R,S).E(IN$)
......S......"H0JRESIDEN =";:
.9,IN$:A(R,N.1).E(IN$):..#....O$:.R.I.F.
."KONTROL - KOEFFICIENTMATRICEN:".V.P..R
.1.N:..Q.Z..S.1.N.1:.A(R,S);:.S,R......:
.:."KORREKT (J/N): ";:.9,A$:.......A$."J
".820......A$.."N".740......:."NR.P] LIG
NING DER RETTES: ";:.9,X$:Q.E(X$):......
.Q.N..R$:.770.#....:."I";Q;"LIGNING ER K
OEFF. NU":..D.... S.1 . N.1:.A(Q,S);:. S
:.:..V. .."HVILKET NR. KOEFFICIENT RETTE
S: ";:.9,U:.:....*.."NY V[RDI: ";:.9,A(Q
,U):.:. 710...4..O$:. R.1 . N:. S.1 . N.
1.S.>.B(R,S).A(R,S):. S:. R...H..2760...
R..:."RESULTAT:"...\..I.1.N:."X("I")="A(
I,N.1):.I:.:.P$."J".910.T.F.."0NSKES KON
TROL V. INDS[TNING (J/N): ";:.9,A$:..G.P
..A$."J"..:.910.X.Z..A$.."N".870......97
0...... R.1 . N......R"LIGN. NUV. H0JRES
IDE="B(R,N.1):H.0.G.... S.1 . N.....H.H.
B(R,S).A(S,N.1):. S.......C(G(R)).7)" VE
D INDS[TNING="H.1.... R:.**IFP$="J"THENP
RINT#1:CLOSE1:END.P.J..****PRINT".UDSKRI
FT P] PRINTER (J/N): ";:INPUT#9,P$:PRINT
...T..**IFP$="J"THENOPEN1,4:CMD1:GOTO101
0...Y..****IFP$<>"N"GOTO970.F....A$:.A$.
"".990.N....90......"L0SNING AF N LIGNIN
GER MED N UBEKENDTE".%...."DEN INDTASTED
E KOEFFICIENTMATRIX:".2....R.1.N:..M....
S.1.N.1:.B(R,S);:.S,R.[....AQ.1.850.....
O$."... . KURVETILPASNING .
.":.O$.F...."FOR DE GIVNE PUNKT
ER FINDES DET POLYNO-"...F.."MIUM AF N'T
E GRAD, DER EFTER DE MINDSTE".".P.."KVAD
RATERS METODE BEDST TILPASSER SIG".4.Z..
"PUNKTERNE.".`...."N ANTAGER V[RDIERNE 2
,3,4 - - OP TIL".}...."EN VALGT 0VRE GR[
NSE."......:."ALTERNATIVT KAN S0GES TILP
ASNING MED ".W...."EN FUNKTION AF TYPEN
Y=A+B*EXP(X)":......."V[LGES 1.POLYN
OMIUM"......"ELLER 2.EXPONENTIALFUN
KTION".H. ..".TAST 1 ELLER 2: ";:.9,X$:T
.E(X$):..A.*..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.N.>.
.O$:.*****DIMX(N),Y(N)...H..I.1.N:. I;..
.R.."PUNKT: X = ";:.9,X$:X(I).E(X$):....
\...10)"Y = ";.2.F..9,X$:Y(I).E(X$):.:.I
:..@.P..T.2.2520.S.Z.."ST0RSTE V[RDI FOR
N ";:.9,X$:W.E(X$):.:M2.2......***** D
IMP(2*W),AE(W+1),B(W+1),A(W+1,W+2)......
R.0.2.M2:P(R).0.O....R..M2.B1(R.1).0:.R.
.....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.V.J..K.1.
M2.1:.J.1.M2.1.O.T.A(K,J).P(K.J.2):.J,K.
.....K.1.M2.1:A(K,M2.2).B1(K):.K.....N1.
N:N.M2.1:.2760:N.N1......O$......"POLYNO
MIET AF"M2"GRAD GENNEM DE GIVNE"......N"
PUNKTER:":......." KONSTANTE LED
="A(1,M2.2).V....I.2.M2.1:."KOEFFICIEN
TEN TIL X ^"I.1"="A(I,M2.2):.I.J.$..P$."
J"..:.2380......".KONTROL AF Y-V[RDIER (
J/N): ";:.9,A$:.:....8..A$."N".2440...B.
.A$.."J".2350...L.." X","YGIVET","YBERE
GNET":....V..I.1.N:Q.A(M2.1,M2.2)...`..J
.M2.1..1:Q.Q.X(I).A(J,M2.2).2.J..J:.X(I)
,Y(I),Q:.I.U.T..***IFP$="J"THENPRINT#1:C
LOSE1.Y.~..***IFP$="J"THENP$="N":GOTO247
0......***PRINT".UDSKRIFT P] PRINTER (J/
N): ";:INPUT#9,P$:PRINT......*IFP$="J"TH
ENOPEN1,4:CMD1:GOTO2290......***IFP$<>"N
"GOTO2440......A$."J"..P$:.P$."".2465.".
...M2.W.90.J....".NYT POLYNOMIUM (J/N):
";:.9,A$:..D....A$."J".M2.M2.1:.2190.|.D
..A$.."N".AQ..1.2480...N..90. .X..K(2,3)
:K(1,1).N:.I.1.N.....K(1,2).K(1,2)..(X(I
)).Q...K(1,3).K(1,3).Y(I).....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).C...D.K(1,1).K
(2,2).K(1,2).K(2,1).I...A.(K(1,3).K(2,2)
.K(1,2).K(2,3)).D...(.B.(K(1,1).K(2,3).K
(1,3).K(2,1)).D...2..O$...<..:."DEN S0GT
E FUNKTION:":..F.F..B.0.B$."+"...P.." Y
="A;B$;B"*EXP(X)":....Z..P$."J".2690.!.D
.."KONTROL AF Y-V[RDIER (J/N): ";:.9,A$:
..2.N..A$."N".2720.D.X..A$.."J".2660.H..
..:." X","YGIVET","YBEREGNET":.......I.
1.N:.X(I),Y(I),A.B..(X(I)):.I......**IFP
$="J"THENPRINT#1:CLOSE1:END... ..**PRINT
".UDSKRIFT P] PRINTER (J/N): ";:INPUT#9,
P$:PRINT......****IFP$="J"THENOPEN1,4:CM
D1:GOTO2610.6....****IFP$<>"N"GOTO2720.J
....A$:.A$."".2750.R.C..90.P.H..R.1.N.1:
M1..(A(R,R)):K.R.}.R..I.R.1.N.......(A(I
,R))..M1.2800.....M1..(A(I,R)):K.I......
I.......(M1).1E.6.."LIGNINGSSYSTEMET UST
ABILT":.......K.R.2860......I.R.N.1.....
M.A(R,I):A(R,I).A(K,I):A(K,I).M.&."..I.D
.,..I.R.1.N:K1.A(I,R).A(R,R).Q.6..J.R.N.
1.M.@.A(I,J).A(I,J).K1.A(R,J).X.J..J,I,R
...K..A(N,N).0..".FORKERT INDTASTNING !"
:.I.1.2500:.:.580.N.T.A(N,N.1).A(N,N.1).
A(N,N)...^..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).7....AQ..1.3000.@....I:.
.^....***2. GRADS LIGNINGER***...B.O$.".
.. . 2. GRADS LIGNING .
.":.O$...L..".A*X.2.+B*X+C=0".P...."
.KOEFFICIENTEN TIL X.2."......"A MED FOR
TEGN : ";:.9,A$:....!.A.E
(A$).,.$.."..KOEFFICIENTEN TIL X ".^.&
.."B MED FORTEGN : ";:.9,
B$:.:..}.+.B.E(B$):.B..0.B$.".+".D(B). .
...".DET RENE TAL ".P.0.."C
MED FORTEGN : ";:.9,C$:.
...5.C.E(C$):.C..0.C$." +".D(C)...N.L$.A
$."*X.2. ".B$."*X ".C$." = 0".$....O$:."
."L$.H....".ER LIGNINGEN KORREKT (J/N) "
.\....S$:.S$."".3215.N....S$.."J".3000..
....A.0..".DET ER IKKE EN 2. GRADSLIGNIN
G!":.3600......O$:."."L$.K....*BEREGNING
AF R0DDER*.....D.B.B.4.A.C:.D..0.3320..
...**PRINT".DER ER INGEN REELLE R0DDER"
.. ...*GOTO3600.= ..." .. -B.+..- MN.N.
......V ..."..........B.2.-4AC.M ..."X=
..............~ ..." 2A.. ..OS.2.
C(D(.T3(B.B))).C(D(.T3(.4.A.C))).B ..I.
1.OS:OS$.OS$.".":... %.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$.E!F...P).T3(B.2);:
.D1$:.***FNT3(-4*A*C)..!P.."X= ";:.I.1.O
S.P.2:.".";:.:...!Z...10).T3(2.A):.D..0.
3500.G!...".DER ER INGEN REELLE R0DDER".
."...".ST0RRELSEN UNDER KVADRATRODSTEGNE
T ER NEGATIV.":.3600.%"..X1.(.B..(B.B.
4.A.C)).(2.A).D"..X2.(.B..(B.B.4.A.C)).(
2.A).B"...".X=".T3(X1)"NM ".T3(X2).Y"...
"...TRYK <RETURN>.."...A$:.A$."".3605.."
...O$:OS$."".C"$..".. 1 . FLERE 2. GRADS
LIGNINGER".."...".. 2 . TILBAGE TIL HOV
EDMENU"..#8..".. . SVAR MED TAL"..#B..
S$:.S$."".3650.5#L.S.E(S$):.S.1.S.2..R$:
.3640.I#V..S.AQ.1.3000,90.E# ..**3. GRAD
S LIGNINGER**..#..O$."... . 3. GRADS L
IGNING . .":.O$.A#..."
.A*X.3.+B*X.2.+C*X+D = 0"..#...".KOEFFIC
IENTEN TIL X.3."..$..."A MED FORTEGN
: ";:.9,A$:...$..A.E(A$).?$.
.."..KOEFFICIENTEN TIL X.2. ".Q$..."B
MED FORTEGN : ";:.9,B$:.:
...$..B.E(B$):.B..0.B$.".+".D(B)..$...".
.KOEFFICIENTEN TIL X "..$..."C MED
FORTEGN : ";:.9,C$:.:...%
..C.E(C$):.C..0.C$.".+".D(C).'%...".DET
RENE TAL ".W%..."D MED FORT
EGN : ";:.9,D$:..V%..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) ".3&V..S$:
.S$."".4310.E&...S$.."J".4000..&...A.0..
".DET ER IKKE EN 3. GRADS LIGNING":.I.1.
2000:.:.3000..&...".INDTAST SK0NNET V[RD
I FOR X ";:.9,X$:.:X.E(X$).I&...O$:."."L
$..&...".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.B'.
...B'....T6(X(19))..T6(X(20)).4400..'&..
".DER ER INGEN SK[RING MED 20 ITERATIONE
R":.4600..'0..".X="X..'..."..TRYK <RETUR
N>.N'...A$:.A$."".4605..'...O$:OS$.""..(
...".. 1 . FLERE 3. GRADS LIGNINGER".((.
..".. 2 . TILBAGE TIL HOVEDMENU".C( ..".
. . SVAR MED TAL".W(*..S$:.S$."".4650.
V(4.S.E(S$):.S.1.S.2..R$:.3640..(>..S.AQ
.1.4000,90...
> CLICK IMAGE PREVIEW FOR FULL MODAL