NNNNNNLwp NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNNNNNNNNNNNNNNNNNNN忦O`  @`! #@%`')+-1 35`7;=?A C@E`GIKMOQ S@U`WY[]_c@e`gikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ @ ` ׀ ٠  `O`  @`! #@%`')+-1 35`7;=?A C@E`GIKMOQ S@U`WY[]_c@e`gikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ @ ` ׀ ٠  `A158DISKRETVV14z t DREIECK  t 9KRPER  t aKREDIT  t PENDEL  t LEES DIT t H.  { t..  { tDISKRETVPRG| t ZDISKRETVRSC t /README TXT t 4d`pZ o"h#D#H#L,Ic.N//Bg?<JNA ByPN:NV?<NAN^NuNV?<NNN^NuNV/.?<NNN^ _XNNV?<NNN^NuNV?<NAN^Nu/,HNVAf-Hp=@ n r=A`B n 0.r?HzB?<Nv2Ad n "n rARn0.noN^,_ _XN/,HNVA -H0.2. Ao =A`=@0.N^,_ _XN/,HNVA -H0.2. Ao =@`=A0.N^,_ _XNNV?.?<NAN^ _TNNV?<NAN^NuNV/.?<;NAN^ _XNNV?./. ?<GNAN^ _\N/,HNVA-HHnBgNA"Op?"Q n /N= n NN/N| _@A??O"O8p7Q?<NdF3^N^,_ _XN[3][-> ACHTUNG FEHLER <-|Unbekannter Pfadname!][ SHIT ]/,HNVLA-H nCR2p"Q nC2p"Q n /p/HzpBNn2AdCX n//HzFBNn2Ad/N nNN/?Ax]"O2"pA`]"O2"?NNZNh29ZA`]"O2"?NNhNAl0 Al]"O2"Ar0 =@=A`R0. 2.SA ArC]$O4$2. ClE]&O6&N`E4$Rn0.noN^,_Nu/,HNVAF-HA`]"O2"Ax0 A`]"O2"A~0 p3Z09ZR@3Z 29ZSA AlC]$O4$rC`]$O4$?NNZNhC2"09Z 49ZSB CrE ]&O6&49Z E ]&O6&N`E4$09Z E]&O6&p?NN\469Z8<DWńE E0]&O6&?NN\6CBdN^,_Nu/,HNVA-HBgNAl0 BgNAr0 p=@29Z=A`0. r49Z?N?NNAlC2"0. 6.SC CrE0]&O6&6. E0]&O6&N`E4$Rn0.noxN^,_Nu/,HNVA-HAf]"O2"N>N?/Al0 Al]"O2"Ar0 p3Z09ZR@3Z 29ZSA AlC]$O4$Cf]$O4$Nh29Z?NNC2" 09ZS@ CrE]&O6&09Z E]&O6&N`E4$09Z E]&O6&p?NN,2Ad29Z ?NE4$29Z E]&O6&r?NN\469Z8<DWńE E0]&O6&?NN\6CBdN^,_Nu/,HNVA-HBg?<?<?<NZj?<?<?<}?<N`?<?<?<y?<N`?<?<5?<}?<YN`?<?<7?<y?<UN`?< ?<(AX"Op?"QNXN^,_Nu/,HNVA -HHyNH/9۪NQH?<,?<?< ?<BgBg?<?<NnN?<,?<?< ?<?<?<d?<?<NmNc0/9۪BgNP^3^Nb?<,?<?< ?<?<?<d?<?<NnN/9۪?9^?< ?<NV/9۪NPHyNIB?<,?<?< ?<BgBg?<?<Nm09^=@0.N^,_Nu/,HNVA-H?<Hy۪NMJ/9۪NQH0. `/9۪?<Aݲ"Op?"Q?<BgNR`r/9۪?<A޲"Op?"Q?<BgNR`D/9۪?<A߲"Op?"Q?<BgNR` @gp @g @g/9۪NON^,_ _TN/,HNVA-H0. `RAdO"O:p9Q?<NdF3^`LAO"O>p=Q?<NdF3^`"AO"O4p3Q?<NdF3^`A@O"O4p3Q?<NdF3^`AO"OZpYQ?<NdF3^`A2O"O_p^Q?<NdF3^`zAO"ONpMQ?<NdF3^`PAVO"O:p9Q?<NdF3^`&S@ @b@0;NDnN^,_ _TN[3][ Verteilungsparameter|nicht im Rechenbereich][ SORRY ][3][ ! EINGABEFEHLER !|Zufallszahlenparameter| sind nicht korrekt !][ OK ][3][ ! EINGABEFEHLER !|Leerstring oder unzulssige|Zeichen wurden eingegeben !][ NOCH MAL ][3][Drucker antwortet nicht !|Drucker ist Off-Line oder|gar nicht eingeschaltet !][ MIST ][3][Lambda positiv und|kleiner 70 whlen.][ NA GUT ][3][Bitte n zwischen |1 und 1000 whlen !][ OK ][3][Wahrscheinlichkeit nicht|zwischen Null und Eins !][ SHIT ][3][AUSSICHTSLOSER VERSUCH|Keine Daten vorhanden!][ MIST ]/,HNVA-Hp=@r=At. =B`20.rA 0?Hzt?<Nv2Aer=ARn0.noHn r/HzBBNn4Bdt=B4.Be ?<N0.=@0.N^,_ _RN@/,HNVA~-H09@e\Np3?<?<N?DHy?<xN?< ?<NHzN?<N?< ?< NHz.?<NX?<?<O?<?<ONYn?<8?<??<8?<|NYn?<?<??<?<|NYn?<.?<N?DHy?<xN?< ?<NHz?<N?< ?< NHz?<NX?<Z?<O?<d?<ONYn?<?<??<?<|NYn?<?<??<?<|NYn?<?<U?<>?<N`?<1?<dA"O"ONX?<?<?<>?<N`?<+?<AO"ONX?<?<?<>?<N`?<-?<AO"ONX?<?<?<>?<N`?<-?<AnO"ONX?<?< ?<>?<N`?<+?<A2O"ONXp=@0.29ZA_v&CVDBdtBn?<Z@?N?D09\2.AHy??<NX?< 0.Z@?N?D09\2.A HyAlC]$O4$//?< ?<N0X?<0.Z@?N?D09\2.A HyArC]$O4$//?< ?<N0X`x%Df6?<+@?N?D09\2.AHy??<NX`2?<,@?N?D09\2.AHy??<NX?<20.@?N?D09\2.A HyAlC]$O4$//?< ?<N0X?<A0.@?N?D09\2.A HyArC]$O4$//?< ?<N0X0.R@=@`N^,_NuSAVEENDTOPDOWNUPF(x)f(x)/,HNVA-H?<Hy۪NMJ/9۪?<Aಞ"Op?"Q?<BgNR/9۪?<AᲞ"Op?"Q?<BgNR/9۪?< AⲞ"Op?"Q?<BgNR/9۪?<Aݲ"Op?"Q?<BgNR/9۪?<A޲"Op?"Q?<BgNR/9۪?<A߲"Op?"Q?<BgNRN3^/9۪?<HyNSHyNT/9۪?<HyNSHyN4/9۪?< HyNSHyN/9۪?<HyݲNSHyݲN/9۪?<Hy޲NSHy޲N/9۪?<Hy߲NSHy߲NN^,_Nu/,HNVtA>-HAv0B BHyNHHyN\?<N/9۪NO?<NbNc0BgNXHnvHyݲ?N?<PARB/pA`]"O2"?NN//?/?<?<NX\?<PAB/pA`]"O2"?NNZA`]"O2"A`]"O2"NhN//?/?<?<NX\NNHz?<"N`Hyܮ?Q?<NdF3^`"NbAO"O p QNLr@e,AvO"O9p8Q?<NdF3^`p3r3t3v3x3ACݲ z QAC޲ z QAC߲ z QHyNŢHyNŘHyNŎ?<HyݮNM~/9ݮNM?<N`BgN^?<N_p@dN`Nc0NhHyNzBgNADISKRETV.PICDISKRETV.RNDDISKRETV.OUT[3][ "DISKRETV.PRG"|luft leider nur|High Resolution !][NA GUT][3][Kann die Datei|"DISKRETV.RSC"|nicht finden !][ ENDE ]diskretv.rsc/,HNVAZ-HNp=@r.=A`" n 0.S@0.rC1Rn0.no n r.tN^,_ _VN/,HNVAN-HNp=@0.rA0tBg"n R@0.r0R@=@` n 0.N^,_ _NNV?.?. ?<NMN^ _XN/,HNVA-HN?<?. NN^,_ _TN/,HNVA-HN?<N0. ?NN^,_ _TN/,HNVA-HN?<KNN^,_Nu/,HNVA-HN?<ENN^,_Nu/,HNVA-HN?<MNjN^,_Nu/,HNVA-HN?<LNFN^,_Nu/,HNVAp-HN0.rAl =A`tOBo=B0. rAl =A `tBo=B ?<YN0. @ ?N0.@ ?NN^,_ _XN/,HNVA-HN?<pNN^,_Nu/,HNVA-HN?<qNzN^,_Nu/,HNVA-HN?<bNV?. N"N^,_ _TN/,HNVA-HN?<cN&?. NN^,_ _TN/,HNVA-HN?<ANN^,_Nu/,HNVA-HN?<BNN^,_Nu/,HNVA-HN?<CNN^,_Nu/,HNVA-HN?<DNN^,_Nu/,HNVA-HN?<HNfN^,_Nu/,HNVA-HN?<INBN^,_Nu/,HNVA-HN?<JNN^,_Nu/,HNVA-HN?<eNN^,_Nu/,HNVA-HN?<fNN^,_Nu/,HNVA-HN?< NN^,_Nu/,HNVA-HN?<dNN^,_Nu/,HNVA-HN?<jNjN^,_Nu/,HNVA-HN?<kNFN^,_Nu/,HNVA-HN?<lN"N^,_Nu/,HNVA-HN?<oNN^,_Nu/,HNVA-HN?<vNN^,_Nu/,HNVA-HN?<wNN^,_NuNV?.?. ?<NMN^ _XN/,HNVA -HN?<0. 2<A?NN^,_ _TNNV?<NNN^NuNV?<NNN^NuNV?./. /.?<NNN^ _ NNV/.?<NNN^ _XNNV?.?. ?<NNN^ _XN/,H/,O PA^-HNAvBXB }B -HNAvBXB }B _ N^,_ _\N/,HNVtA&-HN?<oHnHnHnxHntNjN^,_Nu/,HNVtA4-HNp=@". -Ax?<HnHnHnxHntNjN^,_ _XN/,HNVtA4-HNp=@". -Ax?<HnHnHnxHntNjN^,_ _XN/,HNVtA<-HN0. =@r=A$.-Bx?<!HnHnHnxHntNjN^,_ _\N/,HNVtA<-HN0. =@r=A$.-Bx?<!HnHnHnxHntNjN^,_ _\N/,HNVAH-HN/. BgHnHnHnHnNW/. Bg?<?.?.?.?.NTN^,_ _XN/,HNVtAn-HN0.=@2.=A4.=B6.=C8.=D:.=E<.=F0.=@2. =A?<3HnHnHnxHntNjN^,_ _N/,HNVnAN-HN0. rAl=A 0. =@".-Ar?<2HnHnzHnrHnnNj0.z=@0.N^,_ _\N/,HNVAv-HN/.BgHnHnHnHnNWBgBgBgBgBg?.?.?.?.N/.Bg?<?.?.?.?.NT/.?. N =@0.N^,_ _\N/,HNVAH-HN/. BgHnHnHnHnNW?<BgBgBgBg?.?.?.?.N8N^,_ _XN/,HNVtA.-HN . -@x?<6HnHnHnxHntNjN^,_ _XN/,HNVAR-HNp=@ n0.rtBg" n R@"n0.rR@=@` n 0.N^,_ _PN/,HNVA-HN n rf6p. tBlԼ//N0`Hм//N0p=@r. =A`$ n "P0.S@0.rE 2Rn0.no n "Pr. tN^,_ _N/,HNVA8-HN n0.-H0(rAW0(v CWĄD0(xDWńEBd$ /A"Op?"QN`0(tBW0(|FWA0(rAWÊC0(vCWĊDEd"h -I0(AW0(CWňEp.:)E\BDd 4)SBB tfp.R@3@/ E&Op?&QN> n0(rAW0(vCWĄDBd"n0.3@ 4. 3BN^,_ _ N/,HNVAN-HN n0.-H0(rAW0(vCWĄDBd"h /"n / ND`N^,_ _ N/,HNVtA>-HN0.=@2. =A$.-Bx?<(HnHnHnxHntNjN^,_ _PN/,HNVtA6-HN0. =@".-Ax?<rHnHnHnxHntNjN^,_ _\N/,HNVtA^-HN .-@x2.=A4.=B6.=C8.=D:.=E<. =F?<*HnHnHnxHntNjN^,_ _N/,HNVAH-HN/.?. HnHnHnHnNW/.Bg?<?.?.?.?.N=B:.<=E&.$-C?<HnHnHnHnNj0.=@ n2.0"n4.2$n6.4&n 8.6(n :.8*n<.:0.N^,_ _a#aVa0/3a>| H |"|a@H2H2H209a> @pf2<`2<3aF"<a0<NBNu _<#a*#a"#a&#a"_#a:3E3_3_ 2/3ya. Jg.El: ya"8DSEk0 ya600 ya40Q?"<a0<sNBJ_g2 ya:( ya*8DSEk0 ya600 ya60QNu _3a.N09a.Nu _3a0N09a0Nu _3a63a4N _"_$_2a64a4N _3a:3a8N _"_$_2a:4a8N _3a2N09a2Nu09aA0 `4ANCp "Qp@Aʞ("Or "Q?< Nib n C]$O4$0 N^,_ _XNError during READV of REAL-number Overflow during READV of REAL-number Hb _024SBgQ@4BAAc/LbNuHyuBNiRange error during set-operationHb _0246@SCBgQAn68DCCc 0AgRB`/LbNuHb _0@CEHS@rIVW.J?/LbNuHb _0@CEHS@rIVV.J?/LbNuHb _0@CEHS@2FA_VW.J?/LbNuHb _0@CEHS@2FAYVW.J?/LbNuHb _0@274BAAc7V`tO>/LbNuHb _0@"_24BAAc1V`t>/LbNuHb _02S@AC2YQ/LbNuHb _02S@AC2YQ/LbNuHb _02S@AC2FAYQ/LbNuB9b`PbByB _0g$_jp"_// HbNzLbBtJ@fL)J9bf f8| i f(Bi ` f|Ji f 3| `4<gG BQB) @e *:f&Jrt `e QGzNtWJBkGzf3 J9bf fpBi `\ f3| p`J g( f*3| H@?3| NAXNu/")x itg$H@//?) ?<@NA LJof _Nu/,HNVA-HNA ]"O2"BBgNP0@d"CO$OpQNi`A ]"O2"?</<N\0@dBBgA0 `A ]"O2"?</<N80=@0.@d&?</<A ]"O2"NA 0 ?A0 `A]"O2"A0 .2.N^,_ _\NArgument of Ln non-positive/,HNVA:-HNA ]"O2"?A0 0.J@np=@Bn `"0. J@n0.rAlp=@Bn BnA]"O2"A0 A]"O2"p?NlND0@dA]"O2"p?NlND0@d0.R@=@0.r&Ao@A]"O2"p&?NlN0.@?NlNA0 `(A]"O2"0.?NlNA0 ```A]"O2"p?NNh0@d0.S@=@0.rڰAlBA]"O2"p&?NlNh0.D@@?NlNhA0 `*A]"O2"0.D@?NlNhA0 A]"O2"p?NlND0@d`0. J@g0. nR@=@`0.Q@T@=@0.r Ao:A]"O2"?</< p ?NlNN`A0 `B0.J@m8A]"O2"?</< 0.?NlNN`A0 A]"O2"p?NlND0@d00.R@=@A]"O2"p?NlNA0 p=@ n nhA]"O2"N0=@0.2.A0AA]"O2"?.NNZp?NlNhA0 Rn`0. J@f0.@d?<- NN` ?< NNp.? NN?<. NNp=@0.Q@R@=@0.nn0.R@? NNRn`?<E NND0.J@m?<+ NN0`?<- NN"0.D@=@0.r H@0? NN0.r HH@@0? NN`0.R@=@0.J@m =n`p=@0.n R@=@0.@d 0.R@=@0.R@=@=n0.nn?< NNzRn`0.@d ?<- NN`0.J@n?<0 NNL`*p=@=n0.nn?. NN`Rn`?<. NNp=@=n 0.nn0.n? NN(Rn`N^,_ _N/,HNVA.-H"V ip2)AlpR@p0. N^,_ _TN/,HNVA@-H0. r A^vC_ĄDBd?<0 VN`t"VA0? INvN^,_ _TN/,HNVA<-HA]"O2"p?NN82=AAdA]"O2"N>A0 2.@nt=B=@ `4. @nvCl=C=@ p=@A]"O2"A0 A]"O2"r?NlND4BdA]"O2"p?NlND2Adr2.RA=At&Bo:A]"O2"?NlNA?NlNA0 `$A]"O2"?NlNA0 `n`A]"O2"?NNh4Bd0.S@=@rڰAl>A]"O2"t&?NlNhD@@?NlNhA0 `&A]"O2"D@?NlNhA0 A]"O2"p?NlND4Bdl0. rAg4.BR@=@`4.QBTB=B0.t Bo8A]"O2"?</< ?NlNN`A0 `:Am4A]"O2"?</< ?NlNN`A0 A]"O2"v?NlND8Dd.8.RD=DA]"O2"?NlNA0 =C n nfA]"O2"N0=@2.@0AC]$O4$0.?NNZt?NlNhC2"Rn`0. rAf4.Bd?<- NN` ?< NNp.? NN?<. NNp=@2.QARA=A0.nnR@? NNRn`?<E NNx0.rAm?<+ NNb`?<- NNT0.D@=@0.r H@0? NN40.r HH@@0? NN`4.RB=B6.Am =B`x=D8.@RD=D:.EdRD=DRD=D:.=E0.nn?< NNRn`0.@d ?<- NN0.rAn?<0 NN`&t=B=@0.nn? NNRn`?<. NNTp=@2. =A0.nn2.A? NNnRn`N^,_ _N(_"_/ A) g  f$)Jtf&H //?) ?<@NA LJovfNu$ix&i|fa`pRgf#Jx`H")x it#Hxg$H`//?) ?<@NA LJofLNu )f NuHy` Hy~0< LNirREWRITE required prior to WRITE or PUTDisk or directory full _$_"W2/Rcbp1Ro4Np `z`z _$_ptvH-cHyca29cL-c -fJfBp`  fJf4J9cg`*0e$  bԂi8(؄i2؄i.Ԅi*ԁRC`Jg&JgDJf 6Höf4N$NHy0<`HzV0<Nir _$_0t&JRHcHyca 29cLcJ9cf RBBe`ΰBe`NBad digit in number encounteredOverflow during READV of number(_ _/ C (g ( fJ(fv$($IJtflH / /?( ?<?NA LJo*fJg  f"J` g  Wf NuJg Jh g J(fPNu!|NuH$hx&h|gpR@@gf!JxL`H &ht!KxJh f0abLEJ@g *f` J9c6g R@Bh` / /<?( ?<?NA LJlp!K|JfnL`rH@Hsp/Bg?<?NA LRA3J9c6g^ fSA` fL AgUH@Hz+p 3 dp` SAH@Hz$p/?<?<@NA LJ9c6g`z fSA` fSAH@Hzp` f>H@Hzp `H@Hzp 3 dp/?<?<@NA LQ` d4 gb9@HHzxp/?<?<@NA LJ9c6g& AfH@HzFp/?<?<@NA L NuHzR0<`Hz$0< LNir  p Exit q C^AReset required prior to Read or GetAttempt to read past end-of-fileHc8p`:Hc8p`.Hc8p`"Hc8p`Hc8p` Hc8p _/fJ/ gLJ/kJ`L/ fJkB`</jJk2`,gbJk&` Jk`"eb// ebr`r`rAV ?/Lc8NuHc8v` Hc8v _ `Hc8v` Hc8v _0HJ[fBBg`,j Dj4<` 4<ЀkSB`Jf].B/BJg 2/.?o /@?A /Lc8NuHc8v` Hc8v _ [2Jkp`&4<cH@j JgR@kJ@kJgD@?/Lc8NuHc8v` Hc8v _ [2Jkp`$4<cd JgRkJk~JgD//Lc8NuJ/ goNuNuHc8 _?///` Hc8 _0/2// Jv/ 8://N~/DD?DBoJgJgC|k?>BGHGv8ބdRC8ބdRC>HGvކdRC8ބdRCHGv48ބBޅB:>HG8ކkE߇SDkBg|d RdRDUJg( DbRD ME \/Lc8NuBBo `Hc8 _0/2// v/ 8://~/?DD?DBo 8JgJgG|HD8H@0zr)`рe efef<څ߇QgRCgڼd RGdSCJCkD|blo/EC \/Lc8NuoHc8 _p2/g/ f/W?o `ֲ@e:f$/&e&f // d*B6//J/ k`(&// S@Q`&// `R"/?/[4JfFӃddRdRR/eJd RdRd`/AG o Jk`z0H*kS/JkFft grkRBjIHA~`( dtHAI.kRBҁjBG` BBRBӁj/e2/AG o Jk\/Lc8NuHc8 _0 @&b(CC/)?/Lc8NuHy`HyLc8Ni Hz@CPt$> nk(:C@hԥ*5 c_1ɿ1.Ź^ k:v #-xŬX&x2n)h? SYQa@%oNˏ'?9x!7I|o|@Eŭ+E75vV 9@{pvPFloating point overflowFloating point division by zero DNuH _ gHeDd/LNuHy`HyNit`t _"_ gR e6G$S" geb"*f&"`&A%S"`&J`а|gb<|fP"9gH$A#`:"9g6$A#`("9g$$A#` @ g"9g $A#"`"ED&R"$b HyNiJgr"Qd2`"SjN _"_ " gHeDdgR m @ e@E"fB#@B$`p&A"+ef "'I`Z"#@B$`L$K`ư| f"#`4|f"#` |f"#` "#NHeap overruns stackPointer NILPointer not in heapHcj _0"_e /LcjNuHy^Ni/B9c/|cNuHcj _0 @f0"|chchp` "_J@jpEcr4@ BbBS@kQ/LcjNuHcj _4SBkt82$_rAbd0 @f0"|chchp` "_J@jp6ADb6CG0IS@k$eQ/LcjNuHcj _4k2SAk0"_p6B@bE0)CS@kQ/LcjNuHcj _2$_r0 @f0"|chchp` "_J@jp@kS@kv&J$IRC4(K Vg RQBg`?/LcjNuHcj _4kF2SAk>0 @f0"|chchp` "_J@jpJBg@b6B@oCEcSBkQ/LcjNuString overflow _pJ.g 0( hNVg4 ( hg( hH`0( hNVg ( hg hHfXgr"ODd2Sk "Sj` _"yDe Hy.NiN#d#d .f -|`-| nNнdf ydNStack overruns heap09@Nu09BByBNu _3@ByBNByBNu[3][][ Abort ]Copyright 1986, CCD and OSS, Inc. &D  <(>4* z f.$*( *>* (2    "(  &4     "4"&&"(   B$$$$$$$0^   $""$(   J             2      h&V        &    &     L  $>.  ^N .> " 04 * ((T6( ,:   ("<6",>   . F,   $,&$ (    $&     $20   $4 ( 0  <     6  $"B  ,$   T 4 &     p~,2$$$$$$00$$$$$$$$$$$$$$$$>B*2" ,Bx(b" &\4*@44( ( 0 0  b":,>4@" f,tPd2 * R">:d"F:6B.H*6" J " 4T ^"BBL :0 ,H ,,6 8 ,2 v8 ,6 ,,T  T* ,,  .6   *jV0b,4 "T & & (,&  H           Z6:6J"Z"Z      "$"f< . >*>v,*< * * , , 0 , " BBb4$ 4,6$$&$$&$$$$d4$,602 0.n2JLJX"n4$&4&\8(*0 j.  $0"Z0&(.  P,R TlX$Fd z  f H F  2  "D    * "FV ( *@ B @ (   $k Statistik Programm fr diskreteVerteilungen by Alwin Schfer.Public Domain SofwareVersion 1.41Created 5.8.1988Written with Pascal+ V. 2.02 von CCD16.10.88OKBinomialverteilung !ABBRUCHOK___n : ___999_____p : _____XXXXXGeometrische Verteilung !OKABBRUCH_____p : _____XXXXXDiskrete Gleichverteilung !OKABBRUCH___n : ___999Poissonverteilung !OKABBRUCH_____Lambda : _____XXXXX  Datei Verteilung Output Statistik Special Werner oder was ?-------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 PROGRAMMENDE Save Screen Save Tabelle--------------- Binomial Geometrisch Gleich Poisson Screen Pfade Printer Histogramm Verteilungsfkt Tabelle Random Invertiere0Start bei : _9___Obergrenze : ___XXX____Anzahl : ____XXXXAUSFileausgabe :EINErzeugen von gleichverteilten Zufallszahlen !ABBRUCHOKPfade und Namen der Ausgabedateien !WEITERTabellen :Zufallszahlen :________________________________________________________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX________________________________________________________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXBilder :________________________________________________________________________________XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXTabellen :Zufallszahlen :Bilder :________________________XXXXXXXXXXXX________________________XXXXXXXXXXXX________________________XXXXXXXXXXXXSchreibe Datei :DISKRETV.OUT$DE Fefg}~ %    9:FLV \xyy{) ^))+))`)) +8E R_l  ( q"    $@'   q\    x  (  % q! ;  > ( ' q# z  } ( q     (< P P5      !  ,  %P   "7Lav  !    ' / %"$##:$G!X &'.'c% l 7 3Xt &   ( -   ' "  ?$:  ;A N( ( T  (   !     8  T  ( p %y   | $ D L SUPER STATISTIK PROGRAMM FR DISKRETE VERTEILUNGEN !!! ========================================================= ANLEITUNG ZU "DISKRETV.PRG" =========================== 0.0 Vorbemerkung ---------------- Der Autor geht davon aus , da der/die Programmbenutzer/in ber genug Kenntnisse auf dem Gebiet der Statistik verfgt, um mit den Verteilungen und Graphiken etwas anfangen zu knnen. Sollte das nicht der Fall sein , kann das Programm ja immer noch gelscht werden oder ein einfhrendes Buch in Statistik befragt werden. 1.0 Die Mens ------------- 1.1 Das Desk-Menu ----------------- Accessoiries werden von dem Programm nicht verwaltet also ist es auch nicht erlaubt sie zu benutzen. 1.2 Das Datei-Menu ------------------ Mit "PROGRAMMENDE" kann das Programm wieder verlassen werden ( logisch ). Mit "Save Tabelle" knnen die Wahr- scheinlichkeitsfunktion und die Verteilungsfunktion , einer berechneten Verteilung in eine Datei geschrieben werden. Der Standartdateiname "DISKRETV.OUT" kann im Output-Menu gendert werden. Mit "Save Screen" lt sich der Bildschirm in eine Datei schreiben , auch hier gibt es einen Standart- dateinamen, "DISKRETV.PIC", der gendert werden kann, siehe 1.4 Output-menu. 1.3 Das Verteilungs-Menu ------------------------ Hier kann eine Verteilung ausgewhlt und eingegeben werden, diese wird dann berechnet und steht im Speicher fr weitere Operationen zur Verfgung. 1.4 Das Output-Menu ------------------- Der Menupunkt "Pfade" ermglicht es sich unterschiedliche Pfade zu setzen und die Defaultdateinamen zu verndern. Ein "Printer" Output macht eine Hardkopie des Bildschirms , jedoch ohne Menuleiste (!!!); 1.5 Das Statistik-Menu ---------------------- Hier lassen sich eingegebene Verteilungen graphisch oder als Tabelle darstellen. Der Menpunkt "Histogramm" ent- spricht der Darstellung der Wahrscheinlichkeitsfunktion ( diskrete Vert. ), es ist die Hhe der einzelnen Rechtecke oder Striches zu interpretieren wie die Hhe eines Stabes in einem Stabdiagramm.Die Verteilungsfunktion wird wie all- gemein blich gezeichnet. 1.6 Das Special-Menu -------------------- Hier lassen sich (einigermaen zufllige) Zufallszahlen er- zeugen. Es ist mglich die Zufallszahlen in eine externe Datei zu schreiben. Wer lieber wei auf schwarz mag kann hier auch den Bildschirm invertieren. 2.0 Was man sonst noch wissen mu --------------------------------- Die Werte der Verteilungen werden fr maximal 1000 Punkte berechnet ( was eine ganze Menge ist !). Es gibt Parameter- kombinationen die sich nicht berechnen lassen, dies tritt soweit ich wei nur bei der Binomialverteilung auf und zwar fr sehr groe Werte von n ( z.B. X~Bi(700,0.5) ). 3.0 Public Domain ? ------------------- Diese Programm ist Public Domain Software und darf beliebig oft kopiert und weitergegeben werden, jedoch nur zusammen mit dieser Textdatei ! Wem das Programm gefllt und wer damit etwas anfangen kann (soll ja vorkommen!) der/die kann mir 10DM schicken und wird in eine Adressenliste aufge- nommen und ber jedes eventuell folgende Update informiert. Zu den gleichen Konditionen kann auch der Sourcecode des Programms erworben werden. Viel Spa wnscht: =========================================================== = Alwin Schfer Hansastr.15 1000 Berlin 51 = = = = Fr dringende Flle: Tel.: 030 / 49 222 15 = = = = Berlin,den 16.10.1988 = = = =========================================================== P.S.: Sollte jemand Fehler finden (kann ja eigentlich nicht passieren !) oder Anregungen fr neue Versionen haben , so kann er/sie mir ja schreiben. .  t9..  tLIESMICHINF t :DREIECK PRG t <' DREIECKSBERECHNUNG: ' ------------------- ' Dieses Programm dient zur Berechnung eines allgemeinen Dreiecks. ' Sie geben die vorhandenen Gren ein (z.b die drei Seiten), und ' das Programm erledigt den Rest wie Inkreisradius,Umkreisradius usw. ' Da die Dreiecksauflsung mit ziemlich komplexen Formeln gelst ' wird, sinkt die Rechengenauigkeit bei Extremsituationen auf null, ' d.h. das Programm kann kein Dreieck bilden.Dies ist zum Beispiel ' der Fall wenn ein Winkel fast 180 Grad betrgt, soda die beiden ' anderen Winkel fast null sind und die Ankreisradien bis ins Un- ' ermessliche steigen.Es sei noch bemerkt, da beim doppeldeutigen ' Fall (casus ambiguus), wenn zwei Seiten und der der kleineren Seite ' gegenberliegende Winkel bekannt sind, das Programm eine Lsung ' angibt obwohl Derer zwei existieren knnen.Bei falschen Eingaben ' ertnt ein Warnsignal und der Eingabefehler wird kurz angezeigt. ' Wird erst in der Berechnung festgestellt, da sich kein Dreieck ' bilden kann, wird das Programm neu gestartet. ' Wenn Sie also den "casus ambiguus" bercksichtigen und keine zu ' extremen Werte eingeben, werden Sie keine Probleme mit dem Pro- ' gramm haben. ' Falls Ihnen das Programm gefllt, so bitte ich um eine kleine ' Aufwandsentschdigung auf folgendes Konto: ' - Raiffeisenbank Hochdorf, Blz.: 65461113 , Ktonr.: 11488000 - `R` Efv*oM& m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNDHz2?< NA\pdAxr0XQ)K\NN&JnnJrBjNuHz?<&NN\CAp$L Qp NBlJpNNpMN9@pdAr 0Q0tr N9lNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu &8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<N\Hn r$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&H&<18L8NRL8N\L8REN&<x*<N\_NvJjv`v?&<ڢ8&&&<58&<]8&<ڢ8 Bf <rdBNupNJkJBg?4<&<38<*<N\H&<38<*<NRL8NHN8H&&<]v86Hp0ЀSN`&L8N\NupNJkJBg84<BDdRDSB?H&<x*<N\SBL8HNL8N\SBL8HNL8N\SBL8HNL8N\SBAdSO _NuHN&8*LHNL8N/H Be&<x*<N~ BeFf 0 e<&<ݳB8<*<N\&<x*<N&<ݳB8<*<NX~?HN8H&L8NXL8N>J_j&< 8<<*<N\ oe&<ڢ8`L8N>TJk2NuHLJk6NL8N>NL`LN8TJjH&<x*<NLNDJBf,LNVLHNL8N>NJ jBNupNJBgRBNuJBgCjtNu$@Hz ?<&NN\NupNuE`$@Hz ?<&NN\Nu NuA$@.Hz ?<&NN\NuNuNN`p `p ap Cpln<,(AL$I"vz x `gfURf~QjJFj4\Fk.aPHS&I.N``p???<NM\Qj&_Nu|HQ/g ??<@NAXXfNuJkp%NNu09x&k@FC Be& B dЄeNu B0dHDDdRdQRBNu&<x*<N\FC Be B djNu B0dDdSkfJAftNuAр[SBNu"l`d&6JBft&&| NuND"l`ep N c 2$F4BBNJBgB*#E8#&#Jjh`,JcQl6\`6 c 2$4BBN*#8#&#Jk:JkִEffDbAeABJk0!NuRdQRB`JjҺBf̶fȸA`p`pN @ddAgH`p`p9@(9@*BlNuN~CpN`ENf`aHQ` @gS@@CNu   aH@@`"aH@@`a0) 4a3B HA2;i`0^ M / hawA~FNuAXr%eee%NuA]NuA>A6HP 0 0 &0&?< NN\Hx?< NN\JfNu <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNu"pmrtA)HA)HNpNHHPN.4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N"2)IN"(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNu@9@JpNNr|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NND"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNAH@B pNA NuApNN6$N,$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqN`p"_0HqN`E ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNuNVHNu Ihd*N,$E$RR@H`2QˈN ENua NuN IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkN`RB0 b b瀀`RB0 fрd`H&NրNjNu$Nq Y Qf*d ЀЀ 2$4BBNuVHRp` HRpJQfpNfNq Y Qfd ЀЀNuNPNV$_& Y Qf d փփABJk 0NNTNN$_& if"QdփփHRNHNNNT~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjNp"X4g S`"QNuN*<N`"2QjNu" KC`e ND`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu0,p2,rR@RANuS@SA9@p9ArNu9@pN4, 6fprta0,2,NuA4, 6f9@9Ap rt`Blf`pBlf`p9| f|9Fd@9@hN9@^9A`9Ab~`$aJf,H@ Kg Mg Pg Hf~`BSGj>RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNXLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"NNN:JfNup#`<(`|HP?N~<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_NHp`pNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NZ  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNܴHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX"l`Yd&-KNND"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuND"l`QepZNpr`&AdRd QJBgRBBABJk"l` d&6&|0!NuND"l` epZNC ҳfHP0(N,$W$RR@H`2Q"H _$l` dd" $X&0BP6Y&|Hg R@@%E ҳeHQ0)N$_$RR@H`2QNu$Y 0P1@Hg R@@%NuND$l` epZN)||X VNZA$NCnN"zN.fN)hN *** WERT SCHON BESTIMMT ***C&NHA.`NZN(A$NCnN"zNfN)A0LNZp N A$NzN@pJBgp/A$N&<x*<NFpJBgp$VHfN*NHPA "_NgN)`A,NZACnNZA*N&<x*<NfN*TA.`NZA$N/tCnNN)A+NZN~pr,NN:! NRA$N&<x*<NfN*N\A/\NZNzA$N&<x*<NfN*A}*NZASZNZpN N(NNܴA$NCnN"zN.fN,N~A$NCzN"N/A$NC큀N"N"NA$NC큒NdNFNRA$NCzN"&<x*<NfN,$N~A$NCzN"&<x*<N\N/A$NC큀N"N"Np=NXNNA$NCnN"NHPp "_N NFNRN,N~A$NCzN"&<x*<N\N/A$NC큀N"N"Np=NXNNA$NCnN"NHPp "_N NFNRNNܴN~pr,NA$NC큘NdNFNRN~pr4Np=NXA,r NHm,A "_NfN-A$N/A,N:CnNpN N-2A$N/tCnNA$NCnN"zNfN-A$NC큆N"N?A$NC큌N"N?Hm2p _"NbA$NCzN"&<x*<NfN. N~A$NCzN"N/A$NC큀N"N"NN, NRN.XN~A$NCzN"N/A$NC큀N"N"NN, NRNNܴANA 0 <r$<AN|N~pr,NA&NFNR?<A*NN&<x*<NXN?A*NN&<x*<NXNr _Np N ?<Bgpr _NN~pr,NN:! 4NRpN N`"N`A0LNZNNܴA$NC큆N"N?A$NC큌N"N?A$NC큆N"&<x*<N\N?A$NC큌N"&<x*<N\N?A2" NBA$NC큆N"N?A$NC큌N"N?Hm2p _"NbNNܴ?<H?<?<n?<~A>" NBpNpNHxHxHxHxHxHxEHxHx,HxpA=|NZp"<IN <}"<mNNNܴpC큘NpCnNpCzNpC큀NpC큒NpCtNpC큆NpC큌N)| NAN A 0ANAN|AN/NC큘NN`NqNq)|7 A 0ANAN|AN/NC큆NAN/NC큌NN`NqNq)|Z A 0ANAN|AN/NC큒NN`NqNqBgBg?<NN\NBHx,HxHx(Hx(BBHxHxA=|NZpN prN <"<N(prN <"<}N(prN <"<|N(A:NZA6NZA5pNZA3NZpN <"<N <"<NNNܴA0 )0A6 0Bm@A 0ANAN|A0NHA6NHANC큘NdHP <r$<HtHA:NZAN&<x*<NHAN&<x*<NNL8NfN4 <r$<A0NNX&<x*<N\A0N A6N&<x*<N\A6N N5A0N&<x*<N\A0N N`Nq <r$<H <r$<Hp NHP <r$<H <r$<HA:NZNNܴpNpN"pNpNpNBHxHxHxHxHxEHxHx,HxpA=|NZp"<EN <"<qNp"<GN <"<oN(pNpNpNp"<HN <~"<nNpNp!NpNpN <r$<H <r$<HNGegebenes bitte anklicken:HP <r$<H <r$<HA:NZNNܴpNpNpNpN"prN2 <rN| <"<Np(Nh <"<N <"<NNBetaN|pF"<Np-Nh < ""<zNpd"<NN Gamma>N|pF"<N <"<N <"<NphNN| <"<NpcNN|pl"<N <"<N <"<NphNN| <"<NpbNN| <rA` 0ABN&<؀x*<N@pJBgp/ABN&<x*< NFpJBgp$VHfN?bA` 0ABN&<x*< N@pJBgp/ABN&<x*< NFpJBgp$VHfN?A` @0AHN&<x*<N@pJBgp/AHN&<x*<NFpJBgp$VHfN@*AZ 0AHN&<x*<N@pJBgp/AHN&<x*<NFpJBgp$VHfN@AZ 0AHN&<x*<N@pJBgp/AHN&<x*<NFpJBgp$VHfN@AZ @0AHN&<x*<N@pJBgp/AHN&<x*<NFpJBgp$VHfNAVAZ 0AHN&<x*<N@pJBgp/AHN&<x*<NFpJBgp$VHfNAAZ 0AHN&<x*<N@pJBgp/AHN&<x*<NFpJBgp$VHfNBAZ @0A`NzN.pJBgp/AZNzN.pJBgp$VHgNB`` <r$<AZNNX&<x*<N>A`NN\A$N NNܴNHPpN"_NfNCfHxNWirklich schon Schlu machen ?HPN Ja | Nein 4r"_ NAfN\AfN&<x*<NfNCfpN A 0A|NZN?<Bg?<NN\NܴNNܴBm.A$NCnN"zN@pJBgp/A$NCnN"&<$x*<N@pJBgp/A$NCnN"&<78<*<NFpJBgp$VHfND:A* 0N *** WERT ZU EXTREM ***C&NHNSRA$NCnN"zNFfNDA* 0N  *** KEINE NEGATIVEN WERTE ***C&NHNSRA$N&<x*<NpJBgp/A$N&<x*<NpJBgp/A$N&<x*<NpJBgp/A$NCnN"zNFpJBgp/A$NCnN"& 180 GRAD ***C&NHNSRp CnN"zN.pJBgp/p CnN"zN.pJBgp/p CnN"Hp CnN"L8N^pJBgp/A$N&<x*<NpJBgp/A$N&<x*<NpJBgp$VHfNGA* 0N *** INKREIS >= UMKREIS ***C&NHNSRpCnN"zN.pJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp/pCnN"HpCnN"HpCnN"L8N\HpCnN"L8N\L8N@pJBgp$VHfNHA* 0N !*** UMFANG KLEINER ALS SEITEN ***C&NHNSRpCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"zNpJBgp$VHfNJ6pCnN"HpCnN"L8N\HpCnN"L8N^pJBgp/pCnN"HpCnN"L8N\HpCnN"L8N^pJBgp/pCnN"HpCnN"L8N\HpCnN"L8N^pJBgp$VHfNJ6A* 0N *** FALSCHE SEITENLNGE ***C&NHNSRpCnN"zN.pJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp$VHfNPpCnN"zNpJBgp/pCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"HpCnN"L8N\HpCnN"L8NdpJBgp/pCnN"zNpJBgp/pCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"HpCnN"L8N\HpCnN"L8NdpJBgp/pCnN"zNpJBgp/pCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"HpCnN"L8N\HpCnN"L8NdpJBgp$VHfNLA* 0N *** KEIN DREIECK MGLICH ***C&NHNSRpCnN"zNpJBgp/pCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"HpCnN"HpCnN"L8N\L8NXHpCnN"vNL8NdpJBgp/pCnN"zNpJBgp/pCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"HpCnN"HpCnN"L8N\L8NXHpCnN"vNL8NdpJBgp/pCnN"zNpJBgp/pCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"HpCnN"HpCnN"L8N\L8NXHpCnN"vNL8NdpJBgp$VHfNOA* 0N *** KEIN DREIECK MGLICH ***C&NHNSRpCnN"zN.pJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp/pCnN"vNHpCnN"L8N^pJBgp/pCnN"zN.pJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp/pCnN"vNHpCnN"L8N^pJBgp/pCnN"zN.pJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp/pCnN"vNHpCnN"L8N^pJBgp$VHfNPA* 0N *** KEIN DREIECK MGLICH ***C&NHNSRp CnN"zN.fNSRpCnN"zN.pJBgp/p CnN"HpCnN"L8NdpJBgp/pCnN"zN.pJBgp/p CnN"HpCnN"L8NdpJBgp/p CnN"zN.pJBgp/p CnN"Hp CnN"L8NdpJBgp$VHfNR0A* 0N  *** INKREIS > HHE *** C&NHNSRp CnN"zN.pJBgp/p CnN"Hp CnN"L8NdpJBgp/pCnN"zN.pJBgp/p CnN"HpCnN"L8NdpJBgp/pCnN"zN.pJBgp/p CnN"HpCnN"L8NdpJBgp$VHfNSRA* 0N  *** INKREIS >= ANKREIS ***C&NHNSRNNܴBm.BmpN~pr,NN, ***** ICH RECHNE *****NRpNnB A 0 <r$<AN|NArN NAxN NA~N ArNCnN"zN.pJBgp/AxNCnN"zN.pJBgp/A~NCnN"zNpJBgp$VHfNTC$A퀄 0C~A$ 0ArNCnN"HAxNCnN"HANZABN AyPNZN` NqpCnN"zN.pJBgp/p CnN"zN.pJBgp/p CnN"zNpJBgp$VHfNUlC$A퀄 0A$ 00pCnN"Hp CnN"HA~NZABN AyPNZp CnN"zN.pJBgp/p CnN"zN.pJBgp/pCnN"zNpJBgp$VHfNVC$A퀄 0A$ 0p CnN"Hp CnN"HA~NZABN AyPNZpCnN"zN.pJBgp/p CnN"zN.pJBgp/p CnN"zNpJBgp$VHfNVC$A퀄 0A$ @0pCnN"Hp CnN"HA~NZABN AyPNZ)| A 0 <r$<AN|NArN NAxN NA~N ArNCnN"zN.pJBgp/AxNCnN"zN.pJBgp/A~NCnN"zNpJBgp$VHfNWC$A퀄 0C~A$ 0ArNCnN"HAxNCnN"HA0NZABN AyPNZN` Nq)|' A 0 <r$<AN|NArN NAxN NA~N ArNCnN"zN.pJBgp/AxNCnN"zN.pJBgp/A~NCnN"zNpJBgp$VHfNYC$A퀄 0C~A$ 0ArNCnN"HAxNCnN"HAhNZABN AyPNZN` Nq)|< A 0 <r$<AN|NArN NAxN NA~N ArNCnN"zN.pJBgp/AxNCnN"zN.pJBgp/A~NCnN"zNpJBgp$VHfNZ4C$A퀄 0C~A$ 0ArNCnN"HAxNCnN"HANZABN AyPNZN` Nq)|Q A 0 <r$<AN|NArN NAxN NA~N NA퀊N ArNCnN"zN.pJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp/A퀊NCnN"zNpJBgp$VHfN[C$A퀄 0C퀊A$ 0ArNCnN"HAxNCnN"HA~NCnN"HANZABN AyPNZN`NqpCnN"zN.pJBgp/pCnN"zN.pJBgp/pCnN"zN.pJBgp$VHfN_pCnN"zNfN\|C$A퀄 0A$ 0pCnN"HpCnN"HpCnN"HAPNZABN AyPNZp CnN"zNfN\C$A퀄 0A$ @0pCnN"HpCnN"HpCnN"HANZABN AyPNZp CnN"zNfN]lC$A퀄 0A$ 00pCnN"HpCnN"HpCnN"HA\NZABN AyPNZp CnN"zNfN]C$A퀄 0A$ 0pCnN"HpCnN"HpCnN"HA NZABN AyPNZ)|l A 0 <r$<AN|NArN NAxN NA~N NA퀊N ArNCnN"zNfN^C$A퀄 0CrA$ 0AxNCnN"HA~NCnN"HA퀊NCnN"HANZABN AyPNZN`&<x*<N.fNgArNCnN"HAxNCnN"HA~NCnN"HANZABN NgAB 40AyPNZN`Nq)| A 0 <r$<AN|NArN NAxN NA~N NA퀊N ArNCnN"zN.pJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp/A퀊NCnN"zNpJBgp$VHfNiC$A퀄 0C퀊A$ 0ArNCnN"HAxNCnN"HA~NCnN"HAbNZABN AyPNZN`Nqp CnN"zN.pJBgp/pCnN"zN.pJBgp$VHfNkBm <r$<A퀐N|A퀐N&<x*<N\NCnN"zN.pJBgp/A퀐N&<x*<N\NCnN"zNpJBgp$VHfNjxC$A퀄 0A퀐N&<x*<N\A$N p CnN"HpCnN"HA퀐N&<x*<N\NCnN"HANZABN AyPNZN`NqBm <r$<A퀐N|A퀐N&<x*<N\NCnN"zN.pJBgp/A퀐N&<x*<N\NCnN"zNpJBgp$VHfNkC$A퀄 0A퀐N&<x*<N\A$N pCnN"HA퀐N&<x*<N\NCnN"Hp CnN"HANZABN AyPNZN`NqBm <r$<A퀐N|A퀐N&<x*<N\NCnN"zN.pJBgp/A퀐N&<x*<N\NCnN"zN.pJBgp$VHfNmpCnN"zN.pJBgp/p CnN"zNpJBgp$VHfNmC$A퀄 0A$ 00A퀐N&<x*<N\NCnN"HA퀐N&<x*<N\NCnN"HpCnN"HANZABN AyPNZp CnN"zN.pJBgp/pCnN"zNpJBgp$VHfNmC$A퀄 0A$ 0A퀐N&<x*<N\NCnN"HA퀐N&<x*<N\NCnN"Hp CnN"HANZABN AyPNZN`Nq)| A 0 <r$<AN|NArN NAxN NA~N ArNCnN"zN.pJBgp/AxNCnN"zN.pJBgp/A~NCnN"zNpJBgp$VHfNoC$A퀄 0C~A$ 0ArNCnN"HAxNCnN"HANZABN AyPNZN` Nq)|; A 0 <r$<AN|NArN NAxN NA~N NA퀊N ArNCnN"zNpJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp/A퀊NCnN"zN.pJBgp$VHfNpC$A퀄 0CrA$ 0AxNCnN"HA~NCnN"HA퀊NCnN"HAPNZABN AyPNZN`Nq)|k A 0 <r$<AN|NArN NAxN NA~N ArNCnN"zNpJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp$VHfNqC$A퀄 0CrA$ 0AxNCnN"HA~NCnN"HANZABN AyPNZN` Nq)| A 0 <r$<AN|NArN NAxN NA~N ArNCnN"zNpJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp$VHfNs>C$A퀄 0CrA$ 0AxNCnN"HA~NCnN"L8N&<x*<N&<x*<N.fNs&AxNCnN"HA~NCnN"HANZABN Ns4AB 40AyPNZN`Nq)| A 0 <r$<AN|NArN NAxN NA~N NA퀊N ArNCnN"zNpJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp/A퀊NCnN"zN.pJBgp$VHfNtC$A퀄 0CrA$ 0AxNCnN"HA~NCnN"HA퀊NCnN"HAnNZABN AyPNZN`Nq)| A 0 <r$<AN|NArN NAxN NA~N NA퀊N ArNCnN"zNpJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp/A퀊NCnN"zN.pJBgp$VHfNvC$A퀄 0CrA$ 0AxNCnN"HA~NCnN"HA퀊NCnN"HANZABN AyPNZN`Nq)| A 0 <r$<AN|NArN NAxN NA~N NA퀊N ArNCnN"zNpJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp/A퀊NCnN"zN.pJBgp$VHfNwvC$A퀄 0CrA$ 0AxNCnN"HA~NCnN"HA퀊NCnN"HA"NZABN AyPNZN`Nq)| A 0 <r$<AN|NArN NAxN NA~N NA퀊N ArNCnN"zNpJBgp/AxNCnN"zN.pJBgp/A~NCnN"zN.pJBgp/A퀊NCnN"zN.pJBgp$VHfNxC$A퀄 0CrA$ 0AxNCnN"HA~NCnN"HA퀊NCnN"HArNZABN AyPNZN`NqN~pr,NN, NRAlN&<x*<NfNyBNSZpNnNNܴAl 0A0LNZABNNHPp "_N CDNHADN:ABN A$N/ABNCnNA+NZC퀄A$ 0ABNzNFpJBgp/p CnN"Hp CnN"L8NdpJBgp/p CnN"zN.pJBgp/p CnN"HpCnN"L8NdpJBgp/pCnN"zN.pJBgp/p CnN"HpCnN"L8NdpJBgp/pCnN"zN.pJBgp/p CnN"Hp CnN"L8NdpJBgp/p CnN"zN.pJBgp$VHfN{TA* 0N  *** DREIECK NICHT MGLICH ***C&NHA.`NZNۺpCnN"HpCnN"L8N\HpCnN"L8N\&<x*<N^pJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp/pCnN"zNpJBgp$VHfN|PA* 0N  *** DREIECK NICHT MGLICH ***C&NHA.`NZNۺNNܴA* 0N  *** DREIECK UNMGLICH ****C&NHA.`NZpN NۺNNܴA N&<x*<NfN|ANNA퀖N\N} ANNA퀖N\AN/A퀖N"N.NNܴNۺN`4LA퀜N NA퀜NN>&<x*<NN`HNL8NN`DLAHN AHNN8&<x*<NXNAHNNNdN`ZLAHN NvNHAHNN8&<x*<NXNAHNNNdL8NXN`8LAHN AHNBNdHNvNL8N\N`6LA퀮N LA퀨N A퀮NNA퀨NNN`6LA퀴N LA퀮N A퀮NNA퀴NNN`8LA퀴N LA퀨N A퀨NA퀴NN>vNN`6LAvNN`DLAN LAN ANANN\&<x*<NXN`~LAN LAN LAN ANHANHA}6NZNHANHA}6NZNL8NL8N>N`JLA퀨N LAN LAN ANANN\A퀨NNXN`bLAN LAN LAN ANHANHANHAPNZvNHANHANHANHAPNZvNHANL8NXL8N>HANHANHANHAPNZvNHANL8NXL8N>HANHANHANHAPNZvNHANL8NXL8N>NN`JLAN LAN LAN ANANN\ANN\N`LAN LAN LAN ANANN>HANANN>L8N\HANANN>L8NXHANNANN>L8NHA}NZHA}lNZN`LAN LAN LAN <r$<HANHANHANHANZL8N>HANHANHANHAPNZL8NN`LAN LAN LAN ANH <r$<HANHANHANHANZHA}6NZNL8N>L8NN`LAN LAN LAN ANHANHANHANZHANHANHANHAPNZvNHANL8NXL8NN`~LAN LAN LAN <r$<HANHANHANHANZL8N>ANNN`fLA퀜N LAN`PLA퀜N LAN ANNHA퀜NHA}6NZNL8N>N`RLAN LAHA}NZHA}lNZN`LAN LAN LAN ANANN>HANANN>L8N\HANNANN>HANHA}6NZNL8N>L8NXNN`nLAN LA퀨N LA퀴N A퀨NvNHANL8NXA퀴NNNdHA}lNZNN`xLA퀨N LAN LAN ANvNHA}6NZNBHA퀨NvNHANL8NXL8N>N`LA퀴N LAN LAN <r$<HANHA퀴NHANvNHA}6NZNBL8NL8N\L8N>N`xLA퀴N LAN LA퀨N A퀨NvNHA퀴NHANvNHA}6NZNBL8NL8NXN`LLAN LAN ANHANHA}6NZNL8N>N`~LAN LAN LAN ANHANHA}6NZNHANHA}6NZNL8NL8N>N`LLA퀜N LAN ANHA퀜NHA}6NZNL8NN`NLAN LAN ANANNHA}NZHA}lNZN`XLAN LA퀨N LAN A퀨NvNHANL8NXANN>N`XLA> Linke Maustaste drcken <<(.  "2 T &^ * &v|&2dVZ$*X P\RBvddddddddLfp>B@B@Dz@z@$@@>@Fl<b<b<FFFZlJJJJ~ZZZtl>6b< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHnN 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNTpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N ?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|h  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</N2JFkSFk&aQN2`Ha"FFaQL8N6.hJgtBnhNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNJLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_Np`pNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NZ  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`pNpNpNNZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN&ADNZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN'~AJrNZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN(&APNNZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN(AUNZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN)vA]&NZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN*AcNZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN*Ah,NZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN+nAmNZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN,AtNZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN,Ax8NZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN-fA}NZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN.A&NZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN.ANZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN/^ANZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN0ANZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN0A^NZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN1VANZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN1AFNZ -N&<x*<NpJBgp/ -N&<x*< NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN2AVNZ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp/ -N&<x*<NpJBgp$fN3HN`NN pNpNpNp N********************************************************** >****************** Hier beginnt das PRG ****************** >****************** Gru Ralf ****************** >**********************************************************  *,Fe,Fe,Fe {Fh,FYF  E Ein- Ausgabefenster FM F E F@Variable zur Abfrage, ob Berechnung in richtiger Reihenfolge !}F ! J*  !  !  !  !  !  F * ! F *@@ F*@@ F*@@ F* @@ F* @@ F*@@ F*@@ F*@@ F*@@ F*@@ F*@@ F*@@ F*@@ F* @@ F* @@ F* @@ F*@@ F *HH FRFa`EGHFQ F a`Z ***F a:FG |FDesk, Info i----------------------- a,a,a,a,"" -*Ausgang, Quit ,---------, Edit , Stop , DInfo, Lies das , Public Domain ,---------------, Aktuelle Ecke , nBerechnung, Kosten , Effektivzins , Vergleichszins , Unterschiedsbetrag ,--------------------, Rediskont , Drucker, Drucker , >SPZ 73-79, 1973 , 1974 , 1975 , 1976 , 1977 , 1978 , 1979 , LSPZ 80-88, 1980 , 1981 , 1982 , 1983 , 1984 , 1985 , 1986 , 1987 , 1988 , "","***" g F  FvLFn F F******************** nFLFcbFn******************** n F+F,F cEG F cEG F Y! ""F cF cF.F+FdJE G0F d@EG F Y! ""F d&F d F.F+ F y!@!! !F y!!!!F.F!+FFF, FJD F, F { F JD F, F { F JD F, F { F JD F, F { F JD F, F { F JD F, F { F JD F, F { F JD F, F { F JD FF, F { F L5 "B= " 1988F.F?+ FoF Fh2Fs.F+FFF E F  hr Quit FqF F h Edit FF FF h Stop FrF F i  InfoFc,FD)!.Programierer: Ralf Minwegen|8/1988|Version 3.2!!Weiter!F}F FF i* Lies das F,F F! iP Public Domain Fv, F F  iv Aktuelle Ecke FmM7F F7 i Kosten F,F F i Effektivzins F,F F i Vergleichszins F,F F j Unterschiedsbetrag F,F F j* Rediskont FfM"F F" jJ Drucker FF,F F  jl 1973 FM4FMF F j 1974 F,5FMF F j 1975 F,F,F F j 1976 F,F,F F j 1977 F,F,F F . k 1978 F,F,F F k< 1979 F,F,F F k^ 1980 F,F,F F k 1981 F,F,F F k 1982 F,F,F F k 1983 F,F,F F k 1984 F,F,F F l 1985 F,F,F F l* 1986 F,F,F F lL 1987 F,F,F F ln 1988 FM6FMF F.F" F+FP\! Infofenster FF,<6Programm zur Effektivzinsberechnung von Ratenkrediten.F,&Nach der sogenannten 'Uniformmethode'.F Danach ist derFnF60 Gesamtkreditkosten x 2400Fi60Effektive Jahreszins = -------------------------Fi4/ (Laufzeit + 1 ) x Netto-F4. kreditsummeFFF. {HFf, FF.BDies ist eine Public Domain - Vorabversion und frei kopierbar.FKF4HBDer Autor wre aber erfreut, wenn ihm eine Anerkennung in Hhe vonFa:4DM 20,- von dem jeweiligen Benutzer zu kommen wrde.FgFFJEJeder Einsender dieses Betrages erhlt postwendend ein Listing diesesFJDPrg's und auerdem Infos ber die stndigen Updates und andere neue FsNIPRGe aus dem Bereich Recht in der praktischen Anwendung auf dem Computer.FHCEs ist geplant dieses PRG zu verbessern und noch weitere FunktionenFRL(Berechnung bei Kettenkreditvertrgen, neue Rechtsentwicklungen) einzufgen.FcNHIm brigen ist zur Zeit ein Programm zur Unterhaltsberechnung in Arbeit.FF3TNDen Betrag von DM 20 - eventuell mit der uerung von Fragen oder anderen Wn-F("schen - bitte an folgende Adresse:FeF"(# RA Ralf MinwegenF&! Hauptstrae 76F$ 5020 FrechenF<7 02234/52469 o. 52534 (keine Mailbox)F,& privat: 02171/43354Fu {HFh,F,\! F .F+7FF7F:4****************************************************Fl.)Hhe des Verzugsschadens beim Bankkredit:F.)-----------------------------------------FMF*F)"BGH 8.04.1988 - III ZR 57/87F-FFAKommt ein Darlehensnehmer mit seinen Bankkreditvertrag in Verzug,FF@so kann die Bank der abstrakten Berechnung ihres VerzugsschadensFdF@die zur Zeit des Verzugs marktblichen Bruttosollzinsen zugrundeFdHClegen, und zwar nach einem Durchschnittszinssatz, der sich nach derF82Zusammensetzung ihres Aktivkreditgeschfts richtetFe*$(Fortfhrung von BGH NJW 1974, 895).FhFAAnstelle des Verzgerungsschadens kann die Bank Weiterzahlung derFHCVertragszinsen verlangen, wenn der Darlehensnehmer bei von ihm ver-FB=schuldeter vorzeitiger Flligkeit mit seiner Rckzahlungsver-FHCpflichtung in Verzug kommt. Dieser Zinsanspruch bezieht sich jedochFHBnur auf das Darlehenskapital und endet sptestens im Zeitpunkt derFFFAvertraglich vorgesehenen Flligkeit oder zum nchsten Kndigungs-F4.termin nach 247 BGB a.F. oder 609a BGB n.F..FcF.:4****************************************************F MF*.F+FP$Berechnung der Gesamtkreditkosten ZFEFFFFF<7Zunchst mssen die Gesamtkreditkosten berechnet werdenF<7-------------------------------------------------------FF:*:"Kreditgebhr (=Zinsen in DM) .. DM"F*:"Bearbeitungsgebhr ............ DM"F*:"Auslagen ...................... DM"F*:"Vermittlungsprovision ......... DM"F*:"Restschuldversicherung ........ DM"F #E# F.$E%H HFnEF$E%H HFMFEKreditkosten = DM "F -----F.D?wenn man die Restschuldversicherung nach BGH hlftig anrechnet.F zjFb.)(hier aber von Ihnen mit Null angegeben).F F)F@F@F@Kreditkosten = DM "F -----Fr0+ohne Anrechnung der Restschuldversicherung.FF5F5F5.FE +FZF {B Fu, F*)!Zuerst Kosten berechnen !!!OK!F, Fo F!ZFF$Berechnung des Effektivzinses:F-$------------------------------F-F*:"Laufzeit in Monaten ............. "F*:"Nettokreditsumme ................ "F E E.Berechnung Effektivzins nach Uniformmethode  E# ##  F$ E% H HFnFEFE,Effektiver Jahreszins = " " ProzentFF:5 bei hlftiger Anrechnung der Restschuldversicherung.FF5F5F5 E# ##  F$ E% H HFn,Effektiver Jahreszins = " " ProzentFF2, ohne Anrechnung der Restschuldversicherung.FEF.FE +F BBerechnung des Effektivzinssatzes nach dem Spz der Deutsch.B.B. ZF ~*F , F0)!Zuerst Effektivzins berechnen !!!OK!F, Fs F ~ Fa, FF)!4Zuerst Kosten und Effektivzins| berechnen !!!OK!Fr, Fs FFF@:Im folgenden soll der Effektivzinssatz, der sich ebenfallsFB<7nach der 'Uniformmethode' aus dem Schwerpunktzins (SPZ)F82 der Deutschen Bundesbank ergibt, berechnet werdenFS@:----------------------------------------------------------FBF:F:4/Wenn der SPZ-Betrag nicht bekannt ist, bei der F,'nchsten Abfrage eine Null eingeben undF"unter 'SPZ XX-XX' nachsehen.F2-Dort sind die Daten gespeichert und abrufbar.FF&F&2:)SPZ des betreffenden Monats ............ " F-  FnZFFFF  F  }p FL)!9 Falsche Eingabe ! | SPZ kann nie grer | als 0.99 sein.!! OK !F EF F!F)F)F)& E# @@@ # F.$ E% H HFn4 Der Effektivzinssatz nach SPZ = " " ProzentFfEF.F +Fr"*** Berechnung Unterschied ***  *ZF > Fa, FL)!;Zuerst Kosten, Effektivzins |und Vergleichszins berechnen !!!OK!F, Fs F F , FD)!2Vorher Effektivzins und |Vergleichzins berechnen !!!OK!F, Fs F F , F4)!"Vorher Vergleichszins| berechnen !!!OK!Fe, Fs FF/4/Schliesslich soll der Unterschied zwischen dem F*$Effektivzins und dem Vergleichszins Fsberechnet werdenFdEG Fd-"F zFG E#H  HFh$E%H HF E  F$E%H HF FEFEFE:4Der Unterschied betrgt bei hlftiger Restschuldver-FFsicherung .......... "Ft " %F8.................... "" Prozentpunkte absolut.FFFFFE#H  HFh$E%H HFe E  F$E%H HFi<7Der Unterschied betrgt ohne Anrechnung der Restschuld-Fversicherung ....... "Fk " %F8.................... "" Prozentpunkte absolut.FFEF.F6 +FeDruckerausgabe s\! Ausgabe auf Drucker F l Fu, F@)!/Vorher die einzelnen|Berechnungen durchfhren !!!OK!F, Fe, FV F ZFFFADruckeranpassung ist mglich, wenn das 'Install Printer' ACC-FileFLGbeim Booten mitgeladen wurde. Siehe unter 'Desk'. Freie Pull-down MenueF,'Pltze (4) sind vom PRG aus reserviert.FF# {HF., FF#B< *******************************FdHC Nicht vergessen: *** Drucker einschalten *** !!!FB< *******************************FdF+,F F,F,$Bitte keine Umlaute eingeben !F-F:Datum des Kredits "F:Kreditinstitut "F:Heutiges Datum "F:Sachbearbeiter "FF2F@Der Druckvorgang beginnt. Nach Abschlu knnen neue BerechnungenFB=ausgefhrt werden; frhere Daten werden automatisch gelscht.F =; Der am "F-; bei der/dem "F-0;* abgeschlossene Kredit hat folgende Daten:F 0;* -----------------------------------------F;FA;1.F-8;2 Gesamtkreditkosten bei haelftiger Anrechnung der F4;+ Restschuldversicherung .............. DM "Fr;F+"; die sich zusammensetzen ausF9"; ---------------------------F9;F+4;+ Kreditgebuehren bzw. Zinsen .......... DM "Fa4;+ Bearbeitungsgebuehr ................. DM "F 4;+ Auslagen ............................ DM "F 4;+ Vermittlungsprovision ............... DM "Fa4;+ Restschuldversicherungspraemie ...... DM "Fa;F8;+ Effektiver Jahreszins dann ........... " "%F9;F.;2.F.8;3 Gesamtkreditkosten ohne Anrechnung der Restschuld-F4;+ versicherung ......................... DM "Fl;F+8;+ Effektiver Jahreszins dann ........... " "%F9;F.;3.F.<;7 Effektivzinssatz nach dem SPZ der Deutschen BundesbankF0; betrug am "" bei einem SPZ von " "%F;F 8;+ ...................................... " "%.F;F(;4.F.8;2 Der Unterschied zwischen dem Effektivzins und demFb6;0 Vergleichszinsatz nach der Deutschen BundesbankFm; betraegt,F ;F+:;5 bei haelftiger Anrechnung der RestschuldversicherungF6;( ...................................... "" %Fu2;( ...................................... ""F ; Punkte absolutF; ohne Anrechnung F6;( ...................................... "" %FF2;( ...................................... ""F ; Punkte absolut.Fi;F;5.Fh0;( Die Berechnung des Kredits erfolgte am "F0;( Sachbearbeiter ist/war ............... "F.F+Fa, F8 Deffill 1,1,1 !Der Rahmen fr die Schrift 4 Pbox 224,212,620,280 !mu neu gesetzt werden  Deffill 1,0,0  Pbox 254,212,620,280 ,BX "B` "FEunterstreichen ein `Y!  "I WEITER ? DANN EINE TASTE ODER MAUS DRCKEN !FBX "Bb FF! Z6S RFFSZF.F+ FV}FeF\! F :]!3 Bei Eingaben: Immer zumindest eine Null eingeben !F^FZF.F +Fy!!z F z!!!+ F {pFy!!@ F z!!!+ F {pFy!!; F z!!!+ F.F!+ Fy!!z F z!!!+ F.F!+FIZFJDSollten Nullwerte ausgegeben werden, liegen die entsprechenden WerteFnoch nicht vor.FFF " :FF Januar : " F Februar : " F Mrz : " F April : " F Mai : "  F Juni : "@ F Juli : "` F August : " F September : " F Oktober : "  F November : "0 F Dezember : "@ F.F+4FcRFcDEG@F Q F E F $F.F+5FRFEG@F Q F E F hF.F+FERFEEG@FQ  F E  F F2.F+FERFEEG@FQ  F E  F F2.F+FERFETEG@FQ F E F 4F2.F+FnRFhF,EG@FQ F E F0 ~FG.F.+F@RFEG@FQ F E F0 F2.F+FRF&EG@FQ F E F F2.F+FERFEjEG@FQ F E F JF2.F+FERFEEG@FQ F E F F2.F+FER FEEG@FQ F E F F2.F+FER FE6EG@FQ F E F F2.F+FER FEzEG@FQ  F E  F ZF2.F+FER FPEG@FaQ  F E  F F.F+FER FEG@FaQ  F E  F) F.F+6FRFFEG@FaQ F E FF &F.F|F60.0,0.55,0.0,0.0,0.59,0.0,0.68,0.69,0.0,0.0,0.7,0.0 |F060.0,0.71,0.0,0.0,0.68,0.0,0.0,0.63,0.0,0.0,0.62,0.0 |FI>0.50,0.52,0.51,0.50,0.47,0.43,0.42,0.36,0.34,0.34,0.34,0.33 |F@>0.33,0.33,0.33,0.33,0.33,0.33,0.33,0.33,0.33,0.33,0.33,0.33 |F,>0.33,0.33,0.33,0.32,0.32,0.32,0.32,0.32,0.32,0.32,0.32,0.32 |FE>0.32,0.32,0.31,0.31,0.31,0.31,0.31,0.32,0.32,0.32,0.32,0.32 |F>0.32,0.32,0.33,0.36,0.37,0.38,0.40,0.43,0.44,0.45,0.47,0.48 |F,>0.48,0.49,0.54,0.56,0.59,0.60,0.61,0.60,0.60,0.60,0.60,0.60 |F,>0.61,0.61,0.67,0.68,0.69,0.70,0.70,0.70,0.71,0.70,0.70,0.68 |F,>0.67,0.67,0.66,0.63,0.60,0.59,0.59,0.59,0.57,0.56,0.53,0.49  |F,>0.48,0.48,0.47,0.43,0.43,0.43,0.43,0.43,0.43,0.43,0.43,0.43  |F,>0.43,0.43,0.43,0.43,0.43,0.43,0.43,0.43,0.43,0.43,0.43,0.43  |F,>0.43,0.43,0.43,0.43,0.43,0.43,0.43,0.41,0.41,0.39,0.39,0.39  |F&0,0,0,0,0,0,0,0,0.37,0.37,0.37,0.37  |F080.37,0.37,0.36,0.35,0.35,0.35,0.35,0.35,0.35,0.36,0,0 |FE0,0,0,0,0,0,0,0,0,0,0,0  * +"FZFFF>8Wird ein Teilzahlungskredit vorzeitig zurckgezahlt oderFHCfllig gestellt, mu eine RCKRECHNUNG DER KREDITGEBHREN erfolgen.FFCFADie Formel fr die Rckrechnung kann das Kreditinstitut in seinenFJEAGB festlegen. Fehlt eine solche Festlegung, kann nach 287 ZPO eineF4.Rediskontierungsformel zugrunde gelegt werden,Fn4.(vgl. insoweit Palandt-Heinrichs, 246, 2 b).FnMFgF$:Restlaufzeit .............."!F 6 F $:Laufzeit .................."Fz >FF FF $"E#!#! H ## F$"E%"H HFz" Rediskont = """ in ProzentFMF 6 F.M Fb)!QVor weiteren Berechnungen|mssen erst die anderen|Berechnungen durchgefhrt|sein.!!OK!FM FB F!#E#" HHFv$#E%#H HFv $E#FF>Die Kreditgebhren von DM "" vermindern sich daher umF """ % = DM "#F auf DM "$F.FL 8V0&xn:Dd\,`,p PajPhHl|wz}oh.N2^0t@cdcdTF N sB`^`THGFA BASIC RUN ONLY *o#^n - ЭЭl// #^rBg?<JNA ?<NN#^R>NNT3^ȠC^V"L?H>aShHx?<HNA\@#]/?<HNA\#]3%]Xa\la`N^C"AJgAtJg  gSfa[Da]aV``NuaE*B9LBy2aV2Nka *y]`$daZfa]jarByrhAN[N vN^vaZBypN``SEvf$H$& y^:C^>e a^>d, a,A^>ךf B E^JdђXbђNup`Kd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu$H$&"BA 9^:a(XA^>f B E^JdXdNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNu2(g"P@g:RADAH""y^>r2g"ZA^:e& 1@##^>Nu1@Nu y]\]`a"y^>^:dp`I`H y^B$y^>"Hg< k&@0+R`g k#&@0+S@H3 Q&f#^>LNuH?<?<NAXJgJf&AH@B p`\A] \ @BBPtNua*Adp`:a*AV0p`,a*AH p`a#za_A6 1Ap`a#daad$a BS@kH2Q y]] tNuHpg`aS@Q`a""@ Y0g0]b(2RA4DAH! ^>fXչ^>NuaaJBkdHNuaHPaJBkd8 `bCgBJ@gv  g &g a]NutNuRptr ae OgR Xgh HgSRB ae Fb$0k  c_  c b退`tSJBjblNuRB0 b b瀀`RB0 fрd`aJ@g`c`c^aJ@g`aJ@g0` y] Bh\]tNua`ca `aa!a( Shda [PHP Pa _`8LNua!Va( Shda [PHP2( P`Qa _]b6(gRC8DCHHP P!@ _Nua a(.?p`a a( ?La( S2fr4(Ae.RBBc0?af2 [PHP PS`Qa` _`~ [Pav` @"[PHPHQ0(ie4k2a t _aN2( P`Q _a:2( P`QNup `Ep @HPa Sa [P"_0( X2)"Y@`VNuag"`af`a(e`a"c` ab `adtNu <r$<Nu @HPa Sa [P"_0( P2)"Q4Ae4v`Vf@Nua @2(g]b P"H`/0Ha.2  _ PSAvjx E&Wf* ae zb QNua8U@k0`aa*Y@k `_za]@jW``aY@k rtHHBBNuaQ@k 24HHBBNuaBjtpr Bc4<prJjAjNua Bp`8a 1A1Bp`&atЀUrЀQ`Da%A(Jf J0p`NuatV0 9c^Q A`at `V0Q`H?<,NATA2X@a&:0H@?a:AAa Avp`N0H 0 0H@NuH?<*NATAJ2@a.0H@a.YdaHAaAp `a$a$2 P`a$r b?a2`Q tNua Nuaa patNua$H gJg ba"P @4(gHP bn aX$_// Z4HQ`S@Q _Q _al tNua#B9"?Hy"?<GaPHNAPA"pR@J0fH`a#/aN `aDa@a#/ [P` Ba.a* @a/? [Pa"X20 _$gS@cY6 :fRS@g.t;ak&AA :fRS@g t;akIA??<-NAXaZ @a."X0gZtaZkT6gP .fJS@gFt aFk@Ag6paX -Fgz !g %Fgna6pja8 -FgZ !g %FgNa6p a -Fg: !g" %Fg.a#drtp aAj -Fg Fg a6p`NuaBg?aN/a?@a@ @a'7 _a "X24$[A"0@@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BA"0a:`taD?9d?9f09dyrdaTR0yrfaFR0`>a?a3d3fpirta@*09f `Ua|??at -Fg$@@?@a^@@oaP@o?@?<NN\Nup`7p`7p`7p`p`p 3a d3vgC@@@A^ p hf X ~e#TvgC@@@A^ p hfT X 4eN#R3rd3rf FgaJ3aL3 "|d z9f?:`aJ*aRz2TSWjT`0:2:`$@2TQ"|d z9f?:`aIaRPzT2SWjT`0:2:z`$@T2Qr4:f0:^`>. @a"X0AdH2`0Qppta> vp`a JBkaQ@3pN`= @a"X0AdH2`0Qtpoa=`DHv y^CC`I HvC y^փփ`IHv y^ CC 00`PHvC y^ փփ 08`Pv y^CCHp0Ra@ _`HvC y^փփHp8Ra _`Haj/A^eeeee `H@J@g`쐨g`Hd`v y^ CCHp0Ra _ NuvC y^ փփHp8Ra _ Nuv y^CJp0g*H <r$<NuvC y^փJp8fHtNuv y^CHp0Ra4 _0NuvC y^փHp8Ra _0NuHv 9^CCCCtNuHvC 9^փЃփЃtNua*/A^eаdʐH@J@g0`v y^CC`vC y^փփHp8Ra~ _g$]c/"@0)a _$PS@kH2QNu2(g"PRAA4DBH#"@$Y2g 1ARAA%NuBhNuvgCg"Wkg2WkR/&SEg$`LR/ bZ RbJp0@:<Jf` փSGgЃЃЃA^6H aLp$4`YE PQƐFrd0` Qj`prgAA^BBB p "X2g UAk$QNuHaT`EaBPJg, BgBUBg8j(Ѐ"ЀЁE Y0gR@2DAH!b` `ЀЀ`Ѐ"ЀЁE. y^ 9^`2"X2g,e($UAk&QHPS Y2g RSj _b y^ 9^""X2geb 9^: J"F^6^:`~aSk.TH@gX V0"~:00.LKLRLLJZ,>,N0D000J4! V ^0 33,,$&xV3ThU8b^b $#"]#&\"""hZPR 01,1>1Xn2]]3f3_f3F RNuR@HTNu33` p@  : HxFF~AJ0pk*c`TG<;p0N`~-A*B0p`G<;pN``p `$p `$??@@@8899HAAA>AzAzAtAtAVAPAߢߺߺ߮߮ߴߨߜ" ?>??B>9rC8C*F^F@BDzEt4J$26`޸RbEFH4LdNAd 8 .<$h6 \LrJx:$ pr.!!@&D`pxh&X?BXDXD&hS  ?>12h233>h3,32$REEEEEEEܤE(,z BRz((2## <<<<<<<^:`e a׎^>d#^:%` -Ig&a$y^:%@ -Hf&a$y^:%@Nu%ea^>d#^:!@ -Ig2a. y^:!@1A!B -Hf2a$y^:Y%5%Nu!<B`!<HPa$_%5%NuY!<B`!<Nu"y^:$] ! @g !k А n (JNuА l#^:Nu 2($4AB*!kB8!&!a34*!8!&!Jk JkEffDb(J`2#^:`2JjBf涀fA`8!&!a2*!8!&!JkJj`Jk`/RaJBgpgX^:(_NuXNuaJBfprtNua" bNua bNup`p` ga`9~A~-J0pfR~RHGG y^ 0pNu y^n`l y^n^r`^A.`VAV`NAb`FA`>A`6A`.A`&A`A`A`Ar$`AH `8Ra0,/JkTSGgL`NM.F`84  f R~ NuBg` BgarRW g %g - f>NuRar`a,/JkTSGgL`NN.F`7a,/JkTSGgL`NA.F`7a@J@g6@Hz ?<&NN\NuJ9]ZfjNua~#1 /aH _Jg/JkTSGgL`Hx1NLx.z `7Fa&/aD:HP1 M"JGg` -JBj @aՂSGkL` _HV?LPN\LPNuBg -FgaxJBj @ `a7LtRW - f>Nupg@ЀЀ y^" 0g(@Nup`V Fga~HA^JLpNuaBNu~G<6p N`  gNuR~G<6p N``>D? *_a 3rh2HUa fRp"Ma !g yXNf pCaaVJ9]Zfr |"pghfb "f.R 0"g 0 gR@` 0,g 0 fHp`R@ 0,g 0 fHpa _ Fg  f`pXNupR@ 0,g 0 fadJBkHQ ! gRfa`X yXNg yXNgp`<9XNk&a(HS&|"a  g f< &_Nu\F Fg Fga(ZHS&|"??<NMXJk!g f< &_NuHPa2  _`Q`N3rh2Ra fRp"MaD !g yXNf pC$a*a4J9]ZfA"pR@ 0 fa FfNu??<NMXJkNu\F Fg Fga'HS&|"a "f#g 9""g& ,g g!f< &_Nua g`Ra ,g ga| ,g f`<9XNkva' HS&|"ab "f#g 9""g& ,g g"f< &_Nua*  g`Ra ,g ga ,g  f`HSHx??<?NA JkSfNup`v`v??a?@NMX`2DW?<`a?k?<NM" Af J@fH@`4g \SG??<NMXJkJ9]ZV t&_NuRa dd XAB0kH?<?B?<BNA `1tNuak `1a kf`2Rar dd AB0kH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNu` y]~ (g (fB76Nu#7637:Nu FgvgCփփֹ^" C g @~`p!`tp"`np#`hp$`b :g @|Sg`pR@ 0,g 0 farJBkHQ ! gRfa _  f z4~a8 FfNuR37: FfNup "f.R 0"g 0 g,R@` 0,g 0 fHp`R@ 0,g 0 fHpa&`~09u@29uBR@RANuS@SA3u@3uBNu3,p`84:`fprta09f29dNu4:Df3f3dp rt` By8`pBy8` p3 8|38@38a383838~`&aJf,H@ Kg Mg Pg Hf~`DSGj@RGFc:>`6 |" g6 g0 gd gXz`ez\gFf6pRGRFa`an` `?~aa!p a>p a80NuCpE`bf`FgRGJGgLSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NAXJ9]ZfJgNup Nu4:f??<?<NM\Nu3XN`a!0:R2:Pa0zEfpa\ppaX |"Eg0PaEfa<`@a @aN"X0g?Ra dbTABJfHPaH @a"X>EFr$WfFA0 _3XNTNuApHPB2/ Og* Rgz Ag< Ug. Ig ogB`&p=`pNAXJ@kNu~cGBVgB+B+eHk ??<>NAXQNupA` p9`p:`p;?a @a*>"X0AHPBHQ?NA\ _JkTNu?<`?<Rat db AB0Hk?aVJj Jof?|/?<BNA `a./a(/ @"X2B1HQ ["X2B1HQBg?<VNA _a _a~`p`p3GN Ff #*.*"`8a~S @aP"X0gA" @f ):f 0 *.*`QB?:Hy"?<NHz?<NA\NAP3XN Fgar9AH3XNa`\Jj @g @g ?aF0`NuC"EpAJyGNg *g|*fSJyGNg$ 1f *a8JfP|0ala  " C"a?<ONAT`d'/Qa H@HaHda H aNqJfJg0P H@HNu 0*X@a:0*H@?a:0*@@` 0*@a.0*H@a.0*X@@H`haS@k ??<NAXNua?Hz?<6NAP0:`av @aJ"X4g,A HPBBgHQ?<=NAP _J@k??<>NAX`tNuaa @a/? [a"X2A"#`QB2"_Ar# A e ` \gQBapZa aA""H09g"Hg \f`ArfS A"`Ja : -Fga9@Hk$3XN//<??<?aNA Jk ` aa#JTaa"z9AH3XNaR` xp6`p5` p4`p3`p2`0ap(fgTA3JgJhf~X?HPa Wv- eC-00ÑyJm y^FaZ _> FWfBNup?`p@3JaFr(fgpTAHP0( -Fg aSk _1@RhHhBg?9XN/.?<BNA JkN&_>gF2ҹ^ A"XPfHQH/?9XN?:NA Jkgp y?Jgp%` Nu @fp7`Ha y^R"y^F`Han"y^R y^F <}arLNup=arkHQ??<>NAX"WA"fSp g \g .WgJfS.BAKBHy"?<ANAT//Bg?<VNA "_`VBgHQ?NA"oPJ@Nua4L #L#NJy|Zg a2Sy|Zf y^B"y^>E~` k&@p0+R@Db bPL y]$z\p (g&fQLܐ#L (f[L:"J9LfA gXgJf`C^Jj* fANSfpAZahJyXf zx"b` C^AfJj<-TDd0@H@H 0 0H@B`3#p4`&][Return]H:FHH`H:8HH` f" LWLfp e@3LNu -f. FV\bg LfD9\bp e@3LNuv Lgv g gh f.v RA eC0H"y^&J8n0Nu@aT@aJaHAv2+&gvA020000` Lg$a3M a3M a3Mv`aߖ`ߒv`r0z B9L^&"o$y^:X^>eaε^>d#^:B*A`ո0z^&"o.$y^:X^>ea^>dۜ#^:% *A`xB9\b` ֹ^& C"nNuvgCg Yk,gL`b y^փփHPaRaXa, _` y^ փփHPRaޒ _ѐiNuvgCg Yk,g`0 y^փփHPajRaa _`p y^ փփHPRa. _iNuvgCg Yk,g` y^փփHPaRa֐aT _` y^ փփHP aRala0aF _ NuvgCg Yk,g` y^փփHPaRa"aZ _` y^ փփHP adRaa6a _ NuvgCg Yk4gp` y^փփHPa*&<x*<a _`( y^ փփRi`NuvgCg Yk4gF`\ y^փփHPa &<x*<a$ _` y^ փփShp`Rֹ^a̪ЀЀ`ֹ^a̐ЀЀ`ֹ^axЀЀ`ֹ^a^ЀЀ`ֹ^aFЀЀ`ֹ^a,ЀЀ`ֹ^aЀЀ`Pֹ^aЀЀ`Zֹ^aЀЀ`ֹ^aЀЀRiNuֹ^aˬЀЀ`ֹ^a˒ЀЀSiNuL88PdRBNu#SPp arpMal3.pd |dr 0Q0tr a3.`peapp`0pAUaS@fa @aBaA aN_$BgNA`"|:2AUV@p222a"<^0<NB09Nurt3"3(3$a"<^psNB09dNu Fg a43a"<FpsNBNu Fg2aCV2 @ e @}bAUV@p222a`"<.0<NBNu A`H JA"#C#B0\* BpZaHSa.09g$A""Hg \f`Af09NuGfABASICByZ 0:A@ fB fB @m ??<>NAXNuAa&|.BASa^g <.BASa6B^JB^NaC"p apA#CelVfdC"XptaPZ A]C^:E" "Ҁ f Cdb("y] 9^2aha&J9XfXNup `p `p ?a&`p`p?a0`Nua/a8/a o("_ _" $Id*b` QjNuQjNubd`aHaa"[`a6aa"[<:HS?HQ/a.&_<k/HS/??<?NA Jk0&_fDNu\Fj.?^:,*B(9]؅kr/9]?<INA\/?<HNA\JgH y^>"y^B۹^F۹^B۹^>#]$I`&bۛp0R@@b CX`/9]?<HNA\p=`Na|a aaA"a&HRLaHRLaHRL??<KNA` J$H @a"X0 J @cp~QBNuH <r$<NuH <r$<NuH <r$<Nua 0`a`vHJ9rh`6?<%NNTNuH`HP?< aNA\LNuQ[J[f H LNuJ9[g*P[Jy[gH y^V hBP By[LNupAav`xa f`pNupAaXS@NuaJ]\k J9[gaJ9]ZgB9]ZJ9\bf aaa`j3]X%`bHy\?<&NN\P]\aJBy]Z3]X%Nu xVC]gJf! ?<"NNT|' @"hE]:g G]<&!JNuHy\?<&NN\Nu xVC] gfB?<"NNT| @"hE]:f 9] :#^6#^: zb :~grHd0` Qj`xNu:F"ddddB?< NA\#_ /?< NA\Hy_4?<&NN\NuHy_?<&NN\NuALH_C$pJg XXQA#`Z `LNu________LH!`ZNuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A3`J Ni LHO |1R/:?< NAO 0: @d`HarLxN 2$4BANuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`BL8<gJEgEjCDEDF Fe"Fk8BCHC`PFk\QF^FkTQkDуdQRBNuDdBDA@kgAр[SBk(NuJlJBkNu0gH@rB JkЀ[`JBjtNuJ9afgPagpr$<Nup`JBgVB&8TTDуdQRBNuaDNuz` L8JEgJBgJjBEB:gHC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB Bb@Nup`Nu&8*LJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@`H?<,>CEdGH@0r`?<`DAр&AdRAрAрDуNuprt|PafQag  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dadSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`TJjDDDS4</a$JFkSFkLaRFBd&8*L?a><JBgaSF Be BgQRB`ApdR e <rRF&0xaffEv+0JFjDFv-Hƌd0BFHF 0HF0A Nuprt|`HQ2:( A dHC 5e2!R 0c 9c0`<R"_`Z ar`2:C0 Ef"_Nuaa/ Cr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA" 0g` a| @e3fNuaJBg <r4<NuaAd RdQRBABe B/dNAрQ4<`BNuaag `.aag`@Ad RdQRB>Ge GbFGNu G0dFGNu~NuatAd RdQRB6Ce C/jC C@j C jr0H@{0AFG0000X0000X0000X0000Gr$~A0g0  pia QNua?S@kF8LfBfLC`HNua -FgH?aa"AJWfHa #rdTNu3`ʰzbzbHr`a0S@k@> A0P"G0(JgRJ)@g1@C2fZ2HP"("(pdaj W091@A00 piaJ3@pia2 _C""pe` 3 pia3phaLHrdHsSBSC@AHdHsPrhPuDPd0<rt`pa"papapaLr`a,S@k<@ A3gFBPpfahpgab3 phaT3f8Bya.QrhBdBrd`bNuXNurt`rtH`aS@k@?aN @a""X80L6BPA E\G66&JDg DNexMQBBJyg *gpi`Nua`< d8 VuDg* g gj g& fzSyu@jByu@`j3d0:z"3d0:R@S@z3fprta|Ryu@0ΰz|e$Byu@RyuB<SFEzbcSyuBaQj&_NuByu@`3dH AdEE1FL HHhha a6BydAd0(1@hV@1@1@ `H AdL a Byda LNu??<?<NM\`L3pkaD3dAdL fHL|D@ASBSCHHa Bypk` z#g.vGJRC+ g33p!aĶSeNuALp #gBypaܚBwAprt0 0BBB R@ @efA000 0PB0 00 000\0X00000 0P0BX0:@00p1| 1|QBX0 $HTH0P 00,NuSk [0NupNupNp M gz gp g g*Ha:a6rHA3@@"TAt #zg0A9( f hgSASAgRB`3`DSAgNu@  f/az _^&X PfR/|~ Kzza0g @ ep 24C&"2 S@ػȊTd BTA3A0C4$I2a222B"0@2A\xvag@2#M 4B3BS@ -f ػȊTd@BAb8RGRC`3RSG5GC5C J1DcaRF F eXNuRG GcdNuPNuXASF1F41R 1h4 x1EDgZA##w3?<NNTU@g.A"g dRhdRh(gp`zp>`Ap0rtCLagQ0CLL000zH?#|<pa0LHH|Lv3|:ALff$f*f*fNu y |6(`86(`2629|BWAARA09|DA hfRAS@f3|: Cf0Nua$@k0;` <`   FgbSa@gS@ AHP -Fg^a| W@ -FgL Mg4ad W -FgaR W HAA}:20i0d R@`Ra. W@H@?< NN\ -FfbNu0^ M / haw FgSaF|H| -Fgra|c|o|{f|cf|of|{ -Fg$ab| -FgaP|H|AxHP P0P T0T X0X?< NN\ -FfdNuaJk$ Be B baS@ogRR FfNu$y^:X^>eN^>dJ#^:% p e@ЀЀ y^& 0gk g$(@Nup`T`* f /BaN"_pHq )eRXar(_Sy|ZNu&y^: 9^> nN 9^> ovgC C@g,U@kBg^6BP`X^ &B`D^&B6BP`*^"X0gBPr2RAA#&6&#^: Ff@NupZ`9L#^: fJ9Lg`,Nu&y^: #k g#^:(@Nu0@H@@gU@k,g ^0`^ ` ^1c ` ^"X0gHR@@"D#0#"c0g! HR@#`zvgCGGA^ pp,08gH F gF g&& ] m&feHUKa*_Nup*`p-`p.` p/`p+`p,`& fRHPa&"_HUa6RLa*_HSy|ZaLNuHSa - fH$_Nu y^:X^>oN^>nn#^:BRy|ZEHRK"y^: 9^> nN 9^> c2$""" "v eC Cg\Ukxg8JBk^20"#^:g  f`  f&_NuJBk^ a" `JBk^"2aB`JBj^H f"HQHP0(N$W$RNH2Q  _"_$X4BPY"2gHRB]%(\$@$2g@]e$HQ/0NB$_$RS@H2Q"_L` 1A$BHRA%L`p\B9L`"p^`#^6^:p]`a b6J9Lf 9ZLg 9[LgB9L(yL Ff(yLNuv eCֹ^" C/g y^:^6c> k `g& @gJf,Y^:`Jf aT` ^: ^:`fDJ(_B9LNu((@((?<NN.?<NNX LA HA HNua aa -Fga`Hp3da SN"X0 @e024EH$Jydk Bb5B5A6CC5CK5C8+:+AdB0000Dk~Ekz00Ad<:>:SFSGFn`Gn\DDk0BhDEk1EBh Fchh Gchh0hb&0hbpmrt#0#4`ϠNu _pNBaaaaa/a4>+<+:+8+&DbFEbGAdHP@dAdBD0ƞE03dAFC&000FF22N23BRG0@\@ _NB"2#`2a @0<}NB&IaNa @&XaH`az?<NNT @"K <}Nu @HPa^ _"X0 @Jg8zf:HPEJH LppJ`$_44&b'JJBNHD'BNNuTpNup d@Tй^ @"X PfXLNupN z&"z2gB` zBp( g;j `` $&( "A2;N,PX2P,(r /` f"_#Hѩ` f@"_!I` f"_#Hѩ` g`/`j f"_#Hѩ` f"_!IE#J`: f&"_#Hѩ(g|`|` f"_2(if()g AdE#JE!J`  g  ft"_E#J`  fd"_E#J/ ` g g g f /`lHz`"Hz`Hz`Hz`Hz` Hz`Hz#]`tgB"#] g0 g0 g0 g0 g0 g0 +g0A`.X`zHz`"Hz`Hz`Hz`HzM` Hzp`HzAa" _aJf~NuH lHz``Hz`XJfHPr((( eA(ҁҁ"zpJf# Fgpѱ`T +fX`DHzM``8r(` r(A("zJf>"ёEXJg +fp`NqEXJg +f`Hz`Hz` +gJgHz`|Hz`trHPTgAGGCt"qpJf # _` _Hz`6 zFp( g -g g`~Nu (e`|vCgCֺ*"C&"CgijgHPbH~t( g(  g* +g .g±e _JgBHzc`R`S`Sj`vCgCֺа"C&"CgP~t) g,  g* +g .g g`JgBHz`*R`Sj`Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GFA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GFA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich |Fatal, For oder LocaldGFA-BASIC Version 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler[1][Wollen Sie den Interpreter|wirklich verlassen?][Ja|Nein][1][Programmende][Return][2][Programmstop?][Stop|Cont][2][Druckerlisting?][Ja|Nein][2][NEW - Programm Lschen?][Ja|Nein]Mll - Editor FehlerWhile ohne WendRepeat ohne UntilDo ohne LoopFor ohne nextWend ohne WhileUntil ohne RepeatLoop ohne DoNext ohne ForIf ohne EndifEndif ohne IfElse ohne IfElse ohne EndifExit ohne SchleifeProcedure ohne ReturnProcedure in SchleifeProcedure doppelt definiertReturn ohne ProcedureMarke doppelt definiertLocal nur in ProcedureLocal nicht in SchleifeFunction doppelt definiertGoto in/aus For-Next oder ProcedureResume in For-Next-SchleifeResume ohne ProcedurejH lSyntax FehlerjH lZeile zu langVFb[3][\"& 6     B2p\ x~ 4*"t:< 2X00FB^  "  < T2&$"F"* &$ L&8@h24&"* &lJ"$,(:$P X>   x@& V4 j  @*JLr &:z$J( (.(F < Zt"N\"`  @*(<,8L*(j<,( @<    4^> 6 X:dH.( Z.  t..  tPENDEL PRG t CdPENDEL TXT t `cH\Rp` Efv*oM!@ m HPHUBg?<JNA(m)m -\:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNHz2?< NA\pdAxr0XQ)K\NN2222222JrBjNuHz?<&NN\NCAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr N9lNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a60Gg RGj`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuN"pNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|6  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.6JgtBn6Nupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuHn0r$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&9@^9A`9Ab~`$aJf,H@ Kg Mg Pg Hf~`BSGj>RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HN`LNu0,^2,`NXzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(N>ldeS@f lbfSl`9Ab9FdNupapqr`p`p`pNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N|  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX _b@gGHpp 0f NuGNp| @"l`Yd&-KNNz"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HRDD%H`N2N\pNHPpN"_NDHPpN"_NDCNHmpN"_NDHPpN"_NDCNHmpN"_NDHP <N"_NDHPpN"_NDHP <N"_NDHPpN"_NDHP <?N"_NDCNHmpN"_NDHP <N"_NDHPpN"_NDHP <N"_NDHPpN"_NDHP <N"_NDCNA 0 <r$<ANHmpN"_NDHP <N"_NDCNNN`NqNqHmpN"_NDHP <N"_NDHPpN"_NDHP <N"_NDHPpN"_NDHP <N"_NDCNHmpN"_NDHP <?N"_NDHPpN"_NDHP <N"_NDHPpN"_NDHP <N"_NDHPpN"_NDHPpN"_NDCNACNACNAC NpNZN2pNpNpN p Nlpd"<NhNb P E N D E L !4Nf <"<NhNb -------------4NfA 0 <r$<ANN"NZNN`NqNqN"N| <NNNNn 1988 by Frank KarettaNZN"NZN"NZN"NZN"NZN"NnD Drehpendel: - freie gedmpfte Schwingung (1)NZN"NnD - erzwungene Schwingung (2)NZN"NZN"NnD Lineare Oszillatorenkette: - zwei Oszillatoren (3)NZN"NnD (ungedmpft) - drei Oszillatoren (4)NZN"NZN"NnD Ende (5)NZNNAN0ANzNpJBgp/AN&<x*<NpJBgp$VHgN'N`AN&<x*<NZJBfN("N2NN2AN~NZ*>TN0WNN$NN2A 0 <r$<ANN"NZNN`NqNqN"Nn0 Das gleiche nochmal (1)NZN"NZN"Nn0 Neue Parameter (2)NZN"NZN"Nn0 Alle Eingaben neu (3)NZN"NZN"Nn0 Zum Menue (4)NZNNA N0A NzNpJBgp/A N&<x*<NpJBgp$VHgN)N`N2NNN2N"NZN"NZN"NZN"N| Freie gedmpfte Schwingung:NZN"N| ---------------------------NZN"NZN"NZN"N|K DGL: v'' + r*v' + w0^2*v = 0 => 1. Schwingfall : w0 > |r/2|4NZN"N|K 2. Aperiodischer Grenzfall: w0 = |r/2|4NZN"N|K 3. Kriechfall : w0 < |r/2|4NZN"NZN"NZN"NZN"N|/ Eingaben (nur als relative Werte anzusehen!):aNZN"NZN"N|= Kreisfrequenz (der ungedmpften Schwingung): w0= PnN>AN0ANAN0N"NZN"N|= Dmpfungskonstante : r= PnN>AN0AN&<x*<NHANvN2&<x*<NL8N~AN0ANzNJBfN-0NN-^ANzNZJBfN-VNN3N-^NN8hN2N"NZN"NZN"NZN"Nn Schwingfall:NZN"Nn ------------NZN"NZN"NZN"N|M Lsung der DGL: v(t) = A*exp(-r/2*t)*sin(w*t+z) mit w=sqr(w0^2-(r/2)^2).!NZN"NZN"NZN"Nn< Parameter (jeweils in Vielfachen von Pi): Amplitude A=PnN>A$N0C$A* 0NHA$NNdA$N0N"Nn< Phasenwinkel z=PnN>A0N0C0A6 0NHA0NNdA0N0N"NZN"NZN"N| Start und Stop mit (s). NZNC&NHm&psN"_N:pJBgp/Hm&pSN"_N:pJBgp$VHgN/N`N2ANN ANZN"N| w=-ANZN"N| r=-AN>NZN"N| A=-A*N>N|*Pi4NZN"N| z=-A6N>N|*Pi4NZBg?<?<?<~N?<>Bg?<>?<~N <"<>Nh <NBmFANBvN2ABNNdNA$NNdHABNALN2N"NZN"NZN"NZN"Nn Aperiodischer Grenzfall:NZN"Nn ------------------------NZN"NZN"NZN"N|/ Lsung der DGL: v(t) = (A*t+B)*exp(-r/2*t)4NZN"NZN"NZN"N|/ Parameter (jeweils in Vielfachen von Pi): A=4PnN>A$N0C$A* 0NHA$NNdA$N0N"N|/ B=4PnN>AZN0CZA` 0NHAZNNdAZN0N"NZN"NZN"N| Start und Stop mit (s). NZNC&NHm&psN"_N:pJBgp/Hm&pSN"_N:pJBgp$VHgN56N`N2N2N"NZN"Nn Aperiodischer Grenzfall:NZN"Nn ------------------------NZN"N| w0=-AN>NZN"N| r=-AN>NZN"N| A=-A*N>N|*Pi-NZN"N| B=-A`N>N|*Pi-NZBg?<?<?<~N?<>Bg?<>?<~N <"<>Nh <NBmFABNA$NNdAZNNHANBvN2ABNNdNL8NdAHN0AHNN&<x*<Nd&<x*<N~ANN0AHNN&<x*<Nd&<x*<NATN0NHmANN/ATN" _NABN&<n8<*<NABN0NC&NHm&psN"_N:pJBgp/Hm&pSN"_N:pJBgp$VHgN7N`ANN2A(PN|A N&<x*<NZJBfN8NN56A N&<x*<NZJBfN8.NN3A N&<x*<NZJBfN8`NN*N8hNN>LN2N"NZN"NZN"NZN"N| Kriechfall:4NZN"N| -----------4NZN"NZN"NZN"N|? Lsung der DGL: v(t) = exp(-r/2*t)*(A*exp(W*t)+B*exp(-W*T))4NZN"NZN"N|- mit W = sqr((r/2)^2-w0^2)(NZN"NZN"NZN"Nn0 Parameter (jeweils in Vielfachen von Pi): A=PnN>A$N0C$A* 0NHA$NNdA$N0N"Nn0 B=PnN>AZN0CZA` 0NHAZNNdAZN0N"NZN"NZN"N| Start und Stop mit (s). NZNC&NHm&psN"_N:pJBgp/Hm&pSN"_N:pJBgp$VHgN:N`N2N2ANBN ANZN"N| r=-AN>NZN"N| W=-ANZN"N| A=-A*N>N|*Pi4NZN"N| B=-A`N>N|*Pi4NZBg?<?<?<~N?<>Bg?<>?<~N <"<>Nh <NBmFANBvN2ABNNdNHABNA NN8hA N&<x*<NZJBfN>LNN*NNN2N"NZN"NZN"NZN"N|% Erzwungene (gedmpfte) Schwingung:NZN"N|% ----------------------------------NZN"NZN"NZN"Nn, DGL: v'' + r*v' + w0^2*v = f*sin(w*t) NZN"NZN"NZN"NZN"Nn0 Eingaben (nur als relative Werte anzusehen!):NZN"NZN"NnB Eigenkreisfrequenz (der ungedmpften Schwingung): w0=PnN>AN0ANAN0N"NZN"NnB Dmpfungskonstante : r=PnN>AN0ANAN0AN&<x*<NHAN&<x*<NvN2L8N~AfN0AfNzNJBfNANV nix - keine Resonanz (r zu gro)C,NNAAfNN NC,NN"NZN"NnB Amplitude der Anregung (in Vielfachen von Pi) : f=PnN>AlN0AlNAlN0ClAr 0NHAlNNdAlN0N2N"NZN"NZN"NZN"N|C Die stationre Lsung der DGL lautet: v(t) = A(w)*sin(w*t+z(w))!NZN"NZN"NZN"Nn, Die Einschwingphase wird nicht simuliert!NZN"NZN"NZN"N|- Resonanzkreisfrequenz wr=!A,NNNZN"NZN"N|- Parameter: Kreisfrequenz der Anregung w=!PnN>Aw0: w=PnN>ANZN"N| wr=-A,NNNZN"N| r=-AN>NZN"N| f=-ArN>N|*Pi-NZN"Nn8 Anregung:NZN"N| w= ANZN"N| A= A*N>N|*Pi NZN"N| z= A6N>N|*Pi NZ?<Bg?<?<i~N?<?<?<?<~NBg?<?<?<~N <"<Nh <N <"<Nhp3NBmFABNATNN$N2A 0 <r$<ANN"NZNN`NqNqN"Nn. Resonanzkreisfrequenz : wr=A,NNNZN"NZN"Nn. Alte Kreisfrequenz der Anregung: w=ANZN"NZN"Nn. Neue Kreisfrequenz der Anregung: w=PnN>Aw0: w=4PnN>AA퀢N0A퀢NA퀢N0N"NZN"N|9 Kopplungsfederkonstante : Dk=%PnN>A퀨N0A퀨NA퀨N0N2N"NZN"NZN"NZN"NZN"N| Parameter:eNZN"NZN"NZN"NZN"NnD Amplituden der 1. und 2. Normalschwingung (kleiner als 8) : A1=PnN>A*N0N"NnD A2=PnN>A퀮N0N"NZN"Nn. Phasenwinkel der 1. und 2. NormalschwingungNZN"NnD (in Vielfachen von Pi) : v1=PnN>AxN0N"NnD v2=PnN>A~N0CxA퀴 0NHAxNNdAxN0C~A퀺 0NHA~NNdA~N0N"NZN"NZN"Nn Start und Stop mit (s).NZNC&NHm&psN"_N:pJBgp/Hm&pSN"_N:pJBgp$VHgNSfN`N2N"NZN"N| De=aA퀢N>NZN"N| Dk=aA퀨N>NZN"NZN"N| A1=aA*N>NZN"N| A2=aA퀮N>NZN"NZN"N| v1=aA퀴N>N|*PiNZN"N| v2=aA퀺N>N|*PiNZ?<Bg?<?<~N?<Bg?<?<~NBg?<?<?<~NA퀢NN AN0A퀨NN*A퀢NNN AN0BmFABNANNdAxNNNAN0A*N&<x*<NdANNdA퀄N0A*N&<x*<NdANNdA퀊N0ABNANNdA~NNNAN0A퀮N&<x*<NdANNdA퀐N0A퀮NB&<x*<NdANNdA퀖N0A퀐NA퀄NN&<x*<NANN0A퀖NA퀊NN&<x*<NATN0NANANHmANN/ <" _NHmATN/ <" _NABN&<ě8AN0ANAN0N2N"NZN"NZN"NZN"N| Parameter:aNZN"NZN"NZN"NnF Amplituden der 1.,2. und 3. Normalschwingung (kleiner als 4): A1=PnN>A*N0N"NnF A2=PnN>A퀮N0N"NnF A3=PnN>AN0N"NZN"N|7 Phasenwinkel der 1.,2. und 3. Normalschwingung NZN"NnF (in Vielfachen von Pi) : v1=PnN>AxN0N"NnF v2=PnN>A~N0N"NnF v3=PnN>AN0CxA퀴 0NHAxNNdAxN0C~A퀺 0NHA~NNdA~N0CA 0NHANNdAN0N"NZN"NZN"Nn Start und Stop mit (s).NZNC&NHm&psN"_N:pJBgp/Hm&pSN"_N:pJBgp$VHgN]N`N2N"NZN"N| D=aAN>NZN"NZN"N| A1=aA*N>NZN"N| A2=aA퀮N>NZN"N| A3=aAN>NZN"NZN"N| v1=aA퀴N>N|*PiNZN"N| v2=aA퀺N>N|*PiNZN"N| v3=aAN>N|*PiNZ?<Bg?<?<~N?<?Bg?<??<~N?<Bg?<?<~NBg?<?<?<~N <r$<N A4FH,,xP,,'(8N($$0($$l($$4Č$($H ($$z(($$ Frank Karetta Kurt-Schumacher-Ring 21 3320 Salzgitter 1 05341/54635 "Anleitung" zu P E N D E L ! Allgemeines: - Den gewnschten Menuepunkt erreicht man durch einfaches Drcken der zum Menuepunkt gehrenden Zahl (keine Maus!). - Die Zahleneingaben fr die Parameter der Schwingungen erfolgen mit einem normalen INPUT-Befehl, d.h. sie mssen mit RETURN besttigt werden; drckt man RETURN ohne Zahleneingabe oder falls man (versehentlich) einen Buchstaben eingetippt hat, so wird die Eingabe wiederholt. - Fr die Eingaben sind "kleine" Zahlen sinnvoll - am besten probiert man erstmal Werte zwischen 0 und 10 aus. - Ansonsten erklrt sich die Bedienung von selbst. Zur Simulation: - Zur Simulation der einzelnen Schwingungen werden die Lsungen der entsprechenden DGL'n benutzt (z.T. im Programm angegeben). - Von den Zahleneingaben, die die DGL'n betreffen, und von den Feder- konstanten der linaren Ketten wird jeweils der Betrag gebildet (Aus- nahme: die Dmpfungskonstante r bei der freien gedmpften Schwin- gung). Nicht davon betroffen sind die Parameter (z.B. Amplituden und Phasenwinkel). Bem.: Fr r<0 sind die Bezeichnunge "Aperiodischer Grenzfall" bzw. "Kriechfall" nicht mehr korrekt. Beim Schwingfall erhlt man eine Schwingung mit exponentiell anwachsender Amplitude ("negative Dmpfung"). - Bei den beiden Oszillatorenketten sind jeweils Maximalamplituden angegeben. Das hat einen rein physikalischen Grund: es soll ver- mieden werden, da sich die Kugeln durchdringen, was physikalisch unsinnig wre. Wenn aber z.B. nur eine Eigenschwingung eine Ampli- tude ungleich 0 haben soll, so kann man auch entsprechen grere Werte benutzen. Am besten probiert man selber aus was noch "gut geht" und was nicht. Nun wnsche ich noch viel Spa beim P E N D E L N ! ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 RH Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (zomer 1988) al zo'n drie honderd disks. Daarop vindt u programma's op elk gebied, van tekstverwerker en database tot de leukste spelletjes, de fraaiste tekenprogramma's en de handigste utilities. Ook bevat onze bibliotheek een speciale afdeling voor public domain disks met Macintosh software, die te gebruiken zijn onder de ALADIN emulator. Deze MAC-PD serie bevat tot nu toe ongeveer vijfendertig disks. ******************************************************************** U vindt in het twee maandelijks tijdschrift "ST" (Onafhankelijk tijd- schrift van en voor gebruikers van Atari ST computers) een overzicht en een bespreking van de inhoud van de nieuwe public-domain diskettes. Dit tijdschrift bevat tevens een bestelkaart zodat U vlot over de software kunt beschikken. De Stichting ST geeft ook een speciale PD catalogus disk uit. ************** Deze public domain disk is geproduceerd en gedistribueerd door: Stichting ST afd. Software Bakkersteeg 9A 2311 RH LEIDEN ************** Ondanks onze controle komt het af en toe voor dat een diskje niet goed is gecopieerd.Mocht U dit overkomen, aarzel dan niet en stuur de defecte disk aan ons terug. U krijgt dan direct een vervangende disk toegestuurd. ************************************************************************ Teneinde het voor ons mogelijk te maken om productie fouten op te sporen en vervolgens in de toekomst te vermijden, zijn alle disks, geproduceerd door de Stichting ST, voorzien van een groen productie nummer. ************************************************************************