Оружие будущего

Форум про оружие будущего
Текущее время: Вт май 21, 2019 5:44 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 64 ]  На страницу 1, 2, 3, 4  След.
Автор Сообщение
 Заголовок сообщения: Прога Gauss Maker v0.1beta
СообщениеДобавлено: Вт окт 02, 2007 4:49 pm 
Админ
Аватар пользователя

Зарегистрирован: Пн июл 23, 2007 12:02 pm
Сообщений: 10860
Откуда: Пермь
Не было инета почти неделю, и от нечего делать написал сабж. Прога уже может вычислять всякие параметры гауссгана на основе исходных данных, рисовать графики тока, скоро будет реализован метод выбора оптимального диаметра провода для катушки. Короче, пишите чего бы вы от неё ещё хотели бы


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 02, 2007 5:04 pm 
Legionnaire
Аватар пользователя

Зарегистрирован: Пн авг 06, 2007 1:40 pm
Сообщений: 1898
Откуда: Moscou
русского языка

_________________
Êlevait l'âme l'humanité
Son manteau de sang


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн окт 08, 2007 6:11 pm 
Админ
Аватар пользователя

Зарегистрирован: Пн июл 23, 2007 12:02 pm
Сообщений: 10860
Откуда: Пермь
качать сабж здесь
http://www.llevellyn.narod.ru/gmv01b.rar


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт окт 09, 2007 5:51 pm 
Legionnaire
Аватар пользователя

Зарегистрирован: Пн авг 06, 2007 1:40 pm
Сообщений: 1898
Откуда: Moscou
можешь сделать прогу так,чтоб каждый раз в условиях не надо было на кружок жать шоб параметр изменить?например,убрать нах этот кружок и вбивать числа напротив параметра

_________________
Êlevait l'âme l'humanité
Son manteau de sang


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт июн 05, 2008 3:35 pm 
Аватар пользователя

Зарегистрирован: Пн апр 28, 2008 3:51 pm
Сообщений: 25
Откуда: Россия,Карелия
Кульная прога! А новой версии ещё не вышло?

_________________
I will do what i like!


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт июн 05, 2008 5:58 pm 
Админ
Аватар пользователя

Зарегистрирован: Пн июл 23, 2007 12:02 pm
Сообщений: 10860
Откуда: Пермь
дык спросу нет => мне лениво ее писать


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Сб июн 14, 2008 9:16 pm 
Legionnaire
Аватар пользователя

Зарегистрирован: Пн авг 06, 2007 1:40 pm
Сообщений: 1898
Откуда: Moscou
можеш исходник дать? (для изучения и в будущем,возможно,для портированя на айфон)

_________________
Êlevait l'âme l'humanité
Son manteau de sang


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср июл 23, 2008 6:20 am 
Админ
Аватар пользователя

Зарегистрирован: Пн июл 23, 2007 12:02 pm
Сообщений: 10860
Откуда: Пермь
дык исходник на GML, проще сызнова написать


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср июл 23, 2008 8:54 am 
Legionnaire
Аватар пользователя

Зарегистрирован: Пн авг 06, 2007 1:40 pm
Сообщений: 1898
Откуда: Moscou
ну формулы хотяб есть?

_________________
Êlevait l'âme l'humanité
Son manteau de sang


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср июл 23, 2008 4:54 pm 
СМЕРТЬ!
Аватар пользователя

Зарегистрирован: Пн апр 28, 2008 7:24 pm
Сообщений: 233
Откуда: Москва, Вокзал у Припяти
Llevellyn писал(а):
дык исходник на GML, проще сызнова написать

А что за GML?

_________________
Адский Гауссган!


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср июл 23, 2008 4:58 pm 
Админ
Аватар пользователя

Зарегистрирован: Пн июл 23, 2007 12:02 pm
Сообщений: 10860
Откуда: Пермь
GML - game maker language
Mars, ладно формулы достану где-нить в выходные


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср июл 23, 2008 5:03 pm 
СМЕРТЬ!
Аватар пользователя

