\start83P\ \comment=Program file dated 04/10/96, 18:39 \protected=FALSE \name=BTWNCURV ClrHome Menu("EXPS IN Y\1\+Y\2\?","YES",2,"NO",1) Lbl 1 Disp "EXPRESSION OF","TOP CURVE" Input "IN QUOTES:",Y\1\ Disp "EXPRESSION OF","BOTTOM CURVE" Input "IN QUOTES:",Y\2\ Lbl 2 FnOff FnOn 1,2 Input "LOWER BOUND:",A Input "UPPER BOUND:",B If A\>=\B Goto 2 (B-A)/94\->\C A-C\->\Xmin B+C\->\Xmax 4.7C\->\Xscl Y\2\(fMin(Y\2\,X,A,B))\->\D Y\1\(fMax(Y\1\,X,A,B))\->\E (E-D)/64\->\F D-8F\->\Ymin E+F\->\Ymax 3.2F\->\Yscl A\->\G Lbl 3 Y\1\(G)\->\H Y\2\(G)\->\I If H Y\2\" Stop End G+4C\->\G If G\<=\B Goto 3 Menu("DO YOU WANT...","AREA",4,"VOL CIRC REV",5,"CENTROID",8) Lbl 4 fnInt(Y\1\-Y\2\,X,A,B)\->\G Shade(Y\2\,Y\1\,1,A,B) Text(57,0,"AREA=",G) Stop Lbl 5 Menu("REVOLVE AROUND","HOR LINE Y=",6,"VERT LINE X=",7) Lbl 6 Input "LINE: Y=?",H If H>D and H=\E H\->\E If H\<=\D H\->\D (E-D)/64\->\F D-8F\->\Ymin E+F\->\Ymax 3.2F\->\Yscl abs((\pi\*fnInt((Y\1\-H)\^2\-(Y\2\-H)\^2\,X,A,B))\->\G Horizontal H Shade(Y\2\,Y\1\,1,A,B) Text(57,0,"VOL CIRC REV=",G) Stop Lbl 7 Input "LINE: X=?",H If H>A and H\Xmin B\->\Xmax If H\<=\A H\->\Xmin If H\>=\B H\->\Xmax (Xmax-Xmin)/94\->\C Xmin-C\->\Xmin Xmax+C\->\Xmax 4.7C\->\Xscl 2\pi\fnInt((abs((H-X))(Y\1\-Y\2\),X,A,B)\->\G Vertical H Shade(Y\2\,Y\1\,1,A,B) Text(57,0,"VOL CIRC REV=",G) Stop Lbl 8 fnInt(Y\1\-Y\2\,X,A,B)\->\G fnInt(X(Y\1\-Y\2\),X,A,B)/G\->\H fnInt(((Y\1\+Y\2\)/2)(Y\1\-Y\2\),X,A,B)/G\->\I Shade(Y\2\,Y\1\,1,A,B) Pt-Change(H,I) Pt-Change(H+\Delta\X,I) Pt-Change(H-\Delta\X,I) Pt-Change(H,I+\Delta\Y) Pt-Change(H,I-\Delta\Y) Text(57,0,"X=",H) Text(57,49,"Y=",I) Stop COPYRIGHT STEPHEN OSTERMILLER APRIL 1996 \stop83P\