DC.8xp

Contributed by: Joel Gordon '05

Purpose: Draws the Davenport Central Devil logo.

Download DC.8xp

Screenshots

screenshot

Source Code

:ClrHome
:For(X,11,2,-1)
:Output(4,X,"Programmed By: ")
:Output(4,X+5,"")
:For(A,1,50)
:End
:End
:Output(5,4,"Joel Gordon"
:Pause
:Menu("DC","The D",1,"The C",2,"The D and C",3,"Exit",4)
:Lbl 1
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:
:DrawF ((-1/e^-X))+10)/((X<1.8)(X>-5.5))
:DrawF ((1/e^-X))-1.5)/((X<-3)(X>-5.5))
:DrawF ((1/e^-X))-1.5)/((X<1.8)(X>-1.4))
:DrawF ((-2X-9.85)^5+9.5)/(X<-4.05)
:DrawF ((2X+10)^5-1.1)/((X>-5.5)(X<-4.1))
:DrawF ((-.5X-1.5)^3+9)/((X>-2.35)(X<0))
:DrawF ((-2X-6.3)^9+9.5)/((X>-2.8)(X<-2.4))
:DrawF ((.5X+1.5)^3-.5)/((X>-1.2)(X<0))
:DrawF ((2X+6.3)^9)/((X>-2.9)(X<-2.5))
:DrawF ((-2X-1.4)^3+7.5)/((X>-.63)(X<.01))
:DrawF ((2X+1.6)^3)/((X<.2)(X>-.3))
:Stop
:Lbl 2
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZStandard
:DrawF (-e^-X-2)+2)/((X<0)(X>-3.6))
:DrawF (e^-X-2)-10)/((X>-3.6)(X<1))
:DrawF (e^X-3.5)-10)/((X>0)(X<3.5))
:DrawF ((2X+5.6)^3)/((X<-3.2)(X>-3.65))
:DrawF ((-2X-5.6)^5-7)/((X<-3.1)(X>-3.6))
:DrawF ((X+.5)^5)/((X<-1.06)(X>-1.8))
:DrawF ((-X-.3)^5-8)/((X>-1.8)(X<0))
:DrawF ((.5X-.3)^3-8.5)/((X>-.1)(X<3))
:DrawF ((-X+2.7)^29-6.5)/((X>2.8)(X<3.829))
:DrawF ((X-2.5)^5-10.5)/((X>3.5)(X<4))
:DrawF (-((X-1)^2-1))/((X>2)(X<3))
:DrawF ((-X+3.8)^7-3)/((X>2.8)(X<3.8))
:DrawF (-((.5X)^2-1)/((X>1)(X<2))
:DrawF ((-X+2.8)^55+2)/((X>2.6)(X<4))
:DrawF ((sin(1/(X-2.9))+2.2)/((X>1)(X<2.7))
:Stop
:Lbl 3
:Func
:CoordOff
:GridOff
:AxesOff
:LabelOff
:ExprOff
:ZStandard
:DrawF ((-1/e^-X))+10)/((X<1.8)(X>-5.5))
:DrawF ((1/e^-X))-1.5)/((X<-3)(X>-5.5))
:DrawF ((1/e^-X))-1.5)/((X<1.8)(X>-1.4))
:DrawF ((-2X-9.85)^5+9.5)/(X<-4.05)
:DrawF ((2X+10)^5-1.1)/((X>-5.5)(X<-4.1))
:DrawF ((-.5X-1.5)^3+9)/((X>-2.35)(X<0))
:DrawF ((-2X-6.3)^9+9.5)/((X>-2.8)(X<-2.4))
:DrawF ((.5X+1.5)^3-.5)/((X>-1.2)(X<0))
:DrawF ((2X+6.3)^9)/((X>-2.9)(X<-2.5))
:DrawF ((-2X-1.4)^3+7.5)/((X>-.63)(X<.01))
:DrawF ((2X+1.6)^3)/((X<.2)(X>-.3))
:DrawF (-e^-X-2)+2)/((X<0)(X>-3.6))
:DrawF (e^-X-2)-10)/((X>-3.6)(X<1))
:DrawF (e^X-3.5)-10)/((X>0)(X<3.5))
:DrawF ((2X+5.6)^3)/((X<-3.2)(X>-3.65))
:DrawF ((-2X-5.6)^5-7)/((X<-3.1)(X>-3.6))
:DrawF ((X+.5)^5)/((X<-1.06)(X>-1.8))
:DrawF ((-X-.3)^5-8)/((X>-1.8)(X<0))
:DrawF ((.5X-.3)^3-8.5)/((X>-.1)(X<3))
:DrawF ((-X+2.7)^29-6.5)/((X>2.8)(X<3.829))
:DrawF ((X-2.5)^5-10.5)/((X>3.5)(X<4))
:DrawF (-((X-1)^2-1))/((X>2)(X<3))
:DrawF ((-X+3.8)^7-3)/((X>2.8)(X<3.8))
:DrawF (-((.5X)^2-1)/((X>1)(X<2))
:DrawF ((-X+2.8)^55+2)/((X>2.6)(X<4))
:DrawF ((sin(1/(X-2.9))+2.2)/((X>1)(X<2.7))
:Stop
:Lbl 4
:ClrDraw
:ClrHome
Generated by SourceCoder, © 2005 Cemetech