Здесь показаны куски программ, которые часто повторяются, но которые не удобно делать суперкомандами, так как кое-что надо редактировать. Быстрее скопировать текст в программу и настроить для конкретного случая.
*** Код для работы со всеми файлами в заданной папке. Имя папки находится в текстовом массиве \TI2 S2 # w=KY-9999; # s(3)=w; #f [op=fcat; file=\TI2 S2\E] # i1=w; s1=s(5); #rob [mo=1; le=99;] #te [op=find; b=i1; le=s1; n=201; c=124;] # J=99; i=i1; j=201; n=s(1); $=0; &=n<5; #case 5 #pf [op=o; le=n;] # $=1; #end | #rep n # c=i(j)-i; s(3)=99; #pr \TI2 S2\Ti c\E # u=99; v=s(5); s(3)=1; &=Nv; ! #case 1 #end | #case 2 #end | #case 3 #end | # &=$; #case 1 #pf [op=m; siz=j;] #end | # i=i+c+1; j=j+1; #end # &=$; #case 1 #pf [op=c;] #end | *** Вызов процедур по списку #e [c=1;] 0001 #e [c=2;] 0002 #e [c=3;] 0003 #e [c=4;] 0004 #e [c=5;] 0005 #e [c=6;] 0006 #e [c=7;] 0007 *** Константы # P1=3.14159265; KE=0.506774; RD=P1/180; *** Разметка массива # J=101; J1=J+N; J2=J1+N; J3=J2+N; J4=J3+N; J5=J4+N; *** Отредактировать код и выполнить ##6 #f [file=arg;] \Ta b name\E \Ta b name\E #e [c=1;] file \Ta b name\E *** График 1D функций #pr fn|title\E #d 7 A J N 1 -x0 x0 247 1100 ##1 *** График части 1D массива #pr fn|title\E # o=0.25; A=J+N*(1-o)/2; B=N*o; x0=-d*B/2; #d 5 C 1 -x0 x0 247 1100 ##1 *** Интерполяция массива на другое число точек в тех же границах #d 7 r(1) J 0 1 m 0 1 n ##9 *** Показать на графике часть массива r() #d 2 r(ZZ-10) J n ##26 *** Запись массива в файл #pr dat\I-2 V $;.dat\E #io [op=wd; fir=r(j); n=N; mo=1; file=\Tp\E] *** Вычисление Del, Bet, тут возможны варианты # i=I1; N=S1; #e _form #d 4 r(1) E E 1 D0 #e _calir # a=1e4; D8=r(102)*a; B8=r(103)*a;
.