Модель на отталкивании

[Евгений Владимирович]

[bbvideo=560,315]https://m.youtube.com/watch?v=KNIXr7aKeaY[/bbvideo]

Год назад познакомился с теорией Катющика. Только нашел время что-то на компе смоделировать. Помню ооочень давно пытался такое сделать для учебного пособия по астраномии, но увы.. пришлось тогда зациклить и строить по эллиптическиим орбитам и так рассчитывать координаты тел.
Здесь все по силам считается. Т.е. зависит только от массы и расстояний между телами и куо. Заданы начальные скорости по оси Y. Тела распложены вдоль оси X.

Особенно удивился когда добавил неподалеку еще одно "солнце". И орбиты у все поменялись. Некоторые как 8-ки стали и т.д....

[Temp]

...

Интересно. Можно исходник с программой?

[Евгений Владимирович]

Вот сам расчет. Силу от куо привел насколько хватило времени. Форум большой и много тем, но основная, на мой взгляд, что касается куо и его напряженности - не раскрыта

исх.gif

(64.73 КБ) 424 скачивания

[Евгений Владимирович]

В этой версии сошлись скорости всех обьектов с реальными.
[bbvideo=560,315]http://m.youtube.com/watch?v=Yy7TL_vN0cE[/bbvideo]

... а потом наступил "апокалипсис", кстати третья от солнца и марс очень долго держались)

[Anrie01]

Евгений, здравствуйте. Многие на форуме предоставляли свои расчеты, я тоже это делал.
1. o(i).fkyo = G * o(i).Mt * o(j).Mt * MKuo / (RKuo * RKuo * o(j).MinR * o(j).MinR)
2. fk = o(i).fkyo
3. f = G * o(i).Mt * o(j).Mt / (dx * dx + dy * dy + dz *dz)
4. f = f - o(i).fkyo

Вот строки из вашей программы. При вычислении значения o(i).fkyo вы используете:

G - гравитационная постоянная
o(i).Mt и o(j).Mt - массы небесных тел, каких?
MKuo - масса КУО, какая?
RKuo - радиус КУО, какой?
o(j).MinR - минимальный радиус КУО, какой?

Вы могли бы подробно обьяснить, что это за переменные, и как они рассчитаны.

Можно вас попросить написать программу падения яблока на поверхность планеты с этими формулами с высоты 10 км, и выписать получившиеся ускорения в таблицу для изучения?
Спасибо.

[Евгений Владимирович]

Евгений, здравствуйте. Многие на форуме предоставляли свои расчеты, я тоже это делал.
1. o(i).fkyo = G * o(i).Mt * o(j).Mt * MKuo / (RKuo * RKuo * o(j).MinR * o(j).MinR)
2. fk = o(i).fkyo
3. f = G * o(i).Mt * o(j).Mt / (dx * dx + dy * dy + dz *dz)
4. f = f - o(i).fkyo

Вот строки из вашей программы. При вычислении значения o(i).fkyo вы используете:

G - гравитационная постоянная
o(i).Mt и o(j).Mt - массы небесных тел, каких?
MKuo - масса КУО, какая?
RKuo - радиус КУО, какой?
o(j).MinR - минимальный радиус КУО, какой?

Вы могли бы подробно обьяснить, что это за переменные, и как они рассчитаны.

Можно вас попросить написать программу падения яблока на поверхность планеты с этими формулами с высоты 10 км, и выписать получившиеся ускорения в таблицу для изучения?
Спасибо.

Здравствуйте!

Скажу сразу, софтинка ооочень сырая.... Написал для собственного понимания теории по версии отталкивания.

G - это G

o(i).fkuo это сила от КУО, которое я представляю в виде сферы с ценетром текущего o(i)-го тела с массой
o(i).Mt
o(j).Mt - это масса тела в поле которого попало o(i)
o(j).MinR - расстояние между центрами o(i) и o(j)

MKuo = 2е19 и RKuo = 1500000000 просто константы подобрал мануально, поскольку рассчитать не смог...

