Создать функцию на ST

[lagutin]

Фоновая сортировка. https://cloud.mail.ru/public/JBy8/eQz4xByVK

[ПавелП]

Привет всем!

Делал кто "перевод" макросов на язык ST ?
Иногда надо подправить малость - мне проще в ST.

Вот попробовал с ходу перевести:
Преобразователь диапазона с ограничением SCALE.
Получаются разные результаты...

CompareADC:= (InADCa*((InMAX-InMIN)/(UotMAX-UotMIN))) - (InMIN*UotMAX-InMAX*UotMIN)/(UotMAX-UotMIN) ;
или ещё
CompareADC:= InMIN + (InADCa - UotMIN) * ( InMAX - InMIN )/(UotMAX - UotMin);

Чёт первый блин не получается...

InMIN, InMAX - предел входного параметра,
UotMIN, UotMAX - предел выходного параметра,
InADCa - входной сигнал,
CompareADC - выход.

[capzap]

Привет всем!

Делал кто "перевод" макросов на язык ST ?
Иногда надо подправить малость - мне проще в ST.

Вот попробовал с ходу перевести:
Преобразователь диапазона с ограничением SCALE.
Получаются разные результаты...[B]

установите КДС, воспользуйтесь одноименной библиотекой на oscat.de, там все функции на языке ST, адаптировать их под ОЛ куда проще чем с квадратиков переводить

[ПавелП]

установите КДС, воспользуйтесь одноименной библиотекой на oscat.de, там все функции на языке ST, адаптировать их под ОЛ куда проще чем с квадратиков переводить

Порылся, нашёл, посмотрел.
Много всего. Инфы поболее, чем с нуля начинать.

Спасибо!

[ПавелП]

Макросы уже есть на ST ?
Все REAL ?

математики, ля
прогеры, ля
постановщики задач, ля

Первый раз, в первый класс...
Дали люди ссылку, будет поболее инфы, и меньше вопросов!

[melky]

double Scaler (double input, double in_min, double in_max, double out_min, double out_max)

{
double out1 = 0;
double out2 = 0;
double output = 0;
double diff = in_max - in_min;

if (diff != 0)
{
if (input > in_max) out1 = in_max;
else out1 = input;
if (in_min > out1) out2 = in_min;
else out2 = out1;
output = (out_max - out_min) / diff * (out2 - in_min) + out_min;
}
return output;
}

Скалирование на C#, вроде делал когда-то именно с oscat. хотя и не помню уже. Синтаксис примените СТшный.

[ПавелП]

Макросы уже есть на ST ?
Все REAL ?


математики, ля

CompareADC := (InADCa - InMIN) / (InMAX - InMIN) * (UotMAX - UotMin) + UotMin

[/CODE]

Всё работает!!! Совпадает с эталоном.

Спасибо!

[ПавелП]

double Scaler (double input, double in_min, double in_max, double out_min, double out_max)

{
double out1 = 0;
double out2 = 0;
double output = 0;
double diff = in_max - in_min;

if (diff != 0)
{
if (input > in_max) out1 = in_max;
else out1 = input;
if (in_min > out1) out2 = in_min;
else out2 = out1;
output = (out_max - out_min) / diff * (out2 - in_min) + out_min;
}
return output;
}

Скалирование на C#, вроде делал когда-то именно с oscat. хотя и не помню уже. Синтаксис примените СТшный.

Подошло.
Только контроль пределов не нужен.
Раз оттарировал, и заработало!
Спасибо!

[ПавелП]

установите КДС, воспользуйтесь одноименной библиотекой на oscat.de, там все функции на языке ST, адаптировать их под ОЛ куда проще чем с квадратиков переводить

Хм. Пролистал внимательно - оч интересно.
Много полезностей, нужное проверил - всё работает.

Прочитал шапку файла, и побродил по ссылкам:
1. 10 лет прошло, часть ссылок оттуда сдохла.
2. ST где-то рядом. Все решения достаточно описаны, но без исходников.
3. У некоторых макросов есть исходные формулы.

4. Винегрет из CFC, ST придётся городить.
Что, впрочем, позволит решить нужные задачи.

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

[Cs-Cs]

ПавелП

Все решения достаточно описаны, но без исходников

Если речь идёт про OSCAT для CDS 2.3, то его надо не добавить в проект (тогда только шапка видна), а именно открыть как библиотеку. Тогда все исходники видны. Но написаны они ужасно. Без комментариев и с фиг какими именами переменных.
OscatEdit.gif