/***********************************************************
chaos.c -- カオスとアトラクタ
***********************************************************/
#N88BASIC
Dim i As Long
Dim p,k

Input "比例定数: ",k
Input "初期値 : ", p

For i=1 To 101
Print p,

If (i Mod 4)= 0 Then Print Chr$(13)
p = p + k * p * (1 - p)
Next