Trig Functions: Circle DefinitionsCheng Cheng, & Emily Mason##################################
# Header For All Mapletsrestart:
with(Maplets[Elements]):with(Maplets[Tools]):
StartEngine();randomize():lightorange:="#FFB300":lightcyan:="#DDFFFF":lightblue:="#CFCFFF":lightgreen:="#CCFFCC":darkgreen:="#00C000":ColorBkgd:=wheat:ColorFooter:=lightcyan:ColorNewButton:=magenta: # or Make, Save, Enter ProblemColorReturnButton:=magenta:ColorCloseButton:=pink: # or Quit, Clear, Reset, CancelColorHintButton:=lightorange: # or SyntaxColorPrevButton:=turquoise: # or UpdateColorEnterButton:=turquoise:ColorSimplifyButton:=lightorange:ColorCheckButton:=green:ColorShowButton:=lightorange:ColorPlotButton:=gold: ColorPlotButtonFrgd:=yellow:ColorTableBkgd:=lightgreen:ColorCalculatorBkgd:=gold:ColorMessage:=white: ColorMessageFrgd:=black:ColorInput:=turquoise: ColorInputFrgd:=black:ColorCorrect:=green: ColorCorrectFrgd:=black:ColorIncorrect:=red: ColorIncorrectFrgd:=white:ColorWarning:=yellow: ColorWarningFrgd:=black:ColorShow:=lightorange: ColorShowFrgd:=black:ColorHint:=lightorange: ColorHintFrgd:=black: # or Info, SyntaxColorDisable:=wheat: ColorDisableFrgd:=black:FontFooter:=Font("helvetica",10):FontSymbol:=Font("symbol",12):FontBig:=Font("times",24):LIBLogo:=cat(libname,"/M4C/M4C.png"):Logo:="M4C.png":#LIBLogo:=cat(libname,"/M4C/WebALT_logo.png"):#Logo:="WebALT_logo.png":################################### Template Translation Table For All MapletsTEXTLprogrammers:="Programmers: D.B. Meade & P.B. Yasskin":TEXTLcopyright:="@ Copyright: Maplets for Calculus 2005-07":#"@ Copyright: WebALT 2006-07":TEXTLversion:="M4C v1.2 Nov 2007":TEXTBQuit:="Quit":TEXTBClose:="Close":TEXTBCheck:="Check":TEXTBShow:="Show":TEXTBShowAll:="Show All Steps":TEXTBCheckAns:="Check Answer":TEXTBShowAns:="Show Answer":TEXTBInstructions:="Instructions":TEXTBHint:="Hint":TEXTBHints:="Hints":TEXTBSyntax:="Syntax":TEXTBHintSyntax:="Hints and Syntax":TEXTBPrev:="Preview":TEXTBUpdate:="Update":TEXTBDerivation:="Derivation":TEXTBNewProblem:="New Problem":TEXTBNewFunction:="New Function":TEXTBNewGraph:="New Graph":TEXTBNewEquation:="New Equation":TEXTBNewLimit:="New Limit":TEXTBNewDerivative:="New Derivative":TEXTBNewIntegral:="New Integral":TEXTBNewSequence:="New Sequence":TEXTBNewSeries:="New Series":TEXTBNewDiffEq:="New Differential Equation":TEXTBEnterProblem:="Enter Problem":TEXTBEnterFunction:="Enter Function":TEXTBEnterGraph:="Enter Graph":TEXTBEnterEquation:="Enter Equation":TEXTBEnterLimit:="Enter Limit":TEXTBEnterDerivative:="Enter Derivative":TEXTBEnterIntegral:="Enter Integral":TEXTBEnterSequence:="Enter Sequence":TEXTBEnterSeries:="Enter Series":TEXTBEnterDiffEq:="Enter Differential Equation":TEXTBMake:="Modify or Make Your Own Problem":TEXTBSaveClose:="Save Problem and Close":TEXTBAskQuestion:="Ask Question":TEXTBNextQuestion:="Next Question":TEXTBHowtoAnswer:="How to Answer":TEXTBEnter:="Enter":TEXTBOK:="OK":TEXTBReturn:="Return":TEXTBClear:="Clear":TEXTBClearSelections:="Clear Selections":TEXTBClearAll:="Clear All Steps":TEXTBReset:="Reset":TEXTBRestart:="Restart":TEXTBCancel:="Cancel":TEXTBPlot:="Plot":TEXTBPlotIt:="Plot It":TEXTBAnimate:="Animate":TEXTBPlay:="Play":TEXTBPause:="Pause":TEXTBForward:="Forward":TEXTBReverse:="Reverse":TEXTBStep:="Step":TEXTBUpdatePlot:="Update Plot":TEXTBZoomIn:="Zoom In":TEXTBZoomOut:="Zoom Out":TEXTBPlotSetup:="Plot Setup":TEXTBRefresh:="Refresh":TEXTBSimplify:="Simplify":TEXTBFactor:="Factor":TEXTBExpand:="Expand":TEXTBNormalize:="Normalize":TEXTBRationalize:="Rationalize":TEXTBSort:="Sort":TEXTBDecimal:="Decimal":TEXTBExact:="Exact":TEXTCorrect:=" correct ":TEXTIncorrect:="incorrect":TEXTWarning:=" warning ":TEXTShown:=" shown ":TEXTSlower:="Slower":TEXTFaster:="Faster":TEXTEnterFormula:=" Enter Formula:":TEXTEvaluate:=" Evaluate:":TEXTApproximate:=" Approximate:":TEXTand:=" and ":TEXTor:=" or ":TEXTThus:=" Thus ":TEXTSo:=" So ":TEXTType:=" Type ":TEXTfor:=" for ":TEXTorcheck:=" or check: ":TEXTvertical:="vertical":TEXThorizontal:="horizontal":TEXTCBDNE:="does not exist":TEXTCB11scaling:="1-1 scaling":TEXTCBDoNotShow:="Do not show this window again.":TEXTRBNumeric:="Numeric":TEXTRBSymbolic:="Symbolic":TEXTRBTrue:="True":TEXTRBFalse:="False":TEXTRBT:="T":TEXTRBF:="F":TEXTRBPlot1:="Plot # 1":TEXTRBPlot2:="Plot # 2":TEXTRBPlot3:="Plot # 3":TEXTRBconverge:="converge":TEXTRBdiverge:="diverge":TEXTRBconverges:="converges":TEXTRBdiverges:="diverges":TEXTtitlePROBLEM:="Modify or Make Your Own Problem":TEXTtitlePREVIEW:="Preview":TEXTtitleHINT:="Hint":TEXTtitleSYNTAX:="Syntax":TEXTCapGoal:="Goal:":TEXTCapProbStat:="Problem Statement:":TEXTCapSyntaxTutorial:="Syntax Tutorial:":TEXTCapEnter:="Enter:":TEXTCapSpecify:="Specify:":TEXTCapTrueFalse:="True or False?":TEXTCapCalculator:="Calculator":TEXTCapPlot:="Plot":TEXTCapLegend:="Legend":TEXTCapEvaluate:="Evaluate:":TEXTCapDataTable:="Data Table":TEXTCapVis:="Visualization":TEXTCapAnim:="Animation":TEXTCapPreviewer:="Previewer":TEXTCapHorRng:="Horizontal Range:":TEXTCapVertRng:="Vertical Range:":TEXTAnimWait:=" Please be patient while the animation is generated.":TEXTreplyNoCheck:=" You must enter an expression to be checked.":TEXTreplyNoPrev:=" You must enter an expression to be previewed.":TEXTreplyNoSimplify:=" You must enter an expression to be simplified.":TEXTreplyNoFactor:=" You must enter an expression to be factored.":TEXTreplyNoExpand:=" You must enter an expression to be expanded.":TEXTreplyNoPlot:=" Please select a plot.":TEXTreplyNoSelection:=" Please select an answer.":TEXTreplyNoSaveProblem:=" You must fill in all the boxes before saving the problem.":TEXTreplyNoSlider:=" Set the slider to a number between %a and %a":DNEset:={"", undefined, Undefined, UNDEFINED, divergent, Divergent, DIVERGENT, diverges, Diverges, DIVERGES, dne, DNE, doesnotexist, DoesNotExist}:great:=[" Bullseye."," Right on the mark."," Great."," That's absolutely right."," Awesome. You're unstoppable."," Correct."," WOW, nailed that one."," You got it!"," YES! Right on."," Way to go."," Don't stop now."," I knew you could do it!"," Perfect. You're unstoppable."," Radical Dude."," Power house."," Sweet! Keep on Rockin'."," You rock!"," You got those mad skills."," Awesome!"," Wowzers! That was great!"," Awesome man!"," Good job! You really know what you are doing."," You're awesome kid."," Tearing it up."," Right on the money."," High Five!!!!!"," Cool Beans."," What a nerd!"," You're so money."," You're a genious."," You hit the nail on the head."," Excellent!"," If I had a cookie, I'd give it to you."," You're a winner."," That's a winner."," Whoop! Way to go."," That's the way, ah ha ah ha, I like it."," Oh yeah!"," You're the bomb!"," That was fantastic!"," Oh Snap!",NULL]:nextgeneric:=[" Keep it up."," Keep going.",NULL]:nextprob:=[" On to the next problem."," Try another problem."," You're ready for another problem.",NULL]:nextquest:=[" On to the next question."," Try another question."," You're ready for another question.",NULL]:nextpart:=[" On to the next part."," Try another part."," You're ready for another part.",NULL]:nextstep:=[" On to the next step."," Try another step."," You're ready for another step.",NULL]:nexteq:=[" On to the next equation."," Try another equation."," Solve another equation."," You're ready for another equation.",NULL]:nextfn:=[" On to the next function."," Try another function."," You're ready for another function.",NULL]:nextlim:=[" On to the next limit."," Try another limit."," Compute another limit."," You're ready for another limit."," Find another limit.",NULL]:nextderiv:=[" On to the next derivative."," Try another derivative."," Compute another derivative."," You're ready for another derivative."," Differentiate another function",NULL]:nextinteg:=[" On to the next integral."," Try another integral."," Compute another integral."," You're ready for another integral."," Integrate another function",NULL]:nextseq:=[" On to the next sequence."," Try another sequence."," Find the limit of another sequence."," You're ready for another sequence.",NULL]:nextser:=[" On to the next series."," Try another series."," Sum another series."," You're ready for another series.",NULL]:sorry:=[" Sorry, that's not right."," Nope, but don't give up."," Not quite, it's a little off."," Bummer, thought you would get it this time."," Close, but no cigar."," Slightly off."," If you need help, please ask a human."," I don't know where you went wrong."," Sorry, killer problem."," No, but don't blow it off."," D'oh!"," That's whack."," Yikes! Really close. You'll get it next time."," Thought you would get it this time."," Nice try, but your answer is wrong."," Ask your neighbor for help."," Brutal kid."," That won't fly."," So close and yet so far."," So, that was just practice."," Ooooh...close."," A swing and a miss."," Better luck next time."," Oops."," Tilt. Play again."," I know you can do better."," Sorry Charlie."," Tisk, tisk. It's a tough one."," It takes a lot of wrongs to make a right."," Even Einstein didn't get everything right."," Oh man, you were so close."," Today's not your lucky day."," Don't quit your day job."," You're colder than a polar bear's toenail.",NULL]:trygeneric:=[" Fix your answer and check it again."," Give it another try."," Try again."," Please try again.",NULL]:tryhint:=[" Try the hints and answer again."," Read the hints and try again."," Study the hints and answer again.",NULL]:tryhelp:=[" Try the Help menu and answer again."," Look at the Help menu and try again.",NULL]:showgeneric:=[" OK That's just practice. But try doing it yourself."," That's fine for practice. Try doing it yourself."," Think about it and enter an answer yourself."," Next time, compute an answer yourself."," So that was practice. Try doing it yourself.",NULL]:showhint:=[" Next time, try the hints."," Read the hints and enter an answer yourself.",NULL]:showhelp:=[" Next time, read the Help menu."," Read the Help and enter an answer yourself.",NULL]:################################### Put Translation Table For Specfic Maplet HereTEXTLasstprogrammer:="Assistant Programmers: Cheng Cheng & Emily Mason":TEXTtitleMAIN:="Circle Definitions of Trigonometric Functions":TEXTBNewAngle:="New Angle":TEXTCap0:="Consider a Circle with a Ray at Angle A:":TEXTCap1:="Compute each of the following:":TEXTBCheckAllAns:="Check All Answers":TEXTBShowAllAns:="Show All Answers":TEXTreplyWrong:=" At least one of the trig functions is still wrong.":TEXThintr:=" r = sqrt(x^2+y^2)":TEXThintsin:=" sin(A) = y/r":TEXThintcos:=" cos(A) = x/r":TEXThinttan:=" tan(A) = y/x":TEXThintcot:=" cot(A) = x/y":TEXThintsec:=" sec(A) = r/x":TEXThintcsc:=" csc(A) = r/y":################################### Customize For Each Mapletswith(plots):with(plottools):nextlocal:=[" On to the next triangle."," Try another triangle."," You're ready for another triangle.",NULL]:trylocal:=[NULL]:showlocal:=[NULL]:nexts1:=[ #Keep what is appropriate. This is for all but the last check.op(nextgeneric),#op(nextprob),#op(nextquest),op(nextpart),op(nextstep),op(nextfn),#op(nextlocal),NULL]:nexts2:=[ #Keep what is appropriate. This is for the last check.#op(nextgeneric),op(nextprob),op(nextquest),#op(nexteq),#op(nextfn),#op(nextlim),#op(nextderiv),#op(nextinteg),#op(nextseq),#op(nextser),op(nextlocal),NULL]:trys:=[ #Keep what is appropriate.op(trygeneric),op(tryhint),op(tryhelp),op(trylocal),NULL]:shows:=[ #Keep what is appropriate.op(showgeneric),op(showhint),op(showhelp),op(showlocal),NULL]:randgreat:=rand(1..nops(great)):randnext1:=rand(1..nops(nexts1)):randnext2:=rand(1..nops(nexts2)):randsorry:=rand(1..nops(sorry)):randtry:=rand(1..nops(trys)):randshow:=rand(1..nops(shows)):##################################First:=true:pts:=[[1,1], [1,1], [sqrt(2),sqrt(2)], [sqrt(2),sqrt(2)], [1,sqrt(3)], [sqrt(3),1],[3,4], [4,3], [6,8], [8,6], [9,12], [12,9], [12,16], [16,12], [15,20], [20,15],[5,12], [12,5], [10,24], [24,10], [15,36], [36,15], [20,48], [48,20], [25,60], [60,25],[7,24], [24,7], [14,48], [48,14], [8,15], [15,8], [16,30], [30,16],[12,35], [35,12], [24,70], [70,24], [16,63], [63,16],[20,21], [21,20], [40,42], [42,40], [28,45], [45,28], [33,56], [56,33],[36,77], [77,36], [39,80], [80,39], [48,55], [55,48], [65,72], [72,65],
[-1,1], [-1,1], [-sqrt(2),sqrt(2)], [-sqrt(2),sqrt(2)], [-1,sqrt(3)], [-sqrt(3),1],[-3,4], [-4,3], [-6,8], [-8,6], [-9,12], [-12,9], [-12,16], [-16,12], [-15,20], [-20,15],[-5,12], [-12,5], [-10,24], [-24,10], [-15,36], [-36,15], [-20,48], [-48,20], [-25,60], [-60,25],[-7,24], [-24,7], [-14,48], [-48,14], [-8,15], [-15,8], [-16,30], [-30,16],[-12,35], [-35,12], [-24,70], [-70,24], [-16,63], [-63,16],[-20,21], [-21,20], [-40,42], [-42,40], [-28,45], [-45,28], [-33,56], [-56,33],[-36,77], [-77,36], [-39,80], [-80,39], [-48,55], [-55,48], [-65,72], [-72,65],
[1,-1], [1,-1], [sqrt(2),-sqrt(2)], [sqrt(2),-sqrt(2)], [1,-sqrt(3)], [sqrt(3),-1],
[3,-4], [4,-3], [6,-8], [8,-6], [9,-12], [12,-9], [12,-16], [16,-12], [15,-20], [20,-15],
[5,-12], [12,-5], [10,-24], [24,-10], [15,-36], [36,-15], [20,-48], [48,-20], [25,-60], [60,-25],
[7,-24], [24,-7], [14,-48], [48,-14], [8,-15], [15,-8], [16,-30], [30,-16],
[12,-35], [35,-12], [24,-70], [70,-24], [16,-63], [63,-16],
[20,-21], [21,-20], [40,-42], [42,-40], [28,-45], [45,-28], [33,-56], [56,-33],
[36,-77], [77,-36], [39,-80], [80,-39], [48,-55], [55,-48], [65,-72], [72,-65],
[-1,-1], [-1,-1], [-sqrt(2),-sqrt(2)], [-sqrt(2),-sqrt(2)], [-1,-sqrt(3)], [-sqrt(3),-1],[-3,-4], [-4,-3], [-6,-8], [-8,-6], [-9,-12], [-12,-9], [-12,-16], [-16,-12], [-15,-20], [-20,-15],[-5,-12], [-12,-5], [-10,-24], [-24,-10], [-15,-36], [-36,-15], [-20,-48], [-48,-20], [-25,-60], [-60,-25],[-7,-24], [-24,-7], [-14,-48], [-48,-14], [-8,-15], [-15,-8], [-16,-30], [-30,-16],[-12,-35], [-35,-12], [-24,-70], [-70,-24], [-16,-63], [-63,-16],[-20,-21], [-21,-20], [-40,-42], [-42,-40], [-28,-45], [-45,-28], [-33,-56], [-56,-33],[-36,-77], [-77,-36], [-39,-80], [-80,-39], [-48,-55], [-55,-48], [-65,-72], [-72,-65],NULL]:randpts:=rand(1..nops(pts)):ask:=proc()global __y, __x, __r, pts, randpts, First, correctsin, correctcos, correcttan, correctcot, correctsec, correctcsc, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;local p0, p1, p2, p3, p4, p5, angle_max, alignment;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;__y,__x:=op(pts[randpts()]);__r:=sqrt(__y^2+__x^2);Set(TFy=__y);Set(TFx=__x);Set(TFr=__r);correctsin:=__y/__r;correctcos:=__x/__r;correcttan:=__y/__x;correctcot:=__x/__y;correctsec:=__r/__x;correctcsc:=__r/__y;sinOK,cosOK,tanOK,cotOK,secOK,cscOK:=false,false,false,false,false,false;
p0:=circle([0,0], __r, thickness=2, color=magenta):
p1:=plot([[0,0], [__x,0], [__x,__y], [0,0], [0,__y], [__x,__y]], thickness=2, color=blue):
angle_max:=arctan(__y,__x);
angle_max:=`if`(evalf(angle_max)<0,angle_max+2*Pi,angle_max);
p2:=arc([0,0], .15*__r, 0..angle_max, thickness=2, color=magenta):
p3:=textplot([__x/2, 0, "x"], align=`if`(evalf(__y)>=0,BELOW,ABOVE),
font=[TIMES,BOLDITALIC,14]):
p4:=textplot([0, __y/2, "y"], align=`if`(evalf(__x)>=0,LEFT,RIGHT),
font=[TIMES,BOLDITALIC,14]):
if evalf(__y)>=0 and evalf(__x)>=0 then
alignment:={ABOVE,LEFT};
elif evalf(__y)<0 and evalf(__x)>=0 then
alignment:={BELOW,LEFT};
elif evalf(__y)>=0 and evalf(__x)<0 then
alignment:={ABOVE,RIGHT};
elif evalf(__y)<0 and evalf(__x)<0 then
alignment:={BELOW,RIGHT};
end if;
p5:=textplot([__x/2, __y/2, "r"], align=alignment,
font=[TIMES,BOLDITALIC,14]):
Set(PL=display([p0,p1,p2,p3,p4,p5], axes=normal, scaling=constrained,
view=[-1.1*__r..1.1*__r, -1.1*__r..1.1*__r], tickmarks=[0,0])):
if First then First:=false; Set(BsinCk(enabled)=true, BsinCk(background)=ColorCheckButton); Set(BsinSh(enabled)=true, BsinSh(background)=ColorShowButton); Set(BcosCk(enabled)=true, BcosCk(background)=ColorCheckButton); Set(BcosSh(enabled)=true, BcosSh(background)=ColorShowButton); Set(BtanCk(enabled)=true, BtanCk(background)=ColorCheckButton); Set(BtanSh(enabled)=true, BtanSh(background)=ColorShowButton); Set(BcotCk(enabled)=true, BcotCk(background)=ColorCheckButton); Set(BcotSh(enabled)=true, BcotSh(background)=ColorShowButton); Set(BsecCk(enabled)=true, BsecCk(background)=ColorCheckButton); Set(BsecSh(enabled)=true, BsecSh(background)=ColorShowButton); Set(BcscCk(enabled)=true, BcscCk(background)=ColorCheckButton); Set(BcscSh(enabled)=true, BcscSh(background)=ColorShowButton); Set(BallCk(enabled)=true, BallCk(background)=ColorCheckButton); Set(BallSh(enabled)=true, BallSh(background)=ColorShowButton);end if;Set(TFsin=""):Set(sinck="", sinck(background)=ColorMessage, sinck(foreground)=ColorMessageFrgd);Set(TFcos=""):Set(cosck="", cosck(background)=ColorMessage, cosck(foreground)=ColorMessageFrgd);Set(TFtan=""):Set(tanck="", tanck(background)=ColorMessage, tanck(foreground)=ColorMessageFrgd);Set(TFcot=""):Set(cotck="", cotck(background)=ColorMessage, cotck(foreground)=ColorMessageFrgd);Set(TFsec=""):Set(secck="", secck(background)=ColorMessage, secck(foreground)=ColorMessageFrgd);Set(TFcsc=""):Set(cscck="", cscck(background)=ColorMessage, cscck(foreground)=ColorMessageFrgd);Set(reply="", reply(background)=ColorMessage, reply(foreground)=ColorMessageFrgd);end proc:hint:=proc(func)options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;Set(reply=piecewise( func=1, TEXThintsin, func=2, TEXThintcos, func=3, TEXThinttan, func=4, TEXThintcot, func=5, TEXThintsec, func=6, TEXThintcsc), reply(background)=ColorHint, reply(foreground)=ColorHintFrgd):end proc:check_sin:=proc()global correctsin, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;local usersin;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;if Get(TFsin)="" then Set(reply=TEXTreplyNoCheck, reply(background)=ColorWarning, reply(foreground)=ColorWarningFrgd); return;end if;usersin:=Get(TFsin::realcons, corrections=true, update=true):if usersin=correctsin then sinOK:=true; Set(sinck=TEXTCorrect, sinck(background)=ColorCorrect, sinck(foreground)=ColorCorrectFrgd); Set(reply=cat(great[randgreat()], `if`(sinOK and cosOK and tanOK and cotOK and secOK and cscOK, nexts2[randnext2()], nexts1[randnext1()])), reply(background)=ColorCorrect, reply(foreground)=ColorCorrectFrgd):else sinOK:=false; Set(sinck=TEXTIncorrect, sinck(background)=ColorIncorrect, sinck(foreground)=ColorIncorrectFrgd); Set(reply=cat(sorry[randsorry()], trys[randtry()]), reply(background)=ColorIncorrect, reply(foreground)=ColorIncorrectFrgd):end if;end proc:check_cos:=proc()global correctcos, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;local usercos;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;if Get(TFcos)="" then Set(reply=TEXTreplyNoCheck, reply(background)=ColorWarning, reply(foreground)=ColorWarningFrgd); return;end if;usercos:=Get(TFcos::realcons, corrections=true, update=true):if usercos=correctcos then cosOK:=true; Set(cosck=TEXTCorrect, cosck(background)=ColorCorrect, cosck(foreground)=ColorCorrectFrgd); Set(reply=cat(great[randgreat()], `if`(sinOK and cosOK and tanOK and cotOK and secOK and cscOK, nexts2[randnext2()], nexts1[randnext1()])), reply(background)=ColorCorrect, reply(foreground)=ColorCorrectFrgd):else cosOK:=false; Set(cosck=TEXTIncorrect, cosck(background)=ColorIncorrect, cosck(foreground)=ColorIncorrectFrgd); Set(reply=cat(sorry[randsorry()], trys[randtry()]), reply(background)=ColorIncorrect, reply(foreground)=ColorIncorrectFrgd):end if;end proc:check_tan:=proc()global correcttan, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;local usertan;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;if Get(TFtan)="" then Set(reply=TEXTreplyNoCheck, reply(background)=ColorWarning, reply(foreground)=ColorWarningFrgd); return;end if;usertan:=Get(TFtan::realcons, corrections=true, update=true):if usertan=correcttan then tanOK:=true; Set(tanck=TEXTCorrect, tanck(background)=ColorCorrect, tanck(foreground)=ColorCorrectFrgd); Set(reply=cat(great[randgreat()], `if`(sinOK and cosOK and tanOK and cotOK and secOK and cscOK, nexts2[randnext2()], nexts1[randnext1()])), reply(background)=ColorCorrect, reply(foreground)=ColorCorrectFrgd):else tanOK:=false; Set(tanck=TEXTIncorrect, tanck(background)=ColorIncorrect, tanck(foreground)=ColorIncorrectFrgd); Set(reply=cat(sorry[randsorry()], trys[randtry()]), reply(background)=ColorIncorrect, reply(foreground)=ColorIncorrectFrgd):end if;end proc:check_cot:=proc()global correctcot, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;local usercot;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;if Get(TFcot)="" then Set(reply=TEXTreplyNoCheck, reply(background)=ColorWarning, reply(foreground)=ColorWarningFrgd); return;end if;usercot:=Get(TFcot::realcons, corrections=true, update=true):if usercot=correctcot then cotOK:=true; Set(cotck=TEXTCorrect, cotck(background)=ColorCorrect, cotck(foreground)=ColorCorrectFrgd); Set(reply=cat(great[randgreat()], `if`(sinOK and cosOK and tanOK and cotOK and secOK and cscOK, nexts2[randnext2()], nexts1[randnext1()])), reply(background)=ColorCorrect, reply(foreground)=ColorCorrectFrgd):else cotOK:=false; Set(cotck=TEXTIncorrect, cotck(background)=ColorIncorrect, cotck(foreground)=ColorIncorrectFrgd); Set(reply=cat(sorry[randsorry()], trys[randtry()]), reply(background)=ColorIncorrect, reply(foreground)=ColorIncorrectFrgd):end if;end proc:check_sec:=proc()global correctsec, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;local usersec;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;if Get(TFsec)="" then Set(reply=TEXTreplyNoCheck, reply(background)=ColorWarning, reply(foreground)=ColorWarningFrgd); return;end if;usersec:=Get(TFsec::realcons, corrections=true, update=true):if usersec=correctsec then secOK:=true; Set(secck=TEXTCorrect, secck(background)=ColorCorrect, secck(foreground)=ColorCorrectFrgd); Set(reply=cat(great[randgreat()], `if`(sinOK and cosOK and tanOK and cotOK and secOK and cscOK, nexts2[randnext2()], nexts1[randnext1()])), reply(background)=ColorCorrect, reply(foreground)=ColorCorrectFrgd):else secOK:=false; Set(secck=TEXTIncorrect, secck(background)=ColorIncorrect, secck(foreground)=ColorIncorrectFrgd); Set(reply=cat(sorry[randsorry()], trys[randtry()]), reply(background)=ColorIncorrect, reply(foreground)=ColorIncorrectFrgd):end if;end proc:check_csc:=proc()global correctcsc, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;local usercsc;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;if Get(TFcsc)="" then Set(reply=TEXTreplyNoCheck, reply(background)=ColorWarning, reply(foreground)=ColorWarningFrgd); return;end if;usercsc:=Get(TFcsc::realcons, corrections=true, update=true):if usercsc=correctcsc then cscOK:=true; Set(cscck=TEXTCorrect, cscck(background)=ColorCorrect, cscck(foreground)=ColorCorrectFrgd); Set(reply=cat(great[randgreat()], `if`(sinOK and cosOK and tanOK and cotOK and secOK and cscOK, nexts2[randnext2()], nexts1[randnext1()])), reply(background)=ColorCorrect, reply(foreground)=ColorCorrectFrgd):else cscOK:=false; Set(cscck=TEXTIncorrect, cscck(background)=ColorIncorrect, cscck(foreground)=ColorIncorrectFrgd); Set(reply=cat(sorry[randsorry()], trys[randtry()]), reply(background)=ColorIncorrect, reply(foreground)=ColorIncorrectFrgd):end if;end proc:check_all:=proc()global correctsin, correctcos, correcttan, correctcot, correctsec, correctcsc, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;local usersin,usercos,usertan,usercot,usersec,usercsc;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;if Get(TFsin)="" or Get(TFcos)="" or Get(TFtan)="" or Get(TFcot)="" or Get(TFsec)="" or Get(TFcsc)="" then Set(reply=TEXTreplyNoCheck, reply(background)=ColorWarning, reply(foreground)=ColorWarningFrgd); return;end if;usersin:=Get(TFsin::realcons, corrections=true, update=true):usercos:=Get(TFcos::realcons, corrections=true, update=true):usertan:=Get(TFtan::realcons, corrections=true, update=true):usercot:=Get(TFcot::realcons, corrections=true, update=true):usersec:=Get(TFsec::realcons, corrections=true, update=true):usercsc:=Get(TFcsc::realcons, corrections=true, update=true):if usersin=correctsin then sinOK:=true; Set(sinck=TEXTCorrect, sinck(background)=ColorCorrect, sinck(foreground)=ColorCorrectFrgd);else sinOK:=false; Set(sinck=TEXTIncorrect, sinck(background)=ColorIncorrect, sinck(foreground)=ColorIncorrectFrgd);end if;if usercos=correctcos then cosOK:=true; Set(cosck=TEXTCorrect, cosck(background)=ColorCorrect, cosck(foreground)=ColorCorrectFrgd);else cosOK:=false; Set(cosck=TEXTIncorrect, cosck(background)=ColorIncorrect, cosck(foreground)=ColorIncorrectFrgd);end if;if usertan=correcttan then tanOK:=true; Set(tanck=TEXTCorrect, tanck(background)=ColorCorrect, tanck(foreground)=ColorCorrectFrgd);else tanOK:=false; Set(tanck=TEXTIncorrect, tanck(background)=ColorIncorrect, tanck(foreground)=ColorIncorrectFrgd);end if;if usercot=correctcot then cotOK:=true; Set(cotck=TEXTCorrect, cotck(background)=ColorCorrect, cotck(foreground)=ColorCorrectFrgd);else cotOK:=false; Set(cotck=TEXTIncorrect, cotck(background)=ColorIncorrect, cotck(foreground)=ColorIncorrectFrgd);end if;if usersec=correctsec then secOK:=true; Set(secck=TEXTCorrect, secck(background)=ColorCorrect, secck(foreground)=ColorCorrectFrgd);else secOK:=false; Set(secck=TEXTIncorrect, secck(background)=ColorIncorrect, secck(foreground)=ColorIncorrectFrgd);end if;if usercsc=correctcsc then cscOK:=true; Set(cscck=TEXTCorrect, cscck(background)=ColorCorrect, cscck(foreground)=ColorCorrectFrgd);else cscOK:=false; Set(cscck=TEXTIncorrect, cscck(background)=ColorIncorrect, cscck(foreground)=ColorIncorrectFrgd);end if;if sinOK and cosOK and tanOK and cotOK and secOK and cscOK then Set(reply=cat(great[randgreat()], nexts2[randnext2()]), reply(background)=ColorCorrect, reply(foreground)=ColorCorrectFrgd):else Set(reply=cat(sorry[randsorry()], TEXTreplyWrong, trys[randtry()]), reply(background)=ColorIncorrect, reply(foreground)=ColorIncorrectFrgd):end if;end proc:show_sin:=proc()global correctsin, sinOK;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;Set(TFsin=correctsin);sinOK:=true;Set(sinck=TEXTShown, sinck(background)=ColorShow, sinck(foreground)=ColorShowFrgd):Set(reply=shows[randshow()], reply(background)=ColorShow, reply(foreground)=ColorShowFrgd):end proc:show_cos:=proc()global correctcos, cosOK;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;Set(TFcos=correctcos);cosOK:=true;Set(cosck=TEXTShown, cosck(background)=ColorShow, cosck(foreground)=ColorShowFrgd):Set(reply=shows[randshow()], reply(background)=ColorShow, reply(foreground)=ColorShowFrgd):end proc:show_tan:=proc()global correcttan, tanOK;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;Set(TFtan=correcttan);tanOK:=true;Set(tanck=TEXTShown, tanck(background)=ColorShow, tanck(foreground)=ColorShowFrgd):Set(reply=shows[randshow()], reply(background)=ColorShow, reply(foreground)=ColorShowFrgd):end proc:show_cot:=proc()global correctcot, cotOK;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;Set(TFcot=correctcot);cotOK:=true;Set(cotck=TEXTShown, cotck(background)=ColorShow, cotck(foreground)=ColorShowFrgd):Set(reply=shows[randshow()], reply(background)=ColorShow, reply(foreground)=ColorShowFrgd):end proc:show_sec:=proc()global correctsec, secOK;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;Set(TFsec=correctsec);secOK:=true;Set(secck=TEXTShown, secck(background)=ColorShow, secck(foreground)=ColorShowFrgd):Set(reply=shows[randshow()], reply(background)=ColorShow, reply(foreground)=ColorShowFrgd):end proc:show_csc:=proc()global correctcsc, cscOK;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;Set(TFcsc=correctcsc);cscOK:=true;Set(cscck=TEXTShown, cscck(background)=ColorShow, cscck(foreground)=ColorShowFrgd):Set(reply=shows[randshow()], reply(background)=ColorShow, reply(foreground)=ColorShowFrgd):end proc:show_all:=proc()global correctsin, correctcos, correcttan, correctcot, correctsec, correctcsc, sinOK,cosOK,tanOK,cotOK,secOK,cscOK;options `Copyright 2005-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;Set(TFsin=correctsin);Set(TFcos=correctcos);Set(TFtan=correcttan);Set(TFcot=correctcot);Set(TFsec=correctsec);Set(TFcsc=correctcsc);sinOK:=true;cosOK:=true;tanOK:=true;cotOK:=true;secOK:=true;cscOK:=true;Set(sinck=TEXTShown, sinck(background)=ColorShow, sinck(foreground)=ColorShowFrgd):Set(cosck=TEXTShown, cosck(background)=ColorShow, cosck(foreground)=ColorShowFrgd):Set(tanck=TEXTShown, tanck(background)=ColorShow, tanck(foreground)=ColorShowFrgd):Set(cotck=TEXTShown, cotck(background)=ColorShow, cotck(foreground)=ColorShowFrgd):Set(secck=TEXTShown, secck(background)=ColorShow, secck(foreground)=ColorShowFrgd):Set(cscck=TEXTShown, cscck(background)=ColorShow, cscck(foreground)=ColorShowFrgd):Set(reply=shows[randshow()], reply(background)=ColorShow, reply(foreground)=ColorShowFrgd):end proc:TrigFnCirc:=Maplet(onstartup=RunWindow(MAIN),Window[MAIN](title=TEXTtitleMAIN,[ halign=none, valign=none, spacing=0, background=ColorBkgd, [ halign=none, background=ColorBkgd, Button(TEXTBNewAngle, Evaluate(function="ask"), background=ColorNewButton), HorizontalGlue(), Button(TEXTBQuit, Shutdown(), background=ColorCloseButton) ], [ halign=none, background=ColorBkgd, [ valign=none, halign=none, background=ColorBkgd, border=true, caption=TEXTCap0, [ halign=none, inset=0, background=ColorBkgd, "x =", TextField[TFx](width=6, editable=false, background=ColorMessage), HorizontalGlue(), "y =", TextField[TFy](width=6, editable=false, background=ColorMessage), HorizontalGlue(), "r =", TextField[TFr](width=6, editable=false, background=ColorMessage) ], [ halign=none, background=ColorPlotButton, Plotter[PL](width=250,height=250) ] ], [ valign=none, halign=none, background=ColorBkgd, border=true, caption=TEXTCap1, [ halign=none, inset=0, background=ColorBkgd, "sin(A) = ", TextField[TFsin](width=10, background=ColorInput), HorizontalGlue(), Button(TEXTBHint, Evaluate(function="hint(1)"), background=ColorHintButton), Button[BsinCk](TEXTBCheck, Evaluate(function="check_sin"), enabled=false, background=ColorDisable), TextField[sinck](width=6, editable=false, background=ColorMessage), Button[BsinSh](TEXTBShow, Evaluate(function="show_sin"), enabled=false, background=ColorDisable) ], [ halign=none, inset=0, background=ColorBkgd, "cos(A) = ", TextField[TFcos](width=10, background=ColorInput), HorizontalGlue(), Button(TEXTBHint, Evaluate(function="hint(2)"), background=ColorHintButton), Button[BcosCk](TEXTBCheck, Evaluate(function="check_cos"), enabled=false, background=ColorDisable), TextField[cosck](width=6, editable=false, background=ColorMessage), Button[BcosSh](TEXTBShow, Evaluate(function="show_cos"), enabled=false, background=ColorDisable) ], [ halign=none, inset=0, background=ColorBkgd, "tan(A) = ", TextField[TFtan](width=10, background=ColorInput), HorizontalGlue(), Button(TEXTBHint, Evaluate(function="hint(3)"), background=ColorHintButton), Button[BtanCk](TEXTBCheck, Evaluate(function="check_tan"), enabled=false, background=ColorDisable), TextField[tanck](width=6, editable=false, background=ColorMessage), Button[BtanSh](TEXTBShow, Evaluate(function="show_tan"), enabled=false, background=ColorDisable) ], [ halign=none, inset=0, background=ColorBkgd, "cot(A) = ", TextField[TFcot](width=10, background=ColorInput), HorizontalGlue(), Button(TEXTBHint, Evaluate(function="hint(4)"), background=ColorHintButton), Button[BcotCk](TEXTBCheck, Evaluate(function="check_cot"), enabled=false, background=ColorDisable), TextField[cotck](width=6, editable=false, background=ColorMessage), Button[BcotSh](TEXTBShow, Evaluate(function="show_cot"), enabled=false, background=ColorDisable) ], [ halign=none, inset=0, background=ColorBkgd, "sec(A) = ", TextField[TFsec](width=10, background=ColorInput), HorizontalGlue(), Button(TEXTBHint, Evaluate(function="hint(5)"), background=ColorHintButton), Button[BsecCk](TEXTBCheck, Evaluate(function="check_sec"), enabled=false, background=ColorDisable), TextField[secck](width=6, editable=false, background=ColorMessage), Button[BsecSh](TEXTBShow, Evaluate(function="show_sec"), enabled=false, background=ColorDisable) ], [ halign=none, inset=0, background=ColorBkgd, "csc(A) = ", TextField[TFcsc](width=10, background=ColorInput), HorizontalGlue(), Button(TEXTBHint, Evaluate(function="hint(6)"), background=ColorHintButton), Button[BcscCk](TEXTBCheck, Evaluate(function="check_csc"), enabled=false, background=ColorDisable), TextField[cscck](width=6, editable=false, background=ColorMessage), Button[BcscSh](TEXTBShow, Evaluate(function="show_csc"), enabled=false, background=ColorDisable) ], [ halign=none, background=ColorBkgd, Button[BallCk](TEXTBCheckAllAns, Evaluate(function="check_all"), enabled=false, background=ColorDisable), Button[BallSh](TEXTBShowAllAns, Evaluate(function="show_all"), enabled=false, background=ColorDisable) ] ] ], BoxRow( background=ColorBkgd, TextBox[reply](width=60, height=2, editable=false, background=ColorMessage), Label(Image(Logo)), Label(Image(LIBLogo)) ), [ halign=none, background=ColorFooter, inset=0, spacing=0, Label("Programmers: Cheng Cheng & Emily Mason", font=FontFooter), HorizontalGlue(), Label("@ Copyright P Yasskin 2007", font=FontFooter) ]])):Maplets[Display](TrigFnCirc);
First:=true: