1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-16 00:14:18 +00:00
PDP-10.its/src/share/plot2.demo
2018-05-11 12:09:45 +02:00

33 lines
978 B
Plaintext
Executable File
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

PLOT2(SIN(X),X,-%PI,%PI)$
LST:[1,1,2,3,5,8,13,21,34]$
PLOT2(LST[I], I, 1, LENGTH(LST), INTEGER)$
F(X):=SQRT(X+%PI)$
PLOT2(F(X),X,[-2,3,100.12])$
PLOT2([X+1,X^2+1],X,-1,1)$
GRAPH2([1,2,3],[5,10,6])$
PARAMPLOT2(SIN(T),COS(T),T,0,2*%PI)$
PLOT3D(EXP(-X^2-Y^2)*X,X,-2,2,Y,-1.5,2.5)$
TRANSLATE:TRUE$
PLOT3D(SIN(X)+A,X,-%PI,%PI,A,[-2,3,4,6],NOT3D)$
CONTOURS:10$
LABELCONTOURS:FALSE$
CONTOURPLOT2(Y^2/2+COS(X)+X/2,X,-6,6,Y,-3,3)$
CONTOURS:[0]$
CONTOURPLOT2([REALPART((X+%I*Y)^3-1),IMAGPART((X+%I*Y)^3-1)],
X,-1.5,1.5,Y,-1.5,1.5,[0,1])$
CONTOURS:PLOTNUM:PLOTNUM1:10$
CONTOURPLOT2(RANDOM(100),X,0,1,Y,0,1)$
PLOTNUM:20$
PLOT2(1,X,0,2*%PI)$
REPLOT(TRUE,POLAR)$
EQUALSCALE:TRUE$
REPLOT()$
EQUALSCALE:FALSE$
PLOT2(EXP(X),X,0,3,X,EXP(X),"THIS IS A PLOT OF EXP(X) VS. X")$
PLOT2(SIN(X),X,-%PI,%PI,FALSE,SIN(X))$
PLOT2([SIN(X),COS(X)],X,-%PI,%PI,[0,1])$
TT:[0,1,2,3,4,5,6,7,8]$
PLOTNUM1:9$
PLOT3D(SIN(X)+A,X,-%PI,%PI,A,0,2,TT,NOT3D)$
GRAPH2([1,2,5,10,50,100],[1,1.5,2.5,3,7,10],LOG)$