4 5 decimal
&[DATE] &[TIME] - &[FILENAME]
&[PAGENUM] / &[COUNT]
 <p>Работа с файлами</p>

Список доступных таблиц

Список_таблиц stroka 1 : data1 1 : data1 num2str "" ≠ data Данные Список stroka 1 importCell : data1 Данные Список stroka 1 + 1 importCell : Список_таблиц stroka 1 el data : Список_таблиц stroka 2 el Данные Список stroka 2 importCell : Список_таблиц stroka 3 el Данные Список stroka 3 importCell : stroka stroka 1 + : 6 1 line while Список_таблиц 4 1 line :

Чтение заданной таблицы. Возвращает массив значений

table_read read_table poisk Список_таблиц table_read 1 findrows : poisk 0 ≠ stroka 1 poisk 2 el range stolb 1 poisk 3 el range table stroka stolb el Данные table_read stroka stolb importCell : for for table 0 : if table 3 1 line :

Получение единиц измерения заданного столбца

table stolb ed_izm table 3 stolb el num2str IsString 0 ≠ ed ' table 3 stolb el concat str2num : ed 1 : if 1 1 line :

Чтение и присвоение одного параметра из таблицы table столбца stolb

table x : stolb x : table 2 stolb el num2str - ≠ stroka_v 1 : stolb_znach table stolb col : stroka 4 stolb_znach rows range str_1 el( table 2 stolb el , stroka_v num2str ,1) concat : znach stolb_znach stroka el : param_txt str_1 : znach*ed_izm(table,stolb) concat : param_txt str2num stroka_v stroka_v 1 + : 5 1 line for 3 1 line param_txt : if 3 1 line

Читает и заполняет параметры из таблицы table начиная со start по end

table Ug : start 0 : start 0 ≡ start table chislov_diap 2 el : 0 if stolb start table cols range table 2 stolb el num2str - ≠ stroka_v 1 : stolb_znach table stolb col : stroka table chislov_diap 1 el stolb_znach rows range str_1 el( table 2 stolb el , stroka_v num2str ,1) concat : znach stolb_znach stroka el : param_txt str_1 : znach*ed_izm(table,stolb) concat : param_txt str2num stroka_v stroka_v 1 + : 5 1 line for 3 1 line param_txt : if for 4 1 line <p>ЛПТау последовательность</p> Лптау 51 10 1 3 mat

Возвращает дробную часть х

x frac x x trunc - :

Возвращает значение ЛПТау последовательности в позиции

ii j lptay ii 0 ≡ sum.2 0 : m 1 ii ln 2 ln / trunc + : sum.2 0 : k 1 m range sum.1 0 : l m k range sum.1 sum.1 2 ii 2 l - ^ * frac * trunc 2 r j l el 2 k 1 - l - ^ * frac * trunc * + : for sum.2 sum.2 2 k - 1 + ^ 1 2 / sum.1 * frac * + : 3 1 line for sum.2 4 1 line if :

Возвращает массив точек ЛПТау последовательности

I J massiv_lptay i 0 I range j 1 J range mass i 1 + j el i j lptay : for for mass 2 1 line :