Я так понимаю что это рисует график "Аттрактор Лоренца"
Program Lorenz; Uses CRT, Graph; Const x: Real = 3.051522; y: Real = 1.582542; z: Real = 15.62388; dt = 0.0001; a = 5; b = 15; c = 1; Var gd, gm: Integer; x1, y1, z1: Real; Begin gd:=Detect; InitGraph(gd, gm, 'c:bpbgi'); While not KeyPressed Do Begin x1 := x + a*(-x+y)*dt; y1 := y + (b*x-y-z*x)*dt; z1 := z + (-c*z+x*y)*dt; x := x1; y := y1; z := z1; PutPixel(Round(19.3*(y - x*0.292893) + 320), Round(-11*(z + x*0.292893) + 392), 9); End; CloseGraph; ReadKey; End.
You can post now and register later.
If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.
Здравствуйте, подскажите какой тег использовать для увеличения значения, пример на картинке.
Вроде, про такой тег я слышала. Если есть тег прогресс бар, значит и такое должно быть.
Question
vonsap
Помогите пожалуйста перевести.
Я так понимаю что это рисует график "Аттрактор Лоренца"
Link to comment
Share on other sites
8 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.