Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
Tak to uz tak nejak funguje. Jen mam poslendi problem vsechny hodnoty ktere iteracni metoda vypise jsou rovny 0. nevite nekde co by to mohlo zpusobit?
kdyztak prikladam skript:
program Bifurkacni_diagram
implicit none
integer :: i
real :: dr, xn, r, x0, r0, xnn, rmax, k
x0 = 0.5
r0 = 0.1
dr = 0.01
xn = x0
r = r0
rmax = 5
OPEN (1, FILE = 'data.dat', ACCESS = 'APPEND',STATUS = 'NEW')
do while ( r < rmax)
do i = 1, 1000
xnn = r*xn*(1-xn)
xn = xnn
if ( i > 800) then
WRITE(1,*) "r = ",r," xnn = ",xnn," iterace =",i
endif
enddo
r = r + dr
enddo
close(1)
end program
dikz moc
Offline