Программа выполняет цикл. В цикле идет перебор по всем телам и для каждого вычисляется результрующая сила от всех объектов с учетом КУО кроме своего. А дальше (F=ma, a=v/t; s=vt) вычисляется новая координата тела за время dt (на видео в левом верхнем углу эти константы прописаны). Данные сохраняются в массив.

Насчет программы для падения яблок - можно подумать, только когда будут исходные данные, например напряженность БГП...
Сами видите какие по формуле o(i).fkyo - это извращение, но принцын сохранен, мне кажется... По крайней мере орбиты и скорости почти подошли, вот:

w.AddTelo('Солнце', 1.9855e30, 0, 0, 0, 0, 0, 0, 6.9551e5, 10, RGB(255, 255, 100));
ListBox1.AddItem('Солнце', nil);
w.AddTelo('Меркурий', 3.33e23, -58000000, 0, 0, 0, 45.8e5, 0, 2439, 4, RGB(255, 120, 84));
ListBox1.AddItem('Меркурий', nil);
w.AddTelo('Венера', 4.87e24, 108200000, 0, 0, 0, 32.3e5, 0, 6051, 5, RGB(128, 128, 0));
ListBox1.AddItem('Венера', nil);
w.AddTelo('Земля', 5.97e24, -150000000, 0, 0, 0, 27.5e5, 0, 6371, 5, RGB(10, 10, 255));
ListBox1.AddItem('Земля', nil);
w.AddTelo('Луна', 7.35e22, -150000000+360000, 0, 0, 0, 28.5e5, -1e1, 1737, 3, RGB(210, 210, 255));
ListBox1.AddItem('Луна', nil);
w.AddTelo('Марс', 6.42e24, 227900000, 0, 0, 0, -23e5, 0, 3389, 5, RGB(255, 0, 0));
ListBox1.AddItem('Марс', nil);
w.AddTelo('Юпитер', 1.9e27, -778000000, 0, 0, 0, 12.3e5, 0, 69911, 7, RGB(40, 235, 45));
ListBox1.AddItem('Юпитер', nil);
w.AddTelo('Сатурн', 5.68e26, 1433450000, 0, 0, 0, -8.8e5, 0, 58232, 6, RGB(230, 0, 255));
ListBox1.AddItem('Сатурн', nil);
w.AddTelo('Уран', 8.68e25, -2880000000, 0, 0, 0, 6.33e5, 0, 25360, 6, RGB(155, 155, 155));
ListBox1.AddItem('Уран', nil);
w.AddTelo('Нептун', 1.2e26, 4500000000, 0, 0, 0, -5.15e5, 0, 24622, 6, RGB(25, 25, 255));
ListBox1.AddItem('Нептун', nil);
w.AddTelo('Плутон', 1.3e22, -5906000000, 0, 0, 0, 4.5e5, 0, 1153, 4, RGB(255, 155, 50));
ListBox1.AddItem('Плутон', nil);

[Anrie01]

Можно вас попросить написать программу падения яблока на поверхность планеты с этими формулами с высоты 10 км, и выписать получившиеся ускорения в таблицу для изучения?
Спасибо.

Здравствуйте!
Скажу сразу, софтинка ооочень сырая.... Написал для собственного понимания теории по версии отталкивания.
MKuo = 2е19 и RKuo = 1500000000 просто константы подобрал мануально, поскольку рассчитать не смог...
Программа выполняет цикл. В цикле идет перебор по всем телам и для каждого вычисляется результрующая сила от всех объектов с учетом КУО кроме своего. А дальше (F=ma, a=v/t; s=vt) вычисляется новая координата тела за время dt (на видео в левом верхнем углу эти константы прописаны). Данные сохраняются в массив.
Насчет программы для падения яблок - можно подумать, только когда будут исходные данные, например напряженность БГП...
Сами видите какие по формуле o(i).fkyo - это извращение, но принцын сохранен, мне кажется...

