md:PPLOT - SHAREWARE POLAR PLOTTING PROGRAM - 12/17/87 updaten:Copyright 1985,1986,1987,1988 Prowess, Inc.x:THIS PROGRAM RESOLVES AND PLOTS VECTORS: :: ,  R(3),U(3),X(3),Y(3),XC(3),YC(3)$ ,:XX$(N, )N ,: ,: ()(),)() L : L,: (): L,>: (): L ,#: "POLAR PLOTTING" ,: "Copyright 1986,1987,1988 Prowess,Inc." ,: ,: ()(),)()& ,: ,: ()(N,)()F ,K: ,: "V2.1": ,U L x L,: (): L,P: () L ,: ()(N,)(): , SKIP   ,: "Do you want to read the instructions? (Y/N/Q)""  ,>:K$: K$"" "V, K$"Y" K$"y"  ,: XX$: ,K: " ":  6 K$"N" K$"n"  ,: XX$: ,K: " ": @ K$"Q" K$"q" Z J " T:-----------------------clear pgm. field subroutine------------------------3^ LL  : LL,: (L, ): LL:h:---------------------clear message panel subroutine-----------------------r LL : LL,: (L, ): LL:|:--------------------------enter polar equation(s)-------------------------5 ,:PIO–hI:BIG:AMIN:AMAXh:SKIP  , : "Polar equations of the form: r = f(";();")................1"  , : "Polar equations of the form: x = f(";();") and y = f(";();")....2" ,: "Enter selection number"* ,:EE$: EE$"" H EE$"Q" EE$"q" Z n (EE$) (EE$) :  (EE$)  (EE$)  ^: r  ,: :  ,  ,: "ENTER YOUR POLAR EQUATION IN THE FORM R = f(A)"%  , : ,: "EXAMPLE:"N  ,: "R = 10 * SIN(2*A)": ,c ,: "R = "x ,: EQ1$& EQ1$"Q" EQ1$"q" Z 0 (EQ1$) : :B$"2410 R = "DC$ B$EQ1$*N:------------writes the equation string to a file called fct1.bas-----------BX "O",#,"FCT1.BAS"Qb #,C$Zl #v:-----------merges fct1.bas with this pgm. and continues execution --------- "FCT1.BAS",,ALL  ^: r4:--------------------------enter parametric form--------------------------D ^: r ,: ,: "You will enter two equations: Y = f("();") and X = f(";();")"  ,: ,: "Enter the 1st equation in the form Y = f(A) & press 'RETURN'"/  , : ,: "EXAMPLE: Y = 5 * SIN(2*A)"K  ,: ,: "Y = "`  ,: EQ2$uD$ "2430 Y = " EQ2$"Q" EQ2$"q" : Z  (EQ2$) :  E$ D$EQ2$:----------------writes 1st equation to file called fct2.bas --------------/  "O",#,"FCT2.BAS"=* #,E$M4 #:  ,> FLAG FLAG: "FCT2.BAS",R,ALL: tH:----------------------------enter 2nd function--------------------------$R ,: ,: "Enter the 2nd equation in the form x = f(A) & press 'RETURN'"Q\ , : ,: "EXAMPLE: X = COS(A/4)"lf ,: ,: "X ="pG$ "2450 X = "z ,: ,: EQ3$ EQ3$"Q" EQ3$"q" Z  (EQ3$) : zF$ G$EQ3$;:-----------------writes 2nd equation to a file called fct3.bas------------S "O",#,"FCT3.BAS"b #,F$k #:-----merges fct2.bas & fct3.bas with this pgm and continues execution----- "FCT2.BAS",,ALL "FCT3.BAS",,ALL (EE$)  : ~d:--------------finds largest value of r for scaling------------------------~ ^: r:    ,: ,: "FINDING LARGEST VALUES FOR SCALING" ,P:RMAX AAMINPI AMAXPI PI$ j . YPR(A)#8 XPR(A)9B RRMAX RMAXRYL (YP)BIG BIG(YP)yV (XP)BIG BIG(XP)` Aj t:----------------finds largest valueof y and x for scaling---------------~ ^: r::  0   ,: ,: "FINDING LARGEST VALUES FOR SCALING"B  ,:RMAXl  AAMINPI AMAXPI PIw  ~  (Y)BIG BIG(Y)    (X)BIG BIG(X) R(XY)  RRMAX RMAXR  A  F!:---------------------------set-up plot field----------------------------T!: ,,x!  ANG FI ilI!JANG! (,d),!( ((h(J)),d(L(J))),!2 ANG"< (ffU,d)(,d),,, :-draws horizontal axis--------_"F (,1)(,L7),,, :-draws vertical axis---------k"P  ,@|"Z "0 (2*PI)""d ,#"n "90 (PI/2)""x  ," "180 (PI)"" ,#" "270 (3*PI/2)"" (EE$)  <#:------------------plot routine for the r=f(ang) case------------------M#AAMINPIW# j m#YPR(A)FBIG#XPR(A)BIG# ,: "PLOTTING"# (XP,dYP) :----sets 1st point for r=f(a)---------$ AAMINPI AMAXPI PI$ j 5$ YPR(A)FBIGN$ XPR(A)BIG$ ( XP,dYP) :----------draws graph of r=f(a)--------$" A$, "I",#,"FCT1.BAS"$6 #,J$$@ ,$J "GRAPH OF: ";(J$,)$T #%^ ,<: "R(MAX) = ";RMAX=%h ,: " "W%r ,F: "PRESS ANY"}%| ,F: " KEY": I : I% ,F: " ": ,F: " "% ,J:A$: A$"" % &&:---------------plot routine for the y=f(ang),x=f(ang) case-------------7&AAMINPIA& ~ K&  c& ,: "PLOTTING"& (((X)BIG),d(YFBIG)) :---sets 1st point (x & y)---& AAMINPI AMAXPI PI& ~ &  =' ((XBIG),d(YFBIG)) :plots x-y =f(a) graph----E' A]' "I",#,"FCT2.BAS"u' "I",#,"FCT3.BAS"'& #,K$'0 #,L$': ,'D "GRAPH OF: ";(K$,)'N , 'X (L$,)'b #'l # (v ,<: "R(MAX) = ";RMAX'( ,: " "A(d:IPLOT - SHAREWARE F(X) PLOT WITH INTEGRATIONn:COPYRIGHT 1985,1986,1987 Prowess, Inc.x: :,,: ,,: ,:XX$(N, ) R(3),U(3),X(3),Y(3),XC(3),YC(3)2 ,: ,: ()(),)()d L : L,: (): L,>: (): L ,": "RECTLINEAR PLOT" ,: "Copyright 1986,1987,1988 Prowess,Inc." ,: ,: ()(),)()  ,: ,: ()(N,)()+ ,K: ,: "V2.6": ,: L ] L,: (): L,P: ()e L ,: ()(N,)(): , FLAG T  ,: "Do you want to read the instructions? (Y/N/Q)"  ,>:K$: K$"" < K$"Y" K$"y"  ,: XX$: ,K: " ": B w" K$"N" K$"n"  ,: XX$: ,K: " ": @, K$"Q" K$"q" 6 @  ,: (K, )J XY:PIO–hIT  ,%^ ,: "Enter your equation in the form Y=f(X) and press 'return'": ,h ,: "EXAMPLE: Y = 2*X^2 - 20*X - 3 or Y = exp(-.3*X)*sin(4*X)":  , : ,: "Y ="8r FLAG ,: ,: "YOUR EQUATION WAS ": ,: ,: "Y = ";EQ$: ,: ,: "DIVISION BY ZERO OCCURED-REENTER EQUATION AND CHECK RANGE OF X":  ,:FLAG: ,| FLAG ,: ,: "YOUR EQUATION WAS ": ,: ,: "Y = ";EQ$: ,: ,: "PLEASE CHECK FOR SYNTAX ERROR AND REENTER ":  ,:FLAG: , FLAG ,: ,: "YOUR EQUATION WAS ": ,: ,: "Y = ";EQ$: ,: ,: "AN ILLEGAL FUNCTION CALL WAS MADE-POSSIBLY AN IMMAGINARY NUMBER WAS CREATED" FLAG ,: " - REENTER THE EQUATION. CHECK YOUR RANGE SPECIFICATION." ,:FLAG: ,?:---------------------inputs user's equation string---------------------B$"1910 Y=" :line # at which user eq. will be placed---------  ,: EQ$: (EQ$) : : hC$ B$EQ$:----------writes the equation string to a file called funct.bas---------6 "O",#,"FUNCT.BAS"F #,C$O #:-------merges funct.bas with this pgm. and continues execution---------- "FUNCT.BAS",0,ALL: :----------------------clear upper & lower fields-------------------------> LL : LL,: (L, ): LLh LL : LL,: (K, ): LL:&:-------------------------------------------------------------------------0  ,: D:--user defines range of x over which to plot-------------VN ,: "Enter RANGE of X over which to plot. (Xmin,Xmax)":  ,X ,: "NOTE: XMIN must be smaller than XMAX !!!":  ,b  ,: "The X-AXIS will be scaled + and - whichever (Xmin or Xmax) has the largest"l  ,: "absolute value."hv ,: "Example: If you wish to plot the function from X = -10 to X = 0, you would" ,: "enter -10,0. The X axis would run from -10 to +10 and the function would" ,: "be plotted from X = -10 to X = 0, as you requested." ,4: "",XMIN,XMAXT XMINXMAX : ,4: " ": INC (XMAXXMIN) :sets up plotting increment of x: ,: ------------determines largest values of x and y for scaling ---------- B  ,: "FINDING MAX VALUES OF X AND Y FOR SCALING"^XXMIN: ,: h vYBIG(Y):XBIG(X) K  X X INC  v (Y) YBIG YBIG(Y)  K * (XMIN) (XMAX) XBIG(XMIN) : XBIG(XMAX)g 4:------------------------draws plotting field-----------------------------m >y H ,: R (,)(,),,B :draws graph field--------------- \ I(l  (l)!f (;(IU),)(;(IU),),,, :+ vert grid linesu!p (;(IU),)(;(IU),),,, : - vert grid lines!z (,ff&I)(,ff&I),,, :+ horiz grid lines " (,ff&I)(,ff&I),,, :- horiz grid lines" I_" (;,)(;,), :draws vertical axis -----------------" (,ff&)(,ff&), :draws horizontal axis ---------------": -------------------prints axis labels, etc. ---------------------------# ,(# "Y"#  ,@(# "X"3# ,@G# YBIG j# "+#######.####";YBIG: # "+#.#####";YBIG:# ,A# YBIG# $# "#######.####";YBIG: .#$ "#.#####";YBIG#. ,A: " "#8 , $B XBIG V4$L "#######.####";XBIG: `L$V "#.#####";XBIG^$` , : " "j$j ,8~$t XBIG $~ "+#######.####";XBIG: $ "+#.#####";XBIG$ ,($ "0"$  ,$ "0"5%: -----------------------plots points------------------------------------_%XXMIN:W$(P, ): ,: "PLOTTING"i% v% ((;(X)XBIG),(ff&(YYBIG))) :sets cursor to 1st pt.& K  :scales and plots user function& XXINC& vU& ((;(X)XBIG),(ff&(Y)YBIG)),]&  Kv& ,: " "& ,&( "I",,"FUN