34. ACL-код для копипаста

Здесь показаны куски программ, которые часто повторяются, но которые не удобно делать суперкомандами, так как кое-что надо редактировать. Быстрее скопировать текст в программу и настроить для конкретного случая.

процедура для вызова суперкоманд #pro scom # &$=&; &=(s(7)*(35-s(7)))<1>0; #case 1 #e [b=KY; le=670;] _text # &$=&; #end | #case 0 #pr Invalid number of pro scom \I9 s(7);\E #e [b=KY; le=670; n=33;] _text #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; График 1D функций #pr fn|title\E #d 7 A J N 1 -x0 x0 247 1100 #e [n=1;] _scom График части 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 #e [n=1;] _scom Интерполяция массива на другое число точек в тех же границах #d 7 r(1) J 0 1 m 0 1 n #e [n=9;] _scom Показать на графике часть массива r() #d 2 r(ZZ-10) J n #e [n=26;] _scom Запись массива в файл #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;