途中ですが、中間報告です突然変異考慮して...

途中ですが、中間報告です　突然変異考慮していません。
! ＝素数ゼミのシナリオ＝

OPTION BASE 0
OPTION ARITHMETIC DECIMAL_HIGH
DIM Cimi_N(20),KIL_N(20) !その年のＮ年セミ・寄生虫の個体数
DIM Cimi_N_Egg_Sleep(20,20) !眠っているＮ年セミの数 Cimi_N_Egg_Sleep(残り冬眠年数,年ゼミ)
DIM KIL_N_Egg_Sleep(20,20) !眠っているＮ年寄生虫の数 KIL_N_Egg_Sleep(残り冬眠年数,年寄生虫)
DIM Cimi_N_Egg(20)
DIM KIL_N_Egg(20)

! 初期条件
! セミは、Mlt_cimi 個の卵を産む
! 寄生虫の増殖スピードは Mlt_KIL倍とする。
LET Mlt_cimi=50 !セミの卵
LET Mlt_KIL=100 !寄生虫の卵

PRINT "最初、セミは、１年セミと２年セミ・・・がいた。"
PRINT "そこへ１匹の寄生虫が現れた。"
LET Cimi_N(1)=0
LET Cimi_N(2)=0
LET Cimi_N(3)=10^8
LET Cimi_N(4)=10^8
LET Cimi_N(5)=10^8
LET Cimi_N(0)=Cimi_N(1)+Cimi_N(2)+Cimi_N(3)+Cimi_N(4)+Cimi_N(5)
LET KIL_N(1)=1
LET KIL_N(2)=1
LET KIL_N(3)=1
LET KIL_N(4)=0
LET KIL_N(5)=0
LET KIL_N(0)=KIL_N(1)+KIL_N(2)+KIL_N(3)+KIL_N(4)+KIL_N(5)

PRINT "■■■■■■■■■０年目■■■■■■■■■"
FOR I=1 TO 20
PRINT "発生した";I;"年ゼミ=";Cimi_N(I);"匹 ";STR$(I);"年寄生虫=";KIL_N(I);"匹"
NEXT I
PRINT "合計";Cimi_N(0);"のセミと";KIL_N(0);"の寄生虫が発生した"

! 寄生虫はセミを捕食し Mlt_KIL 倍に増えた
LET Cimi_Nokori=Cimi_N(0)-KIL_N(0)
LET KIL_Nokori=Mlt_KIL*KIL_N(0)
PRINT "KIL_Nokori=";KIL_Nokori

PRINT "初年 ";Cimi_Nokori;"匹が生き残った"
PRINT "初年 ";KIL_Nokori;"匹まで寄生虫が増加"
PRINT "生き残ったセミは、１匹が";Mlt_cimi;"個の卵を産んだ"
LET Cimi_Egg=Mlt_cimi*Cimi_Nokori
PRINT "セミの産んだ卵の数＝";Cimi_Egg

PRINT "これを元に冬眠するセミ・寄生虫を計算すると・・・"
!１年ゼミの卵の数は
LET Cimi_N_Egg_Sleep(1,1) =INT(Cimi_Egg*(Cimi_N(1)/Cimi_N(0)))
LET Cimi_N_Egg_Sleep(2,2) =INT(Cimi_Egg*(Cimi_N(2)/Cimi_N(0)))
LET Cimi_N_Egg_Sleep(3,3) =INT(Cimi_Egg*(Cimi_N(3)/Cimi_N(0)))
LET Cimi_N_Egg_Sleep(4,4) =INT(Cimi_Egg*(Cimi_N(4)/Cimi_N(0)))
LET Cimi_N_Egg_Sleep(5,5) =INT(Cimi_Egg*(Cimi_N(5)/Cimi_N(0)))

!寄生虫の数は
LET KIL_N_Egg_Sleep(1,1)=INT(KIL_Nokori*KIL_N(1)/KIL_N(0))
LET KIL_N_Egg_Sleep(2,2)=INT(KIL_Nokori*KIL_N(2)/KIL_N(0))
LET KIL_N_Egg_Sleep(3,3)=INT(KIL_Nokori*KIL_N(3)/KIL_N(0))
LET KIL_N_Egg_Sleep(4,4)=INT(KIL_Nokori*KIL_N(4)/KIL_N(0))
LET KIL_N_Egg_Sleep(5,5)=INT(KIL_Nokori*KIL_N(5)/KIL_N(0))

PRINT "１年セミ冬眠数=";Cimi_N_Egg_Sleep(1,1)
PRINT "２年セミ冬眠数=";Cimi_N_Egg_Sleep(2,2)
PRINT "３年セミ冬眠数=";Cimi_N_Egg_Sleep(3,3)
PRINT "４年セミ冬眠数=";Cimi_N_Egg_Sleep(4,4)
PRINT "５年セミ冬眠数=";Cimi_N_Egg_Sleep(5,5)
PRINT "１年寄生虫冬眠数=";KIL_N_Egg_Sleep(1,1)
PRINT "２年寄生虫冬眠数=";KIL_N_Egg_Sleep(2,2)
PRINT "３年寄生虫冬眠数=";KIL_N_Egg_Sleep(3,3)
PRINT "４年寄生虫冬眠数=";KIL_N_Egg_Sleep(4,4)
PRINT "５年寄生虫冬眠数=";KIL_N_Egg_Sleep(5,5)

CALL Under_Grand2 ! 土の中の状態