Зарегистрирован: Пн апр 28, 2008 7:24 pm
Сообщений: 233
Откуда: Москва, Вокзал у Припяти
Llevellyn писал(а):
GML - game maker language

Нашёл на чём делать :)
А алгоритм там сложный?

_________________
Адский Гауссган!


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср июл 23, 2008 6:04 pm 
Legionnaire
Аватар пользователя

Зарегистрирован: Пн авг 06, 2007 1:40 pm
Сообщений: 1898
Откуда: Moscou
йа на VB хочу сделать клон Gauss Maker под вм, щас даж нашел basic4ppc штоб моск себе не ипать

_________________
Êlevait l'âme l'humanité
Son manteau de sang


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср июл 23, 2008 7:23 pm 
СМЕРТЬ!
Аватар пользователя

Зарегистрирован: Пн апр 28, 2008 7:24 pm
Сообщений: 233
Откуда: Москва, Вокзал у Припяти
А может лучше на С, perl, python, etc?

_________________
Адский Гауссган!


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср июл 23, 2008 7:30 pm 
Legionnaire
Аватар пользователя

Зарегистрирован: Пн авг 06, 2007 1:40 pm
Сообщений: 1898
Откуда: Moscou
мои знания дальше VB и TP пока не доходят :roll:

_________________
Êlevait l'âme l'humanité
Son manteau de sang


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт июл 24, 2008 4:21 pm 
СМЕРТЬ!
Аватар пользователя

Зарегистрирован: Пн апр 28, 2008 7:24 pm
Сообщений: 233
Откуда: Москва, Вокзал у Припяти
Mars. писал(а):
мои знания дальше VB и TP пока не доходят :roll:

Тогда ждём формул.
И киньте скрин скрин проги, если можно. Если время будет я тоже попробую что-нить сделать.

_________________
Адский Гауссган!


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс июл 27, 2008 9:52 pm 

Зарегистрирован: Вс июл 27, 2008 9:22 pm
Сообщений: 3
Админ выложи формулы плиз!

_________________
Изображение


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн июл 28, 2008 1:57 pm 
Админ
Аватар пользователя

Зарегистрирован: Пн июл 23, 2007 12:02 pm
Сообщений: 10860
Откуда: Пермь
{
brush_color=background_color
font_color=bgcolor.txtcolor
font_size=8

draw_text(x+50,y+13,"Формулы")

draw_text(x+30,y+33,"Диаметр катушки средний dm = (d1+d2)/2")
draw_text(x+30,y+53,"Площадь сечения провода S = 3.14*sqr(D/2)")
draw_text(x+30,y+73,"Количество витков N = (d2-d1)*0.5*l/sqr(D)")
draw_text(x+30,y+93,"Длина провода, Len = pi*N*dm")
draw_text(x+30,y+113,"Сопротивление катушки, Rcoil = po*Len/S")
draw_text(x+30,y+133,"Общее сопротивление, Rcommon = Rcoil+Rc")
draw_text(x+30,y+153,"Индуктивность катушки, L = 2*sqr(dm*N)/(dm+3*(l+(d2-d1)))")
draw_text(x+30,y+173,"Период колебаний, T = pi*2*sqrt(L*C)")
}


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн июл 28, 2008 1:58 pm 
Админ
Аватар пользователя