Я понимаю что формула КУО это самодельное. Я не критикую. Очень интересно ваше мнение.
Интересно посмотреть на падение яблока с высоты.
например через ЗВТ для планеты и яблока составить таблицу падения с высоты 10 км по секундно, запомнить ее, и через вашу формулу КУО вычислить обратный вариант, где уже зная скорость и пройденный путь, вывести значение для КУО, его радиуса и все что вам нужно.

Интересно, работает ли ваша формула КУО для падающего яблока?
И упадет ли Луна на Землю, если она остановятся?
Думаю так будет правильнее проверить формулу.

PS не в тему конечно, но мне просто скучно от орбитальных движений.
Вы кристаллическую решетку для атомов в 3D не пробовали создавать, или поведение атомов в облаке газа, или жидкости?

[Евгений Владимирович]

Насчет исходников.
Поверьте мои. На RAD STUDIO xe2, короче делфи, правда из торента. Куда выложить? Есть фтп на "разуме"?

[Anrie01]

Насчет исходников.
Поверьте мои. На RAD STUDIO xe2, короче делфи, правда из торента. Куда выложить? Есть фтп на "разуме"?

А текст большой? Если не сложный, то можно и тут попробовать разобрать.
Я VisualBasic пользуюсь, другие языки не учил, ассемблер в молодости изучал, пользовался, но уже почти 20 лет не практиковался.
Чужие языки сложно разбирать как устроены. Вот просто формулы в расчетах я бы понял, и смог на своем языке проверить.
Можете скинуть мне на почту, в личку адрес скинул.

[Евгений Владимирович]

Вообще это у меня вторая версия.. На первой тоже все закрутилось, как надо и я сразу в атомы полез и все поломал, собрать наугад тысячу штучек очень трудно, они все разлетаются, подбором костант - жизни не хватит. поэтому надо знать напряженность БГП. Такой подход как у меня не совсем корректный, т.е. для расчета силы надо знать Ekuo и En - напряженность создаваемую каждым телом на заданном расстоянии. Виктор говорил что если знать напряженность, то будет ясно какую область поля разряжает тело. Мне так кажется.

[Евгений Владимирович]

Тяжелая сфера с вогнутым сфероидом - это силовой аналог. Я свой сделал, признаюсь стереометрию прогулял. Опять же повторюсь надо считать через напряженость БГП, не через аналоги...

[Anrie01]

Евгений, в тексте ваших программ нашел такие строки. Давайте по ним пообщаемся.

procedure TMainForm.FillPro(av: Integer);
var ix, iy, iz: Integer;
begin
drx := 1e-8;
dry := 1e-8;
drz := 1e-8;
for ix := 0 to av do
for iy := 0 to av do
for iz := 0 to av do
begin
w.AddTelo('Ядро', 1.6582e-24,
drx*ix, dry*iy, drz*iz,
0, 0, 0,
0.5e-20, 4, RGB(255, 0, 0));
w.AddTelo('Электрон', 9.1e-31,
drx*ix+0.5e-10, dry*iy, drz*iz,
0, 0.000043, 0,
0.5e-20, 2, RGB(0, 0, 255));
ListBox1.AddItem('Ядро', nil);
ListBox1.AddItem('Электрон', nil);
end;
end;

Это отдельный блок расчетов, или внутренне устройство планеты, двигающейся орбитально? Что это? Что у вас получилось?
Не важно какие ошибки, давайте это разберем лучше.
for ix := 0 to av do - цикл от 0 до скольки ? Что вы вычисляете в цикле?

[Евгений Владимирович]

Давайте....
Модель строил из этих условий массы, начальной координаты и скорости. Закон ведь один! И электрон летал как надо я не начал проводить манипуляции с куо... на этом остановился в бессмысленности дальнейших действий в пустую наугад. Без учета поля и его малейших изменений в модели дальше делать нечего...

[Евгений Владимирович]

