mirror of
https://github.com/PDP-10/stacken.git
synced 2026-01-14 07:30:05 +00:00
95 lines
1.0 KiB
Plaintext
95 lines
1.0 KiB
Plaintext
.r reduce
|
|
INTEGER PROCEDURE FACTORIAL N;
|
|
FOR I:= 1:N PRODUCT I;
|
|
|
|
|
|
FACTORIAL 50;
|
|
|
|
MATRIX M(3,3);
|
|
|
|
FOR I:=1:3 DO FOR J:=1:3 DO M(I,J):=1/(X-I-J);
|
|
|
|
DET M;
|
|
|
|
ON GCD;
|
|
|
|
!*ANS;
|
|
|
|
1/M;
|
|
|
|
EXP1 := A**2*(B**2+2*B)+A*(B**2+2*C)/(2*D);
|
|
|
|
SYMBOLIC !*ANS;
|
|
|
|
FACTOR A;
|
|
|
|
EXP1;
|
|
|
|
ON DIV;
|
|
|
|
EXP1;
|
|
|
|
OFF DIV;
|
|
ON RAT;
|
|
EXP1;
|
|
|
|
ON FORT;
|
|
|
|
EXP1;
|
|
|
|
OFF FORT,RAT;
|
|
REMFAC A;
|
|
UP D;
|
|
|
|
EXP1;
|
|
DOWN A;
|
|
EXP1;
|
|
|
|
|
|
|
|
LET EXP2 = 2+3*(2-X)/(Y-1)**3 - 3*Y/(X-1)**3;
|
|
|
|
|
|
EXP2;
|
|
|
|
SYMBOLIC !*ANS;
|
|
|
|
DF(!*ANS,X);
|
|
|
|
OFF MCD;
|
|
|
|
EXP2;
|
|
|
|
SYMBOLIC !*ANS;
|
|
|
|
DF(EXP2,X);
|
|
|
|
OPERATOR INT;
|
|
LINEAR INT;
|
|
|
|
LET INT(1,X)=X,
|
|
INT(X,X)=X**2/2;
|
|
FOR ALL K LET INT(X**K,X)=X**(K+1)/(K+1);
|
|
LET INT(E**(-X),X)=-E**(-X),
|
|
INT(X*E**(-X),X)=-X*E**(-X)-E**(-X);
|
|
FOR ALL K LET INT(X**K*E**(-X),X)=
|
|
-X**K*E**(-X)+K*INT(X**(K-1)*E**(-X),X);
|
|
|
|
EXP:= X**3*E**(-X)-2*X+3;
|
|
|
|
INT(EXP,X);
|
|
|
|
INT(!*ANS,X);
|
|
|
|
DF(!*ANS,X,2);
|
|
|
|
SYMBOLIC CAR ''(X Y Z);
|
|
|
|
SYMBOLIC PROCEDURE CONSZ U;
|
|
IF NULL U THEN NIL ELSE (''Z . CAR U) . CONSZ CDR U;
|
|
|
|
SYMBOLIC;
|
|
CONSZ ''(X Y Z);
|
|
CAR A;
|
|
|