)p A100:20: RAUB-BUETETIERE-ZYKLUS HBHO:VBVE:UW11HG:P13.14159:MT0:TM0:IV255 IT0:RA0:RB0:RC0:RD0:PA0:PB0:PC0:PD0 CO$(8) I0 8:CO$(I):I&!100:9040:SR$"RAUB-BEUTETIERE-ZYKLUS"I!$VE2:HO(HB211)3:110:150W!.::9040!8RGRARB:RKRARB:PGPAPB:PKPAPB:PR1!BVE6 14!LHOHB25:110:CO$(VE6)!VVE!`:9040!jVE18:HO0:110!t"Waehle mittels der Cursortasten"$"~"und schliesse mit Return ab !"0":9040["VE6:HOHB28:SR$CO$(VE6):110:150"200:((IN28)(IN31))(IN13)1180"IN13 1280"SR$" "CO$(VE6)" ":110:SR$"(IN30)(VE14)VE5"IN30 VEVE1#(IN31)(VE6)VE15#IN31 VEVE1+#IN28 VE6=#IN29 VE14_#SR$CO$(VE6):110:150:1180v#VE14 100:950# (VE8)(IV0)(VE13)1330#HO(HB217):VEVB2:110#SR$"Du hast noch nichts eingegeben!":150#(9110:1050'$2VE5 2010,3010,4010,5010,6010,7010,8010,8510E$<(IN83)(VEVB) 20000O$F1050`$ ERKLAERUNG$SR$"BEUTE-RAUBTIER-ZYKLUS":9010$::"Durch den Wissenschaftler Volterra"$"wurde, angeregt durch den Biologen d'Ancona,"%"im Jahre 1931 ein wissenschaftliches Modell"I%"der Wechselwirkung zwischen Beute- und"g% "Raubtieren formuliert."%"Der Ausgangspunkt ist, dass die Zunahme"% "des Anteiles an Raubtieren dafuer sorgt, dass"%*"auch mehr Beutetiere gefangen werden.""&4"Dadurch nehmen aber die Beutetiere"O&>"anteilig ab, sodass es weniger Futter"~&H"fuer die Raubtiere gibt und sie dadurch"&R"anteilig abnehmen. Hierdurch nehmen"&\"die Raubtiere wieder anteilig zu, es gibt"'f"wieder genuegend Futter wodurch der"8'p"Anteil Raubtiere wieder zunimmt, usw.":9110l'z100:"Natuerlich wurden viele Einwaende gegen"'"dieses Modell vorgebracht. So soll es vielfach"'"sein,dass Raubtiere von mehr als einer"'"Sorte Beutetieren leben. Weiter soll"%("das Klima Einfluss haben koennen."4(9110:100^("Als aber keine Rechnung mit diesen"("Faktoren geholfen hat, konnte dieser"("Zyklus beruhigt wissenschaftlich durch"("eine Funktion fuer den Anteil an")"Beute- und Raubtieren aufgestellt werden."9)"Diese Funktion lautet wie folgt:"Z)" P(t)=A+B*sin C(t+D).")"Dabei stellt 't' die Zeit dar.":9110) 100:"Mit diesem Programm kannst du selbst") "die Funktion zusammenstellen und dann"* "grafisch darstellen."**$ :"Du kannst ein Screendumpprogramm"S*. "platzieren ab Zeilennummer 20000."*8 "Wenn du 'S' drueckst wenn eine Grafik"*B "gezeichnet ist, erhaeltst du"*L "einen Ausdruck auf Papier."*V :"Es ist ein Demo dabei, so dass"+` "du sehen kannst, was gemeint ist.":A+j "VIEL SPASS MIT DIESEM PROGRAMM !"M+t 9110:\+ EINGABENy+ SR$"EINGABE":9010:IV0+ :"Die Raub-Beutetierfunktion hat die"+ "Form: A+B*sin C(t+D), (t ist die Zeit)."+ :"Gebe die Parameter fuer die Raub-", "tierfunktion ein.":, 3130:RAPA:RBPB:RCPC:RDPDf, :"Gebe die Parameter fuer die Beute-", "tierfunktion ein.":3130, :"Eingabe der minimalen Zeit: ";:MT, "Eingabe der maximalenZeit: ";:TM-& "Eingabe des Zeitintervalls: ";:IT-0 -: :"A=";:PA'-D "B=";:PBA-N "C=";:PC$:PC(PC$)`-X I1 (PC$):H$(PC$,I,2)-b (H$"PI")(H$"pi")PCPCP1-l I-v "D=";:PD:- ABAENDERN-SR$"ABAENDERN":9010-:"Was wilst du aendern:" .:"Von den Raubtierfunktionen:":8." 1. A (nun";RA;")":" 2. B (nun";RB;")"f." 3. C (nun";RC;")":" 4. D (nun";RD;")".:"Von den Beutetierfunktionen:":." 5. A (nun";PA;")":" 6. B (nun";PB;")"." 7. C (nun";PC;")":" 8. D (nun";PD;")"/:" 9. Die minimale Zeit (nun";MT;")">/"10. Die maximale Zeit (nun";TM;")"g/"11. Das Zeidintervall (nun";IT;")"/:"Treffe deine Wahl: ";:KE/"KE0 /,(KE1)(KE11)4120/6KE8 4170/@KE 4180,4210,4240,4300,4180,4210,4240,4300 0JKE8 4330,4340,4350%0T"Gib das neue A:";:H;0^KE1 RAH:4360J0hPAH:4360e0r"Gib das neue B:";:H{0|KE2 RBH:43600PBH:43600"Gib das neue C:";:H$0H(H$):I1 (H$):PC$(H$,I,2)0(PC$"PI")(PC$"pi")HHP10I 1KE3 RCH:43601PCH:436051"Gib das neue D:";:HK1KE4 RDH:4360Z1PDH:43601"Gib die neue minimale t:";:MT:43601"Gib die neue maximale t:";:TM:43601"Gib das neue Zeitintervall";:IT1HO0:VEVB:1102"Wilst du noch mehr aendern (J/N)";:210*2IN74 401002&<2 TAFEL^2SR$"TAFEL":9010:PR2 51302:"Soll die Ausgabe auf den Drucker (J/N)";2210:IN78 PR0:51302SR$"Die Raubtierfunktion ist: ":3502H1RA:H2RB:H3RC:H4RD:5080"3SR$"Die Beutetierfunktion ist: ":350J3H1PA:H2PB:H3PC:H4PD:5080:5130d3SRH1:300:H$SR$"+"3SRH2:300:H$H$SR$"*sin ":SRH3:3003H$H$SR$"(t":H40 H$H$"+"3SRH4:300:H$H$SR$")":SR$H$3350:360:3 HO0:VE2:11014PR$" Zeit Beutetier Raubtier ":SR$PR$L4PR1 360:350:360{4(SR$:SP$" ----------------------------"42SR$SP$:PR1 350:3604<SR$:RT24FTMT TM IT4PSRT:CT4:CN1:310:H$" "SR$" "4Z9140:CN0:CT6!5dRTRT1:(RTVB1)(PR1)5240?5n9110:100:PR$:SP$:RT1a5xSRX:310:H$H$SR$:SRY:310}5SR$H$" "SR$:SR$5PR1 350:3605T59110:5p PARAMETER5z600:CN05HO.01:VE0:620:VE.91:6305HOUW:630 6VE0 .91 .182#6HO0:620:HO.02:630+6VE@6HOUW .01 .1^6VE.903:620:VE.917:630f6HO6SR$"0":VE.94:HO0:6506SRRG(.1RG):300:HO.02:VE0:6506SRPG(.1PG):300:HO1(SR$)326VE.86:650:TMT TM IT79140:HX(PG.1PG):V1Y(RG.1RG)E7TMT HOH:VEV:620:X1H:Y1V:6170s7HOX1:VEY1:620:HOH:VEV:630:X1H:Y1Vz7T7$SR$"Beutetier":HO.75:VE.94:6507.T1 878SR$("Raubtier",T,1):VET25.05:HO.037B650:T7L9180:7X GRAFIK 8b600:CN0.8lVE0:HO.01:620:VE.91:630I8vHO.989:630:VE0:630^8VE0 .91 .185x8HO0:620:HO.02:6308HO.98:620:HOUW:6308VE8HO.01 1 1((TMMT)IT)8VE.903:620:VE.917:6308HO9SRMT:300:HO0:VE.94:650#9SRTM:300:HO1(SR$)32:650F9SRPG:300:HO.02:VE0.02:650a9VE.87:SRPK:300:6509SRRG:300:VE.02:HO1(SR$)32:6509SRRK:300:VE.87:HO1(SR$)32:6509TMT TM IT9 H(TMT)TM(TMMT)(TM.98).0199140: V.91(XPK)PG(PGPK)(PG.91)E:*TMT VEV:HOH:620:Y1V:X1H:7230n:4HOX1:VEY1:620:HOH:VEV:630:Y1V:>TMT10IT SR$"B":650:HV.91(YRK)RG(RGRK)(RG.91):RTMT VEV:620:Y2V:7270:\HOX1:VEY2:620:HOH:VEV:630:Y2V:X1H;fTMT7IT SR$"R":650#;pT/;z9180:A;@ KOMBINATIONO;J600:CN0n;THO.5:VE0:620:VEUW:630;^HOUW:VE.5:620:HO0:630;hVE0 1 .0999;rHO.495:620:HO.507:630:VE;|HO0 1 .0999;VE.495:620:VE.505:630:HO"<SRRG:300:HO.5(SR$)32:VE0:650M<SRRK:300:HO.5(SR$)32:VE.45:650h<SRPK:300:HO.51:650<SRPG:300:HO1(SR$)32:650<SRMT:300:HO0:VE.52:650<HO.5(SR$)32:650<SRTM:300:HO.5(SR$)32:650 =VE.96:HO.5((SR$)1)32:650-=SR$"Zeit":HO.2:VE.52:650K=I1 4:SR$("Zeit",I,1)j=VEI.04.6:HO.46:650:I=SR$"Beute":HO.7:VE.52:650= I1 4:SR$("Raub",I,1)= VEI.04.1:HO.46:650:I= N1:IP(((TMMT)IT4)):AP0=& TMT TM IT>0 9140->: V(TMT)TM(TMMT)(TM.485).51S>D H(XPK)PG(PGPK)(PG.485).51}>N TMT VEV:HOH:620:X1H:Y1V:8290>X HOX1:VEY1:620:HOH:VEV:630:X1H:Y1V>b H(TMT)TM(TMMT)(TM.49).01>l V.49(YRK)RG(RGRK)(RG.49)?v TMT VEV:HOH:620:X2H:Y2V:8330M? HOX2:VEY2:620:HOH:VEV:630:X2H:Y2Vs? H(XPK)PG(PGPK)(PG.485).51? V.49(YRK)RG(RGRK)(RG.49)? TMT HOH:VEV:620:X3H:Y3V:8390? HOX3:VEY3:620:HOH:VEV:630:X3H:Y3V@ APAP1:(APIPN)(N3)8390/@ N 9210,9410,9610:NN16@ TB@ 9180:M@4! DEMOc@>!:I1 9:IN$:Iw@H!PA:PB:PC:PD@R!RA:RB:RC:RD@\!MT:TM:IT@f!RGRARB:RKRARB:PGPAPB:PKPAPB:PR2@p!I1 4:I 5010,6010,7010,8010@z!I:IV0:A(# ZENTRIEREN, REVERS DRUCKEN?A2#100:VE0:HO(HB2(SR$)2)3QA<#110:150::eAF# LINIEN ZIEHEN}AP#I1 HB:"-";:I:A# TASTEA#VEVB:HOHB7:110:"";A#210:A# BEUTETIEREFUNKTIONA#XPAPB(PC(TPD))B# RAUBTIEREFUNKTIONB#YRARB(RC(TRD)):0B# TASTE HIERHERUB#SV15:SD1:SP70:400:SP90:400`B#210:B# DREIECK (PUNKT NACH OBEN)B#F1X1:F2Y1:9300B$F1X2:F2Y2:9300B$F1X3:F2Y3:9300B$9810:BT$HOF1.015:VEF2.01:620:HOHO.03:630$C^$HOHO.015:VEVE.03:630:HOHO.015HCh$VEVE.03:630:HOHO.03:630:WC$ VIERKANTmC$F1X1:F2Y1:9500C$F1X2:F2Y2:9500C$F1X3:F2Y3:9500C$9810:C%HOF1.01:VEF2.015:620:HOHO.02C&%630:VEVE.03:630:HOHO.02 D0%630:VEVE.03:630:*D% DREIECK (PUNKT NACH UNTEN)@D%F1X1:F2Y1:9700VD%F1X2:F2Y2:9700lD%F1X3:F2Y3:9700xD%9810:D%HOF1.015:VEF2.015:620:HOHO.03D%630:HOHO.015:VEVE.03:630D%HOHO.015:VEVE.03:630:DH& PUNKTLINIENER&HOX1:VEY1 Y2 2VGE\&620:VE:Ef&VEY2:HOX2 X3 2HGGEp&620:HOMEz&SE N}E*N ***********************************E4N HIER KANNST DU EIN SCREENDUMPPROGRAMME>N EINBAUEN. WENN EIN GRAFIKPROGRAMMFHN GEZEICHNET IST UND DU DRUECKST 'S' SPRINGTFRN DAS PROGRAMM HIERHER.HF\N ***********************************NFfNFa"Erklaerung","Eingaben","Aenderungen","Tafel"Fa"Parameter","Grafik","Combinationen"Fa"Demo","Ende"Fa DATEN FUER DIE DEMO. DU KANNST DIESE DATENGa NACH EIGENEN BDUERFNISSEN AENDERN.6Ga NACHFOLGEND STEHT HIER:eGa A, B, C UND D VON DER BEUTETIERFUNKTION.Ga A, B, C UND D VON DER RAUBTIERFUNKTION.Ga MINIMALE ZEIT, MAXIMALE ZEIT, ZEITINTERVALL.Gb3400,2200,0.2618,-19G b240,160,0.2618,-4Hb0,24,1'H} *****************************LH } DURCH RONALD VAN VUGT (PA3EAH)RH}uH} POSTBUS 160, 5580 AD, WAALRE{H(}H2} MAI, 1987, V1.2H<} *****************************HF} TROS-RADIO DD 870722Hd}Hn} #####################Ix} UEBERSETZT DURCH :(I} BERND SCHNEIDERCI} DR.-W.-KUELZ-STR. 55^I} BRAND-ERBISDORF,9230vI} AUF > MRB Z1013 <I} +++ OSTERN 1990 +++I} #####################I}I} Erstausstrahlung: Deutschlandsender KulturI}-spezial 901212 +++ OSTERN 1990 +++I} #####################I}I} Erstausstrahlu