restart: verhulst :=proc (r,x1,n) local k,x; x:=Vector(n); x[1]:=x1; for k from 1 to n-1 do x[k+1]:=r*x[k]*(1-x[k]); end do; return x; end proc: r:=3.0;

JCIjSSEiIg==

x:= verhulst(r,.5,100): k:=Vector(100,k->k);

LSZJJ1ZlY3Rvckc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYjSSdjb2x1bW5HRig2Iy9JJCVpZEdGKCIpQ1NPTA==

plot(k,x);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdgcTckJCIjNSEiIiQiIiYhIiI3JCQiIz8hIiIkIiN2ISIjNyQkIiNJISIiJCIlRGMhIiU3JCQiI1MhIiIkIilEIkdRKCEiKTckJCIjXSEiIiQiK3g4bSd6JiEjNTckJCIjZyEiIiQiKyY+KmY0dCEjNTckJCIjcSEiIiQiK21hcyoqZSEjNTckJCIjISkhIiIkIjEsKytGI1tyRCghIzs3JCQiIyEqISIiJCIra1hlcmYhIzU3JCQiJCsiISIiJCIxLCsrSXEhb0AoISM7NyQkIiQ1IiEiIiQiK3kqSGQtJyEjNTckJCIkPyIhIiIkIistTU8lPSghIzU3JCQiJEkiISIiJCIqJ3Bjb2chIio3JCQiJFMiISIiJCIrJ1JcdTooISM1NyQkIiRdIiEiIiQiMSoqKioqPmpCTzUnISM7NyQkIiRnIiEiIiQiMSwrK2xXZ01yISM7NyQkIiRxIiEiIiQiK04iUkk4JyEjNTckJCIkIT0hIiIkIjEqKioqKlJwbVs2KCEjOzckJCIkIT4hIiIkIitmOz9laCEjNTckJCIkKyMhIiIkIit3MWQoNCghIzU3JCQiJDUjISIiJCIreSJmKz0nISM1NyQkIiQ/IyEiIiQiKyo0UUEzKCEjNTckJCIkSSMhIiIkIiteYEcqPichIzU3JCQiJFMjISIiJCIrJFI5Jm9xISM1NyQkIiRdIyEiIiQiK2lXUDtpISM1NyQkIiRnIyEiIiQiMSwrK18qSGgwKCEjOzckJCIkcSMhIiIkIisoKSkpcEppISM1NyQkIiQhRyEiIiQiK2JgKFsvKCEjNTckJCIkIUghIiIkIjEqKioqKkhWWGJDJyEjOzckJCIkKyQhIiIkIit0XGVNcSEjNTckJCIkNSQhIiIkIisoPlIiZWkhIzU3JCQiJD8kISIiJCIrR2Q3RHEhIzU3JCQiJEkkISIiJCIxKioqKipcdGYncGkhIzs3JCQiJFMkISIiJCIxLCsrWCMqUTtxISM7NyQkIiRdJCEiIiQiK0RCRCFHJyEjNTckJCIkZyQhIiIkIisoPidHM3EhIzU3JCQiJHEkISIiJCIrbGYuIUgnISM1NyQkIiQhUSEiIiQiK2xAdStxISM1NyQkIiQhUiEiIiQiK1EjNCIqSCchIzU3JCQiJCslISIiJCIxLCsrYlhwJCpwISM7NyQkIiQ1JSEiIiQiKzBZYjJqISM1NyQkIiQ/JSEiIiQiKylHITQoKXAhIzU3JCQiJEklISIiJCIrYjtXOmohIzU3JCQiJFMlISIiJCIxLCsrdVIpMylwISM7NyQkIiRdJSEiIiQiKy8nSEdLJyEjNTckJCIkZyUhIiIkIitebC52cCEjNTckJCIkcSUhIiIkIisnPXAoSGohIzU3JCQiJCFbISIiJCIrdVRecHAhIzU3JCQiJCFcISIiJCIrdlRJT2ohIzU3JCQiJCsmISIiJCIrV3RHa3AhIzU3JCQiJDUmISIiJCIxKioqKip6Y3NDTSchIzs3JCQiJD8mISIiJCIqQUkkZnAhIio3JCQiJEkmISIiJCIrRnZJW2ohIzU3JCQiJFMmISIiJCIxKioqKipILz9ZJnAhIzs3JCQiJF0mISIiJCIxKioqKipwOVFRTichIzs3JCQiJGcmISIiJCIxLCsrIm9PLCZwISM7NyQkIiRxJiEiIiQiK3grNGZqISM1NyQkIiQhZSEiIiQiMSwrK1tBJ2UlcCEjOzckJCIkIWYhIiIkIitLZzNraiEjNTckJCIkKychIiIkIjEsKysieiF5VHAhIzs3JCQiJDUnISIiJCIrMmklKW9qISM1NyQkIiQ/JyEiIiQiKz0heXkkcCEjNTckJCIkSSchIiIkIitOJylRdGohIzU3JCQiJFMnISIiJCIrJjRUVCRwISM1NyQkIiRdJyEiIiQiK20lSHhQJyEjNTckJCIkZychIiIkIitjJWUwJHAhIzU3JCQiJHEnISIiJCIxKioqKipcQCQpPVEnISM7NyQkIiQhbyEiIiQiMSwrK0snPnIjcCEjOzckJCIkIXAhIiIkIit5SCdlUSchIzU3JCQiJCsoISIiJCIqOTpRI3AhIio3JCQiJDUoISIiJCIrI2YhbypRJyEjNTckJCIkPyghIiIkIjEsKytkamo/cCEjOzckJCIkSSghIiIkIismellMUichIzU3JCQiJFMoISIiJCIxLCsrNmFkPHAhIzs3JCQiJF0oISIiJCIraTgob1InISM1NyQkIiRnKCEiIiQiK0BeaTlwISM1NyQkIiRxKCEiIiQiKyQ+ai1TJyEjNTckJCIkIXkhIiIkIisoKil5PCJwISM1NyQkIiQheiEiIiQiK00vYC5rISM1NyQkIiQrKSEiIiQiKydwSSE0cCEjNTckJCIkNSkhIiIkIitUMG8xayEjNTckJCIkPykhIiIkIjEsKytjXFAxcCEjOzckJCIkSSkhIiIkIitmLnM0ayEjNTckJCIkUykhIiIkIithbCFRIXAhIzU3JCQiJF0pISIiJCIrIj1jRVQnISM1NyQkIiRnKSEiIiQiK2AySyxwISM1NyQkIiRxKSEiIiQiKz5RXDprISM1NyQkIiQhKSkhIiIkIit3SiIqKSpvISM1NyQkIiQhKikhIiIkIitFJ1EjPWshIzU3JCQiJCsqISIiJCIraCh6bCpvISM1NyQkIiQ1KiEiIiQiK2liKjNVJyEjNTckJCIkPyohIiIkIitVbkolKm8hIzU3JCQiJEkqISIiJCIrRSNwTVUnISM1NyQkIiRTKiEiIiQiMSwrKzUxNyMqbyEjOzckJCIkXSohIiIkIit6USdmVSchIzU3JCQiJGcqISIiJCIrMSIpKSoqKW8hIzU3JCQiJHEqISIiJCIrKVskUUdrISM1NyQkIiQhKSohIiIkIisjPTt6KW8hIzU3JCQiJCEqKiEiIiQiK1s8dElrISM1NyQkIiUrNSEiIiQiKykqPiFmKW8hIzUtJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkIiIhISIiJCIiISEiIi0lK0FYRVNMQUJFTFNHNiRRITYiUSE2Ii0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiJCFcISIiLSUpQk9VTkRTX1lHNiMkIiQ/IiEiIi0lLUJPVU5EU19XSURUSEc2IyQiJXFMISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJV1NISIiLSUpQ0hJTERSRU5HNiI=