Re: ただいま自力でプログラムを作ってますので	返事を書くノートメニュー
会社員 <qiekrrepwd> 2007/12/29 06:50:22
途中ですが、中間報告です　突然変異考慮していません。 ! ＝素数ゼミのシナリオ＝ OPTION BASE 0 OPTION ARITHMETIC DECIMAL_HIGH DIM Cimi_N(20),KIL_N(20) !その年のＮ年セミ・寄生虫の個体数 DIM Cimi_N_Egg_Sleep(20,20) !眠っているＮ年セミの数 Cimi_N_Egg_Sleep(残り冬眠年数,年ゼミ) DIM KIL_N_Egg_Sleep(20,20) !眠っているＮ年寄生虫の数 KIL_N_Egg_Sleep(残り冬眠年数,年寄生虫) DIM Cimi_N_Egg(20) DIM KIL_N_Egg(20) ! 初期条件 ! セミは、Mlt_cimi 個の卵を産む ! 寄生虫の増殖スピードは Mlt_KIL倍とする。 LET Mlt_cimi=50 !セミの卵 LET Mlt_KIL=100 !寄生虫の卵 PRINT "最初、セミは、１年セミと２年セミ・・・がいた。" PRINT "そこへ１匹の寄生虫が現れた。" LET Cimi_N(1)=0 LET Cimi_N(2)=0 LET Cimi_N(3)=10^8 LET Cimi_N(4)=10^8 LET Cimi_N(5)=10^8 LET Cimi_N(0)=Cimi_N(1)+Cimi_N(2)+Cimi_N(3)+Cimi_N(4)+Cimi_N(5) LET KIL_N(1)=1 LET KIL_N(2)=1 LET KIL_N(3)=1 LET KIL_N(4)=0 LET KIL_N(5)=0 LET KIL_N(0)=KIL_N(1)+KIL_N(2)+KIL_N(3)+KIL_N(4)+KIL_N(5) PRINT "■■■■■■■■■０年目■■■■■■■■■" FOR I=1 TO 20 PRINT "発生した";I;"年ゼミ=";Cimi_N(I);"匹 ";STR$(I);"年寄生虫=";KIL_N(I);"匹" NEXT I PRINT "合計";Cimi_N(0);"のセミと";KIL_N(0);"の寄生虫が発生した" ! 寄生虫はセミを捕食し Mlt_KIL 倍に増えた LET Cimi_Nokori=Cimi_N(0)-KIL_N(0) LET KIL_Nokori=Mlt_KILKIL_N(0) PRINT "KIL_Nokori=";KIL_Nokori PRINT "初年 ";Cimi_Nokori;"匹が生き残った" PRINT "初年 ";KIL_Nokori;"匹まで寄生虫が増加" PRINT "生き残ったセミは、１匹が";Mlt_cimi;"個の卵を産んだ" LET Cimi_Egg=Mlt_cimiCimi_Nokori PRINT "セミの産んだ卵の数＝";Cimi_Egg PRINT "これを元に冬眠するセミ・寄生虫を計算すると・・・" !１年ゼミの卵の数は LET Cimi_N_Egg_Sleep(1,1) =INT(Cimi_Egg(Cimi_N(1)/Cimi_N(0))) LET Cimi_N_Egg_Sleep(2,2) =INT(Cimi_Egg(Cimi_N(2)/Cimi_N(0))) LET Cimi_N_Egg_Sleep(3,3) =INT(Cimi_Egg(Cimi_N(3)/Cimi_N(0))) LET Cimi_N_Egg_Sleep(4,4) =INT(Cimi_Egg(Cimi_N(4)/Cimi_N(0))) LET Cimi_N_Egg_Sleep(5,5) =INT(Cimi_Egg(Cimi_N(5)/Cimi_N(0))) !寄生虫の数は LET KIL_N_Egg_Sleep(1,1)=INT(KIL_NokoriKIL_N(1)/KIL_N(0)) LET KIL_N_Egg_Sleep(2,2)=INT(KIL_NokoriKIL_N(2)/KIL_N(0)) LET KIL_N_Egg_Sleep(3,3)=INT(KIL_NokoriKIL_N(3)/KIL_N(0)) LET KIL_N_Egg_Sleep(4,4)=INT(KIL_NokoriKIL_N(4)/KIL_N(0)) LET KIL_N_Egg_Sleep(5,5)=INT(KIL_NokoriKIL_N(5)/KIL_N(0)) PRINT "１年セミ冬眠数=";Cimi_N_Egg_Sleep(1,1) PRINT "２年セミ冬眠数=";Cimi_N_Egg_Sleep(2,2) PRINT "３年セミ冬眠数=";Cimi_N_Egg_Sleep(3,3) PRINT "４年セミ冬眠数=";Cimi_N_Egg_Sleep(4,4) PRINT "５年セミ冬眠数=";Cimi_N_Egg_Sleep(5,5) PRINT "１年寄生虫冬眠数=";KIL_N_Egg_Sleep(1,1) PRINT "２年寄生虫冬眠数=";KIL_N_Egg_Sleep(2,2) PRINT "３年寄生虫冬眠数=";KIL_N_Egg_Sleep(3,3) PRINT "４年寄生虫冬眠数=";KIL_N_Egg_Sleep(4,4) PRINT "５年寄生虫冬眠数=";KIL_N_Egg_Sleep(5,5) CALL Under_Grand2 ! 土の中の状態