Вверх ↑
Этот топик читают: Гость
Ответов: 68
Рейтинг: 1
#16: 2014-11-08 21:47:43 ЛС | профиль | цитата
46.165.4.34 писал(а):

Планетарий глянь, может там чего найдётся


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

0
Ответов: 8926
Рейтинг: 823
#17: 2014-11-08 22:32:11 ЛС | профиль | цитата
kir1381, уточните:
jday -- это function swe_julday?
{Calculate positions of planets, asteroids, lunar nodes and apogees}
plc -- это function swe_calc или function swe_calc_ut?

карма: 19

0
Ответов: 68
Рейтинг: 1
#18: 2014-11-08 22:41:58 ЛС | профиль | цитата
Приветствую Вас Леонид, спасибо за помощь.
jday -- это function swe_julday
plc -- это function swe_calc

Еще если не сложно вот эту функцию. Это погрешность от приливов и отливов - swe_deltat
карма: 1

0
Ответов: 824
Рейтинг: 138
#19: 2014-11-08 23:18:59 ЛС | профиль | цитата
[flood]И мне сделайте, если не сложно, и это... и это... и вот так...
O-o, ya-ya!
Das ist fantastisch!...

А подышать ни за кого не надо?[/flood]
карма: 1

1
Голосовали:ashkalov
Ответов: 16884
Рейтинг: 1239
#20: 2014-11-08 23:47:48 ЛС | профиль | цитата
Заинтересованные, посмотрите в компонентах SQLite как подключается "сторонняя" dll
тем более, что ссылка, благодаря sashaoli, на файл swe_d32.pas есть
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Главный модератор
Ответов: 2999
Рейтинг: 396
#21: 2014-11-09 00:18:57 ЛС | профиль | цитата
CNET-wrapper через Inline: swephcnet.rar
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
1
файлы: 1swephcnet.rar [225.5KB] [354]
Голосовали:CriDos
Ответов: 1841
Рейтинг: 369
#22: 2014-11-09 01:16:57 ЛС | профиль | цитата
Ну и C++ до кучи
#include <iostream>
#include <windows.h>

using namespace std;

int main()
{
//load library
HINSTANCE hinstLib = LoadLibrary(L"swedll32.dll");
if (hinstLib == NULL) {
cout << "ERROR: unable to load DLL
";
return 1;
}

//get point func - swe_julday
typedef int (*import_swe_julday)(int year, int mon, int mday, double hour, int gregflag);
import_swe_julday swe_julday = (import_swe_julday)GetProcAddress(hinstLib, "_swe_julday@24");
if (swe_julday == NULL) {
cout << "ERROR: unable to find DLL function
";
return 1;
}

//get point func - swe_calc
typedef int (*import_swe_calc)(double tjd, int ipl, int iflag, double *xx, char *serr);
import_swe_calc swe_calc = (import_swe_calc)GetProcAddress(hinstLib, "_swe_calc@24");
if (swe_calc == NULL) {
cout << "ERROR: unable to find DLL function
";
return 1;
}


//use func
cout << swe_julday(1990,11,11,11,1) << endl;
double xx[6];
cout << swe_calc(1990,11,0,xx,NULL) << endl;

return 0;
}
карма: 1
0
Ответов: 8926
Рейтинг: 823
#23: 2014-11-09 11:56:15 ЛС | профиль | цитата
kir1381, вот: dll_swe.rar В IC примечания прочитайте, другие функции можно вставить по "образу и подобию"
карма: 19

0
файлы: 1dll_swe.rar [3.1KB] [273]
Гость
Ответов: 17029
Рейтинг: 0
#24: 2014-11-09 12:56:12 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-02 09:15:28
карма: 0

0
Ответов: 8926
Рейтинг: 823
#25: 2014-11-09 13:06:07 ЛС | профиль | цитата
kir1381, Microsoft говорит что ошибка 216 -- наличие вируса в системе Отключить Windows-кий брандмауэр на х.., ой, на фиг во время пользования программой, или проверить права на доступ
карма: 19

0
Ответов: 68
Рейтинг: 1
#26: 2014-11-09 13:19:19 ЛС | профиль | цитата
Не помогло ;(
карма: 1

0
Ответов: 1343
Рейтинг: 31
#27: 2014-11-09 13:27:43 ЛС | профиль | цитата
nat4-minsk-pool-46-53-178 писал(а):
Runtime error 216 at 000123AE



такая же шляпа была, возможно метод вызова не тот или какие то данные указаны в неверном типе

http://forum.hiasm.com/forum.html?q=3&t=64627
карма: 2

0
Ответов: 1304
Рейтинг: 405
#28: 2014-11-09 14:19:31 ЛС | профиль | цитата
kir1381 писал(а):
46.165.4.34 писал(а)Планетарий глянь, может там чего найдётсяСпасибо , глянул, было бы супер если бы показанные расчете были действительными, а так сравнил с астро прогой и близко не так . Надеюсь кто нибудь сможет мне помочь. С уважением ко всем.

kir1381,
Погрешность астропарсера не более 20 сек.(RA DE), и если данные результаты "и близко не так" то что тогда близко? , ну если вы конечно будете запускать свой космический карабль то да, погрешность большая можно и промахнуться .
jupiter.png
[offtop]ps: RedShift 3более точен в практических наблюдениях чем к примеру Celestia, я уж не говорю про прочий астрологический онлайн мусор коего развелось в сети немеренно.[/offtop]
карма: 3

0
файлы: 1jupiter.png [55KB] [601]
Ответов: 68
Рейтинг: 1
#29: 2014-11-09 17:56:33 ЛС | профиль | цитата
Я не хотел Вас обидеть а тем более оклеветать Вашу разработку. Она очень достойная.Просто я сравнивал расчеты программы и астрологического процессора ZET9 и они полностью противоречили друг другу . Поэтому я и сделал вывод что расчеты не совсем те.
------------ Дoбавленo в 15.46:
Кстати вот нижняя прога на картинке она совершенно точно определила градусы. Но я ее не пробовал а пробовал ту что сверху.
------------ Дoбавленo в 18.56:
Да..... , что то никак мне не удается решить эту проблему с ошибкой. Может кто знает решение, буду очень благодарен. С уважением.
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#30: 2014-11-10 09:45:09 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-02 09:15:29
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)