Паяльная станция под паяльник от Lukey 702

Задумал сотворить паяльную станцию под паяльник от Lukey.
Сабж: паяльник с керамическим нагревателем и встроенной в него термопарой(вроде так). Паяльник остался от сдохшей паялки. Кстати очень удобен, жало тонкое, не обгарает(если не менять на дешевую подделку).
ТЗ: Собсно нужно сварганить температурный регулятор. Естественно на контроллере. При включении он должен нагреть жало до температуры устанновленной в момент последнего выключения и собсно ее поддерживать. Регулировка температуры будет управлятся энкодером от нигнитолы. Индикатор в рабочем режиме должен отображать температуру жала, при регулировке, естественно устанавливаемую температуру.
В наличии(пока для прототипа) сам паяльник, мега16(пинбоард), трехразрядный семисегментный индикатор, огромное желание и оОчень мало опыта в программировании мк.
Сначала думаю изготовить так называемый усилитель термопары. Надыбал вот такую схемку:

http://progcode.narod.ru/ex_author/tp_control/shema.png
усилок решил стырить с нее. Потом нужно сварганить силовую часть для нагрева жала, стырю тоже отсюда.
Основная сложность для меня это написание программы для мк.
Пока еще даже не определился с алгоритмом. В общем жду предложений.
ЗЫ: а подписка автоматом или как?

0

хммм конечно спорно... Алгоритм будет как два пальца об асфальт температура падает включаешь, доходит до номинальной отключаешь (при этом надо незабыть про гистерезис=)
Вообще можно всё сделать на ОУ, если конечно охото втыкать в красивые циферки, тогда да нужен МК=)

0

Предложение перечитать
http://www.rodyokot.ru/forum/viewtopys. ... 77#p417377
и повторить.

0

Сообщение от kyr_tt Предложение перечитать http://www.rodyokot.ru/forum/viewtopys. ... 77#p417377 и повторить.

читаю...
Ага, исходников не дают, а мне как бы на примере данного устройства еще и кодить поучится, поэксперементировать, "походить по граблям", ну и собрать себе нормальный паяльник домой. Примочек по вкусу каких нибуть прикрутить. Покупать не хочется, ведь сам паяльник уже есть, нужен только регулятор. На работе у меня есть и станция, и фен, и подогрев, микроскоп и бга трафареты, и еще дохрена чего, ремонт мобил в общем.
Но все равно спс за ссылочку. Лучше побольше почитать, чем потом переделывать.

0

Мой совет - сделал как понимаешь, потом программу еще 10 раз переделаешь, однозначно захочется вставить блэкджек и шлюх ;).
А то думать будешь долго и превратится всё в долгострой :)

0

Сообщение от hordikor Мой совет - сделал как понимаешь, потом программу еще 10 раз переделаешь, однозначно захочется вставить блэкджек и шлюх ;). А то думать будешь долго и превратится всё в долгострой :)

Видимо немного не в том разделе создал тему...нету раздела "хочу сделать"))) я тут новенький.
Так вот от слова к мыслям. Надыбал вот че:

http://www.unilib.neva.ru/dl/531/ris4_3.jpg
вот тут
Читаю, вникаю, но от терминов и формул уже голова кругом. А потом еще и с кодом разберись. И дабы дальше хоть чтото понять, и не запутатся в конец, прошу помощи.
Обьясните мне ктонибудь, как пятикласнику, как основываясь на данных алгоритмах, написать программу, которая, для начала, хотябы нагревала до установленной температуры нагреватель и поддерживала бы его температуру. А потом уже буду думать как прикрутить индикатор, энкодер и купюроприемник). Лан пойду дальше вкуривать.

ЗЫ. немного покурив, полез гуглить дальше и вот:
Рекуррентный алгоритм
U=U1-C0*E+C1*E1+C2*E2
C0=Ku*(1+Td/T0)
C1=Ku*(1+2Td/T0-T0/Ti)
C2=Ku*Td/T0
Ku коэффициент усиления
T0 период квантрвания (обычно берут 1)
Ti постоянная интегрирования
Td постоянная дифференцирования
E текущее значение ошибки
E1 значение ошибки такт назад
E2 значение ошибки 2 такта назад

VAR
M:INT; /* переключатель */
U:REAL; /* выход регулятора */
U1:REAL; /* выход такт назад */
E:REAL;
E1:REAL;
E2:REAL;
C0,C1,C2:REAL;
END_VAR;

/* PID subprogram, call cyclically */
PROCEDURE PID;
BEGIN
IF M=1 THEN
BEGIN
E2:=E;
U:=(-C0)*E;
Output(U); /* Процедура вывода управляющего возд. */
U1:=U;
M:=2;
END;
ELSE IF M=2 THEN
BEGIN
E1:=E;
U:=U1-C0*E1+C1*E2;
Output(U);
U1:=U;
M:=0;
END
ELSE
BEGIN
U:=U1-C0*E+C1*E1+C2*E2;
Output(U);
U1:=U;
E2:=E1;
E1:=E;
END;
END_IF;
END;
/*при первом обращении к подпрограмме М должно быть равно 1*/

Нерекуррентный алгоритм
U=C0*E+C1*SUM+C2*(E-E1)
C0=Ku
C1=Ku*T0/Ti
C2=Ku*Td/T0
SUM - сумма ошибок с первой по предпоследнюю

VAR
M:INT; /* переключатель */
U:REAL; /* выход регулятора */
E:REAL;
E1:REAL;
SUM:REAL;
C0,C1,C2:REAL;
END_VAR;

PROCEDURE PID;
BEGIN
IF M=1 THEN
BEGIN
E1:=E;
SUM:=E;
U:=C0*E+C1*SUM;
Output(U);
M=0;
END;
ELSE
BEGIN
SUM:=SUM+E;
U:=C0*E+C1*SUM+C2*(E-E1);
E1:=E;
END;
END_IF;
END;

Это не совсем паскаль, но очень похоже.
Мертвую зону и ограничение добавить по потребности
Источник
Кажись то что надо. Какой из вариантов алгоритмов лучше применить?

0

Вот еще коечто нарыл. Это атмеловсккий апноут под названием "AVR221: Dyssrete PID controller on tinyAVR omd megaAVR divices"


./styles/iosyitistromyss/imageset/icon_topys_attach.gif" width="14" height="18
[85.54 Кб]


[95.69 Кб]

0