1 REM Ins{nd av Stefan Westman <4969> 1985-04-18 12.35.19 1 ! ************************************************************ 2 ! ** ** 3 ! ## Informationsprogram till Flunsan ** 4 ! ** Version 1.1 ** 5 ! ** Konstruerat av: Thomas Bertilsson ** 6 ! ** Stefan Westman (MNR:4969) ** 7 ! ** 85-01-15 ** 8 ! ** (FNhardcopy tagit ur ABC-klubbens monitor) ** 9 ! ************************************************************ 10 EXTEND 20 ; CHR$(12) 30 ; FNSid1$ 40 ON ERROR GOTO 999 50 GET A$ 53 IF ASCII(A$)=192 ; FNHardcopy$; 55 A=VAL(A$) 60 IF A=1 ; FNSid1$ 61 IF A=2 ; FNSid2$ 62 IF A=3 ; FNSid3$ 63 IF A=4 ; FNSid4$ 64 IF A=5 ; FNSid5$ 65 IF A=6 ; FNSid6$ 66 IF A=7 THEN CHAIN "FLUNSAN" 70 GOTO 50 999 RESUME 50 1000 DEF FNSid1$ 1001 ; CHR$(12) 1002 ; "Stockholm 85-01-15 SIDA 1" 1003 ; 1004 ; 1005 ; "INNEH]LLSF\RTECKNING" 1006 ; "____________________" 1007 ; 1008 ; "1.Utnyttjande av programmet Sida 2-3" 1009 ; "2.Beskrivning av programmet Sida 4-5" 1010 ; "3.F|rslag till vidareutveckling av" 1011 ; " av programmet Sida 6" 1012 ; "4.Listning av programmet " 1013 ; "5.Start av programmet V{lj 7" 1050 ; CUR(22,0) "V{lj Sida, tryck PF1 f|r att dumpa texten p} skrivare"; 1997 RETURN Nol$ 1998 FNEND 2000 EXTEND 2010 DEF FNSid2$ 2020 ; CHR$(12) 2030 ; "Stockholm 85-01-15 SIDA 2" 2060 ; "1.Allm{nt" 2070 ; "Programmet {r konstruerat f|r kontinuerlig balk" 2080 ; "p} fasta eller flytande st|d. Med o{ndlig avses att C(alt.EI) skall" 2090 ; "proportionellt avvika fr}n EI(alt.C) mer {n 10^5 d{r C*EI=1." 2095 ; 2100 ; "2.Andra konstruktioner" 2110 ; 2120 ; "Ensidigt fast insp{nd balk:" 2130 ; " #" 2140 ; " ____________________# _______________________" 2150 ; " A # A A A" 2160 ; " EI=o{ndlig" 2170 ; 2180 ; "Dubbelsidigt fast insp{nd balk:" 2190 ; " # #" 2200 ; " #___________________# ____________________________" 2210 ; " # # A A A A" 2220 ; " EI= EI= " 2230 ; " o{ndlig o{ndlig " 2240 ; " Alt: L=0 L=0 " 2250 ; CUR(22,0) "V{lj sida, tryck PF1 f|r att dumpa texten p} skrivare"; 2260 RETURN N$ 2279 FNEND 3000 EXTEND 3010 DEF FNSid3$ 3020 ; CHR$(12) 3030 ; "Stockholm 85-01-15 SIDA 3" 3040 ; 3050 ; "Konsolbalk:" 3060 ; " #" 3070 ; " #------------- ____________________" 3080 ; " # A A ^" 3090 ; " EI= ST\DKONSTANT=" 3100 ; " o{ndlig o{ndlig " 3110 ; "3.Otill}ten inmatning" 3120 ; "Vissa extremv{rden typ EI=0" 3125 ; 3130 ; "4.F{ltmoment" 3140 ; "V{lj st|d med st|dsjunkningskonstant = o{ndligt under den" 3145 ; "punkt d{r f{ltmoment |nskas studeras." 3150 ; CUR(22,0) "V{lj sida, tryck PF1 f|r att dumpa texten p} skrivare"; 3160 RETURN N$ 3170 FNEND 4000 DEF FNSid4$ 4001 ; CHR$(12) 4004 ; "Stockholm 85-01-15 SIDA 4" 4005 ; 4006 ; 4007 ; "Programmet ber{knar influenslinje f|r st|dmoment." 4008 ; "Den ber{kningsmetod som anv{nds {r Clapeyrons momentekvation" 4009 ; "" 4010 ; "Ber{kningen sker enligt f|ljande steg:" 4011 ; 4012 ; "1.V{nstermatris(K) byggs upp.(400-1480)" 4013 ; " (Ytterst|dsmomenten {r alltid noll och ing}r ej i matrisen)" 4014 ; "2.V{nstermatrisen inverteras(K1).(1482-1483)" 4015 ; "3.Ber{kning av lastkonstanter(Wa,Wb).(2020-2100)" 4016 ; "4.Uppbyggnad av h|gerledsmatris(H).(2150-3280)" 4017 ; " Varje fack delas upp i tiondelspunkter." 4018 ; "5.Skapar momentmatris(M0) genom multiplikation av K1 med H" 4019 ; "Samtliga momentv{rden f|r alla st|d (utom ytterst|den) finns" 4020 ; "nu lagrade i M0" 4050 ; CUR(22,0) "V{lj Sida, tryck PF1 f|r att dumpa texten p} skrivare"; 4998 RETURN N$ 4999 FNEND 5000 DEF FNSid5$ 5001 ; CHR$(12) 5002 ; "Stockholm 85-01-15 SIDA 5" 5003 ; 5004 ; 5005 ; "\vriga intressanta delar av programmet:" 5006 ; "HR-grafiken utnyttjar en bild med uppl|sning 512*240 punkter" 5007 ; "Uppritning av koordinataxlar och bro(395) sker s} att l{ngderna {r" 5008 ; "proportionella |ver bildsk{rmens hela bredd" 5009 ; "I St|d(0) lagras brons hela l{ngd" 5010 ; "" 5011 ; "Uppritning av influensv{rde (14028-14057) sker s} att st|rsta absoluta" 5012 ; "influensv{rde s|ks upp och lagras i M0(I,0)" 5013 ; "D{refter sker en proportionell ritning av (14030-14051) influenslinjen" 5053 ; CUR(22,0) "V{lj Sida, tryck PF1 f|r att dumpa texten p} skrivare"; 5998 RETURN N$ 5999 FNEND 6000 DEF FNSid6$ 6010 ; CHR$(12) 6020 ; "Stockholm 85-01-15 SIDA 6" 6030 ; 6040 ; 6050 ; "F|ljande {r en t{nkbar vidareutveckling av konstruktionen" 6060 ; 6070 ; "1.Programmet ut|kas att {ven kunna s|ka st|rsta f{ltmoment" 6080 ; "2.M|jlighet att st{lla |nskade belastningar p} konstruktionen" 6090 ; " [ven utbredd last" 6100 ; "3.M|jlighet att ha r|rliga lastgrupper |ver konstruktionen" 6110 ; "4.M|jlighet att l}ta lastgrupper styra dimensionering" 6120 ; " (jmf detta med att s{tta EI=1)" 6130 ; "5.M|jlighet att plotta resultatet" 6150 ; CUR(22,0) "V{lj Sida, tryck PF1 f|r att dumpa texten p} skrivare"; 6200 RETURN N$ 6300 FNEND 65000 EXTEND : FLOAT 65010 DEF FNHardcopy$ LOCAL Max%,Adress%,Teck% 65020 PREPARE 'PR:VSA36C72.5' AS FILE 9% 65030 Max%=PEEK(-172%) 65040 FOR I%=0% TO 23% 65050 IF Max%=40% THEN ; #9%,TAB(20%); 65060 IF Max%=40% THEN Adress%=31744%+I%*128%-I%/8%*984% ELSE Adress%=30720%+I%*80% 65070 FOR Y%=Adress% TO Adress%+Max%-1% 65080 Teck%=PEEK(Y%) 65090 IF Teck%<32% THEN Teck%=32% 65100 ; #9%,CHR$(Teck%); 65110 NEXT Y% 65120 ; #9% 65130 NEXT I% 65140 CLOSE 9% 65150 RETURN N$ 65155 INTEGER 65160 FNEND