Датчики температуры Ni

[starmos]

В настройках аналогового входа ПР205 можно выбрать датчик температуры Ni1000, есть в менеджере компонентов и макрос с таким названием. Но у меня датчик Ni1000TK5000 - из Инета следует, что он по характеристикам отличается от просто Ni1000. Каким образом я смогу его использовать? Можно ли стандартные средства как-то адаптировать? Чем эти датчики различаются вообще, я понять не могу, ТК5000 везде в Инете, а что это?

[Рогов Алексей]

Может это Вам требуется?
https://owen.ru/product/npt

[starmos]

Может это Вам требуется?
https://owen.ru/product/npt

Нет, это не требуется. У датчика сопротивление 1кОм, это вполне попадает в измеряемый контроллером диапазон, так что измерить сопротивление датчика контроллер сможет, вопрос как из этого получить температуру, с учетом ТК5000. Но понятно что делать это нужно программой, поэтому я сюда и написал.

[Королев Кирилл]

В настройках аналогового входа ПР205 можно выбрать датчик температуры Ni1000, есть в менеджере компонентов и макрос с таким названием. Но у меня датчик Ni1000TK5000 - из Инета следует, что он по характеристикам отличается от просто Ni1000. Каким образом я смогу его использовать? Можно ли стандартные средства как-то адаптировать? Чем эти датчики различаются вообще, я понять не могу, ТК5000 везде в Инете, а что это?

Добрый день. Макросов для работы с Ni1000TK5000 у нас нет. От обычного Ni1000 они отличаются по НСХ (другая зависимость сопротивления от температуры). Можете реализовать его самостоятельно, нужно только найти формулу преобразования сопротивления в температуру. В таком случае следует перевести аналоговый вход в режим 0..300 кОм и уже к нему подключить созданный Вами макрос.

[kondor3000]

Надо снять график зависимости сопротивления от температуры (или взять табличные, если найдёте), не менее 10 точек и применить функцию Petera для 10 точек.
https://owen.ru/forum/showthread.php?t=35489&page=5

[Dimensy]

Вот, взял у Сигнетика

[capzap]

возможно и такой код сгодится

function Solver: real;
    var_input
        res : real;
    end_var    
    var
        W1, W2, W3, W4, W5, W6, W7, W8 : real;
    end_var
    
    W1 := res * 1.3831139433862618  + -12.448275642218118;
    W2 := res * 6.682846489888407  + -14.392748820599467;
    W3 := res * -0.005676395436096994  + 8.019474677893733;
    W4 := res * -0.008025928784169988  + 8.575139053897809;
    W5 := res * -7.220669806960443  + 5.095049994395068;
    W6 := res * -0.012837643004405222  + 0.32252865727557123;
    W7 := res * 7.69970012369386  + -7.2486377046058985;
    W8 := res * 2.4572149965952743  + -1.8149306383777304;
    if W1 <= 0.0 then W1 := 0.0; end_if
    if W2 <= 0.0 then W2 := 0.0; end_if
    if W3 <= 0.0 then W3 := 0.0; end_if
    if W4 <= 0.0 then W4 := 0.0; end_if
    if W5 <= 0.0 then W5 := 0.0; end_if
    if W6 <= 0.0 then W6 := 0.0; end_if
    if W7 <= 0.0 then W7 := 0.0; end_if
    if W8 <= 0.0 then W8 := 0.0; end_if
    
    Solver := W1 * 9.82132213698798 + W2 * -4.321266935905112 + W3 * -5.233147887271718 + W4 * -4.576704842022764 + 
W5 * 7.149600577059545 + W6 * 0.0505727397095359 + W7 * 2.0184721920501922 + W8 * -0.031374647564338706 + -14.392748820599467;
end_function

PS была ошибка одна и та же переменная затесалась в два места, поэтому функция считала не верно, постараюсь по новой собрать с не меньшей точностью

[kondor3000]

Один из блоков явно врёт на 1000 Ом 1 Макросы Никель 1000.jpg
на 1200 Ом расхождение 60 градусов уже 1 Макросы Никель 1000_2.jpg

[capzap]

Один из блоков явно врёт

сейчас не должен

function Solver: real;
    var_input
        res : real;
    end_var    
    var
        W1 : real;
        W2 : real;
        W3 : real;
        W4 : real;
        W5 : real;
        W6 : real;
        W7 : real;
        W8 : real;
    end_var
    
    W1 := res * 0.13878908745962965  + -11.169647158936789;
    W2 := res * -0.705290296164642  + -0.49852562738434325;
    W3 := res * -0.12242029107039004  + -0.41234795849720013;
    W4 := res * 0.009448343410483588  + -10.07187851154708;
    W5 := res * 0.40872556066351257  + 7.926780715730983;
    W6 := res * -0.14062452668260786  + -0.014881062272203267;
    W7 := res * -0.007041981194077907  + 9.971070083280027;
    W8 := res * -0.0201389901625474  + -0.38648060746547913;
    if W1 <= 0.0 then W1 := 0.0; end_if
    if W2 <= 0.0 then W2 := 0.0; end_if
    if W3 <= 0.0 then W3 := 0.0; end_if
    if W4 <= 0.0 then W4 := 0.0; end_if
    if W5 <= 0.0 then W5 := 0.0; end_if
    if W6 <= 0.0 then W6 := 0.0; end_if
    if W7 <= 0.0 then W7 := 0.0; end_if
    if W8 <= 0.0 then W8 := 0.0; end_if
    
    Solver := W1 * 13.259300412601876 + W2 * -0.09680719090111181 + W3 * -0.6471391858393304 + W4 * -3.772583236036509 + W5 * -4.00162988810079 + W6 * -0.28310643866597995 + W7 * -4.494375283061582 + W8 * -0.573359836329579 + -11.711165689542185;
end_function

[Dimensy]

Еще вариант

unction fNi1000_TK5000: real;
    var_input //объявление входных переменных
        R : real;
    end_var
    
    var //объявление локальных переменных
        A : real := 5.585e-9;
        B : real := 5.172e-6;
        C : real := 4.427e-3;
        p, q, d, y : real;
    end_var
    
    fNi1000_TK5000 := -9999;
    if R > 790 and R < 1630 then
        p := (3 * A * C - B * B) / (3 * A * A);
        R := 1 - R / 1000;
        q := (2 * pow(B,3) - 9 * A * B * C + 27 * A * A * R) / (27 * pow(A,3));
        d := q * q / 4 + pow(p,3) / 27;
        y := pow((-q/2 + pow(d,0.5)),1/3) - pow((q/2 + pow(d,0.5)),1/3);       
        fNi1000_TK5000 := y - B / (3 * A);
    end_if
        
end_function

здесь я тупо решил уравнение 3-го порядка
Безымянный.png