При резком изменении силы куо, т.е массы или расстояние до сферы куо все разлетается или орбиты овальные становятся. Поймать значенияе трудно. А так если бы константы были верные то, я думаю, можно было бы программно развлекаться с напряженность куо, предварительно купив попкорна)

[Евгений Владимирович]

Евгений, в тексте ваших программ нашел такие

Дальше новые вопросы возникают, но сразу вспоминается фильм про золотую жопу...

[Anrie01]

Давайте....
Модель строил из этих условий массы, начальной координаты и скорости. Закон ведь один! И электрон летал как надо я не начал проводить манипуляции с куо... на этом остановился в бессмысленности дальнейших действий в пустую наугад. Без учета поля и его малейших изменений в модели дальше делать нечего...

ТО есть электрон вы пустили орбитально вокруг ядра?
Сколько атомов одновременно были в симуляции?
Как они взаимодействовали между собой?
Это кристаллическая решетка или облако газа?

[Евгений Владимирович]

Тел на орбите может быть очень много. Орбит тоже хоть сколько. Тут я попробовал сделать куб из атомов с одним электроном на орбите, но куб при малом куо разлетался, при больших схлопывался. удержать не получается. Или атомы должны вокруг друг-друга летать или надо пульсирующее куо что-бы все держалось

[Anrie01]

Тел на орбите может быть очень много. Орбит тоже хоть сколько. Тут я попробовал сделать куб из атомов с одним электроном на орбите, но куб при малом куо разлетался, при больших схлопывался. удержать не получается. Или атомы должны вокруг друг-друга летать или надо пульсирующее куо что-бы все держалось

Я для упрощения придумал как удержать атомы от разлета для газового облака, но это не научно, просто баловался. Возможно это можно вам как то использовать. Мой комп не вытянет множество вычислений. Проверьте на своем.

[Евгений Владимирович]

Доброго всем времени суток!

[Евгений Владимирович]

Позже скину мультик

[Евгений Владимирович]

Только заметил ошибку там в формуле для Fkuo вместо Rkuo долно быть Rc - радиус центрального обьекта

[Евгений Владимирович]

[bbvideo=560,315]https://m.youtube.com/watch?feature=youtu.be&v=lwzZbCkb9Vg[/bbvideo]

[Евгений Владимирович]

[bbvideo=560,315]https://youtu.be/DkT6lS843F8[/bbvideo]

[Anrie01]

[bbvideo=560,315]https://youtu.be/DkT6lS843F8[/bbvideo]

Евгений, это что такое?

[Евгений Владимирович]

Это модель работает на отталкивании.
Все более менее соответствует теории Катющика. Модель позволяет увидеть то, что
никогда и никто не увидит. Компьютерная логика позволяет это если модель верна. Для тех кто использует компьютер для соцсетей этого не понять.

[Евгений Владимирович]

Вопрос ко всем! Кто-нибудь видел модель из эфира, черных дыр, темной материи с искривлениями, электрополевую модель и другие????

[Евгений Владимирович]

[bbvideo=560,315]https://youtu.be/GVX_xhn6BkQ[/bbvideo]

[Anrie01]

[bbvideo=560,315]https://youtu.be/GVX_xhn6BkQ[/bbvideo]

Евгений, хорошо.
Мой комп не вытянет вычисления более 300 элементов за раз, что бы увидеть мультфильм. Вижу что ваш тянет сразу очень много.
Из скольки тел одновременно может состоять симуляция, что бы на экране было хотя бы 3-5 кадров в секунду ?
Мой текст программы к вам в ваш редактор с минимальными исправлениями подходит?
Хочу вас попросить запустить потом для БГП программу.

[Евгений Владимирович]

Это ноутбук за 5т.р. купленый на авито. Исходники компилируются, это не интерпретатор. Если сделать инлайн на асме то вообще будет шоколад. А представьте если это сделать на каком-нибудь многопроцессорнике стоимостью в ярд?

[Евгений Владимирович]

... а далее одеваем 3д очки и забываем о реальности, летаем в космосе, между атомами)))