Earth
Вспомнил за одну свою программу, которую писал, наверное, лет 10 назад и пришла в голову одна идея, которую позже реализую. А пока только продукт деятельности этой программки в GIF перешлёпну.
Вся эта меняющаяся картина заключена в нескольких строках, откуда не очевиден результат:
t = 0
While flt = 1
xs = R0 * Sin(omega * t)
ys = R0 * -Cos(omega * t)
For x = -Rad To Rad
For y = -Rad To Rad
If (x * x + y * y) > Rad * Rad Then
cv = 0
Else
z = Sqr(Rad * Rad - x * x - y * y)
scp = (x * xs + z * ys) / (R0 * Rad)
cvint = Int(255 * scp)
If cvint >= 0 And cvint <= 255 Then
cv = cvint
Else
cv = 0
End If
End If
PicBox.PSet (150 + x, 105 - y), RGB(cv, cv, cv)
Next y
Next x
t = t + 1
End While
Так оно, наверное, и в жизни. Смотришь на уравнения Максвелла, а за ними скрываются молнии, трансформаторы с микроволновками или радиопередачи. Или попались под руку уравнения Навье-Стокса, а ты и не догадываешься, что в них заключены солитоны и стационарные течения, звуковые волны и гриб ядерного взрыва. А может и сами мы сейчас по регистрам какого-нибудь процессора перекатываемся, не догадываясь, что симуляция к концу подходит и скоро загрузят новые входные данные.
Вся эта меняющаяся картина заключена в нескольких строках, откуда не очевиден результат:
t = 0
While flt = 1
xs = R0 * Sin(omega * t)
ys = R0 * -Cos(omega * t)
For x = -Rad To Rad
For y = -Rad To Rad
If (x * x + y * y) > Rad * Rad Then
cv = 0
Else
z = Sqr(Rad * Rad - x * x - y * y)
scp = (x * xs + z * ys) / (R0 * Rad)
cvint = Int(255 * scp)
If cvint >= 0 And cvint <= 255 Then
cv = cvint
Else
cv = 0
End If
End If
PicBox.PSet (150 + x, 105 - y), RGB(cv, cv, cv)
Next y
Next x
t = t + 1
End While
Так оно, наверное, и в жизни. Смотришь на уравнения Максвелла, а за ними скрываются молнии, трансформаторы с микроволновками или радиопередачи. Или попались под руку уравнения Навье-Стокса, а ты и не догадываешься, что в них заключены солитоны и стационарные течения, звуковые волны и гриб ядерного взрыва. А может и сами мы сейчас по регистрам какого-нибудь процессора перекатываемся, не догадываясь, что симуляция к концу подходит и скоро загрузят новые входные данные.