Зарегистрирован: Пн июл 23, 2007 12:02 pm
Сообщений: 10860
Откуда: Пермь
//расчеты
{
dm=(d1+d2)/2000
S=3.14*sqr(D/2000000)
if N=0 N=(d2-d1)*l*0.0000005/sqr(D/1000000)
Len=3.14*N*dm

if Rcoil=0 Rcoil=po*Len*1000/S
Rcommon=Rcoil/1000+Rc/1000
if Lcoil=0 Lcoil=0.02*sqr(dm*100)*sqr(N)/(dm*100+3*(l/10+(d2-d1)/10))//мкГн
Icoil=U/Rcommon
Ecoil=Lcoil*sqr(Icoil)/2000000
T4=1.57*sqrt(Lcoil*C/1000000000000)
vid=0
if 1/(Lcoil*C/1000000000000)<sqr(Rcommon*1000000/(2*Lcoil)) then vid=1 //апериодический

B=500000*Rcommon/Lcoil
w02=1/(Lcoil*C/1000000000000)
yo=0
w=0
if vid=1 then yo=sqrt(sqr(B)-w02)
if vid=0 then w=sqrt(w02-sqr(B))

X_1=T4*6
Y_1=0
if global.mode=1 && vid=1 Y_1=1.5*((U*exp((-B+yo)*T4)*1000000/(2*Lcoil*yo))-(U*exp(-(B+yo)*T4)*1000000/(2*Lcoil*yo)));
if global.mode=1 && vid=0 Y_1=1.5*(U*sin(w*T4)*exp(-B*T4))*1000000/(w*Lcoil);
if global.mode=2 Y_1=U*1.5
Y_2=-Y_1
if global.mode=3 {X_1=2000; Y_1=1000; Y_2=-100}

script_executed=1
}


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн июл 28, 2008 1:59 pm 
Админ
Аватар пользователя

Зарегистрирован: Пн июл 23, 2007 12:02 pm
Сообщений: 10860
Откуда: Пермь
//рисуем оси
{
otn_y=Y_1/(Y_1-Y_2)

draw_line(x_dis,height*otn_y+y_dis,width,height*otn_y+y_dis);//ось абсцисс
if global.mode=1 draw_text(x_dis+5,y_dis+10,string(Y_1)+" A")
if global.mode=2 draw_text(x_dis+5,y_dis+10,string(Y_1)+" В")
if global.mode=3 draw_text(x_dis+5,y_dis+10,string(Y_1)+" Дж")
draw_line(x_dis,height,x_dis,y_dis);//ось ординат
X_11=X_1
por_x=0
while X_11<1 do begin{
if X_1<1 then {X_11=X_1*1000; por_x+=1}
}end
if global.mode=1 or global.mode=2{
if por_x=0 draw_text(width-20,height*otn_y-20+y_dis,string(X_11)+" c");
if por_x=1 draw_text(width-20,height*otn_y-20+y_dis,string(X_11)+" мc");
if por_x=2 draw_text(width-20,height*otn_y-20+y_dis,string(X_11)+" мкc");}
if global.mode=3 draw_text(width-20,height*otn_y-20+y_dis,string(X_1)+ " мкм")

xi=1 //отрезки на оси абсцисс
while xi<=xx do begin
{draw_line(x_dis+(xi*(width-x_dis)/xx),height*otn_y-5+y_dis,x_dis+(xi*(width-x_dis)/xx),height*otn_y+5+y_dis);
draw_text(x_dis+(xi*(width-x_dis)/xx)-5,height*otn_y+8+y_dis,string(xi*X_11/xx))
xi+=1;}end

yi=0 //отрезки на оси ординат+
while yi<floor(1+yy/otn_y) do begin
{draw_line(x_dis-5,yi*(height*otn_y)/yy+y_dis,x_dis+5,yi*(height*otn_y)/yy+y_dis);
if yi<yy draw_text(x_dis-30,height*otn_y-yi*(height*otn_y)/yy+y_dis-15,string(yi*Y_1/yy))
//if yi>yy draw_text(x_dis-30,yi*(height*otn_y)/yy+y_dis-15,string((yi-yy)*Y_2/floor(-yy+yy/otn_y)))
yi+=1;}end

//yi=1//отрезки на оси ординат-
//while yi<yy*(1-otn_y) do begin
//{draw_line(x_dis-5,yi*(height*otn_y-y_dis)/yy+height*otn_y,x_dis+5,yi*(height*otn_y-y_dis)/yy+height*otn_y);
//yi+=1;}end
}


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 64 ]  На страницу 1, 2, 3, 4  След.

Часовой пояс: UTC + 3 часа


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
cron

 

Яндекс цитирования
Русская поддержка phpBB