Category : Science and Education
Archive   : PHYSIC.ZIP
Filename : INC9.BAS

FOR PRINTER";¹º ¨a: SP$çT.Q.VAR$:‹ SP$ è æ "S" î SP$ è æ "P" Í  :‰ ºÐÄ‹ SP$ ç"S" Í SP çç΋ SP$ ç"P" Í SP ç ØA çG ë ( ÿ‰ (AN) ê U ë ÿŒ (AN))âVO ç:PS çØì‹ ÿ… (A ë è é €) ì A ç Í  : ØY:Ê 
:Ê ,MONOé:‘ "THERE IS NO NET FORCE; THEREFOR NO ACCELERATION. 5.00 M/S WILL BE USED FOR THE INITIAL VELOCITY.":ZS ç: ØY:Aç:VO çfö‹ (A è ) ï (M ç) Í  : ØY:Ê 
,MONOé:‘ "A BLOCK WILL NOT SLIDE FOR THESE VALUES":‘ :‘ "ENTER NEW VALUES":ZS ç: Žg:  ØY:‰ .lÀ
Ê :Ê ,MONOé: še:‘ "Inclined Plane": še·H ç— ê – ë ÿ‰ (AN)ÑW ç é – ë ÿŒ (AN)A(‹ MONO ç  Í ° (()ëì,(– )ëì)ê((W)ëì,(H )ëì):° ê((W)ëì,(–)ëì):° ê(()ëì,(–)ëì)t2X.COORç ¹: À]:Y.COORç x: ´_:‘ "MASS =";M§7X.COORç ¹: À]:Y.COORç €: ´_:‘ " uk =";UÜ<X.COORç (: À]:Y.COORç  : ´_:‘ AN ë ´ ì PIîF‹ SP ç Í ŒPX.COORç ¥: À]:Y.COORç 2: ´_:‘ "TIME ="PZX.COORç ¥: À]:Y.COORç <: ´_:‘ "DIST.="dX.COORç ¥: À]:Y.COORç F: ´_:‘ " V ="ÎnX.COORç ¥: À]:Y.COORç N: ´_:‘ " A = "; ÿ… (A ë è é €)ì èÿxX.COORç ¥: À]:Y.COORç V: ´_:‘ " K.E.="0‚X.COORç ¥: À]:Y.COORç ^: ´_:‘ " P.E.=":Œ¿ CO7R–‚ I ç Ì  Ï ÍÌL~[ T çI}ªS çVO ë T é € ë A ë T í º´‹ (S æ ç
) î (A æ ) Í T çÿ‡ ( ì A):R ç:S ç
:I çò¾‹ (S æ ç
) î (A ç) Í T ç
ì VO:R ç:S ç
:I çÈR çx ê (S ë  )&ÒX ç( é R ë ÿŒ (AN))ëìGÜY ç(– ê R ë ÿ‰ (AN))ëìnâLOC2$ç"BM"éÿ“(ÿ…(X))é","éÿ“(ÿ…(Y))æ‹ T ç Í ú¨ëLOC1$ç"BM"éÿ“(ÿ…(XA))é","éÿ“(ÿ…(YA))Ýð‹ MONO ç  Í þ’ "XLOC1$;XROT$;XSCALE$;C0;XBOX$;"ú‹ MONO ç  Í þ’ "XLOC2$;XROT$;XSCALE$;C1;XBOX$;""XA çX:YA çY6‹ SP ç Í  †J‹ SP ç Í  ‡"‹ SP ç Í Ê :Ê ,MONOé:‘ "PRESS TO CONTINUE";Ù,‹ SP ç Í  ¨a: A$çT.Q.VAR$:‘ :Ê :Ê ,MONOé:‘ "PRESS TO CONTINUE"ß6ƒó@‹ SP ç Í  ØYLJÊ ,MONOé:‘ "PRESS TO CONTINUE, OR":Ê ,MONOé:‘ " TO END "¡TÊ ,MONOé: ¨a: A$çT.Q.VAR$:‹ A$ è æ "C" î A$ è æ "E" Í  :‰ T :¡ ‘ A$Ç^Ê ,MONOé:T.Q.VAR$ç"39,2": ðUßh‹ A$ ç"E" Í Š"newcpór‹ A$ ç"C" Í ú| †‰ Ì  IF T =0 THEN 1740Z‹ X.COOR ç Ò: Y.COOR ç 2:  À]:  ´_: T.Q.VAR$ç"8,6": ðUãX.COORç Ò: À]:Y.COORç 2: ´_:‘ ET:X.COORç Ò: À]:Y.COORç 2: ´_:‘ ÿ… (T ë è é €) ì è:ET çÿ… (T ë è é €) ì èlšX.COORç Ò: À]:Y.COORç <: ´_:‘ ES:X.COORç Ò: À]:Y.COORç <: ´_:‘ ÿ… (S ë è é €) ì è:ES çÿ… (S ë è é €) ì è¤X.COORç Ò: À]:Y.COORç F: ´_:‘ EV:X.COORç Ò: À]:Y.COORç F: ´_:‘ ÿ… ((VO é A ë T) ë è é €) ì è:EV çÿ… ((VO é A ë T) ë è é €) ì èÌ®X.COORç Ò: À]:Y.COORç V: ´_:‘ EK:X.COORç Ò: À]:Y.COORç V: ´_:‘ ÿ… ((€ ë M ë (VO é A ë T)í ) ë è é €) ì è:EKçÿ… ((€ ë M ë (VO é A ë T) í ) ë è é €) ì è‹ ¸X.COORç Ò: À]:Y.COORç ^: ´_:‘ EP:X.COORç Ò: À]:Y.COORç ^: ´_:‘ ÿ… ((M ë G ë (
ê S) ë ÿ‰ (AN)) ë è é €) ì è:EPçÿ… ((M ë G ë (
ê S) ë ÿ‰ (AN)) ë è é €) ì è’ ÂŽ ú ÌX.COORç Ò: À]:Y.COORç 2: ´_: ˜:‘ ÿ… (T ë è é €) ì è:ET çÿ… (T ë è é €) ì èm!ÖX.COORç Ò: À]:Y.COORç <: ´_: ˜:‘ × "##.###";ÿ… (S ë è é €) ì è:ES çÿ… (S ë è é €) ì èë!àX.COORç Ò: À]:Y.COORç F: ´_: ˜:‘ ÿ… ((VO é A ë T) ë è é €) ì è:EV çÿ… ((VO é A ë T) ë è é €) ì è‹"êX.COORç Ò: À]:Y.COORç V: ´_: ˜:‘ ÿ… ((€ ë M ë (VO é A ë T)í ) ë è é €) ì è:EKçÿ… ((€ ë M ë (VO é A ë T) í ) ë è é €) ì è)#ôX.COORç Ò: À]:Y.COORç ^: ´_: ˜:‘ ÿ… ((M ë G ë (
ê S) ë ÿ‰ (AN)) ë è é €) ì è:EPçÿ… ((M ë G ë (
ê S) ë ÿ‰ (AN)) ë è é €) ì è0#þŽ 8#Å:ŽE#  PR# 1[# PRINT " 80N";i#&Ê ,MONOéé#0‹ PS ç Í  "MASS=";M;" COEF. OF STATIC FRICTION=";U;" ACCELERATION=";A: : "TIME","DIST","VELOCITY","K.E.","P.E.":PS ç $: ÿ… (T ë è é €) ì è,/$D ÿ… (S ë è é €) ì è,]$N ÿ… ((VO é A ë T) ë è é €) ì è,$X ÿ… ((€ ë M ë (VO é A ë T) í ) ë è é €) ì è,Ú$b ÿ… ((M ë G ë (
ê S) ë ÿ‰ (AN)) ë è é €)ì èè$l " I";õ$v  PR# 0ü$€Ž %Š‹ MONO ç  Í Ã"INCFBD.scr"Â%”Ê :Ê ,MONOé:‘ "To draw a free body diagram, for this":Ê ,MONOé:‘ "problem, draw an x-y axis system":Ê ,MONOé:‘ "with the x-axis parallel to the plane.": P&žÊ ,MONOé:‘ "Represent each force acting on the":Ê ,MONOé:‘ "mass as a vector. NOTE: The 3 forces":Ê ,MONOé:‘ "are n, mg, and f.": ã&¨Ê ,MONOé:‘ "Resolve those vectors acting on the":Ê ,MONOé:‘ "mass into vectors perpendicular and":Ê ,MONOé:‘ "parallel to the plane.": t'²Ê ,MONOé:‘ "Note that the sum of the forces on":Ê ,MONOé:‘ "the y-axis add to give zero.That is":Ê ,MONOé:‘ "ä fy = n - mgcosé = 0": 
(¼Ê ,MONOé:‘ "The forces acting on the x-axis are:":Ê ,MONOé:‘ "1) mgsiné (Resultant of n and mg) and":Ê ,MONOé:‘ "2) f (Force of friction).": {(ÆÊ ,MONOé:‘ "To find the net force on the system":Ê ,MONOé:‘ "we need only consider f and mgsiné.": ô(ÐÊ ,MONOé:‘ "Note that the net force on the x-axis":Ê ,MONOé:‘ "is given by:":Ê ,MONOé:‘ "ä fx =mgsiné - f.": f)ÚÊ ,MONOé:‘ "Copy the force diagram and the":Ê ,MONOé:‘ "equations.":‘ :Ê ,MONOé:‘ "PRESS TO CONTINUE."™)ä ¨a: A$çT.Q.VAR$:‹ A$ è æ "C" Í  :‰ ä£)î  ©)øŽÝ)Ê :Ê ,MONOé:‘ "PRESS TO CONTINUE.";*  ¨a: A$çT.Q.VAR$:‹ A$ è æ ÿ– (
) Í  :‰  I*Ê :Ê ,MONOé:‘ "PRESS TO CONTINUE.";r* Ê :Ê ,MONOé:T.Q.VAR$ç"40,5": ðU…**Ê :Ê ,MONOéŒ*4Ž ’*˜µ*¢ BLANK OUT OLD NUMBERS»*¬Ù*¶ CCOL ç ÿ‘(): CROW ç Ûõ*À ‘ ÿ˜(): Ê CROW,CCOLû*ÊŽ
+ðU2+úU ENBASIC "E" Function8+VS+V ‹ T.Q.VAR$ ç "" Í Žq+V CROW ç Û: CCOL ç ÿ‘()Ž+V X.1 ç Ø(T.Q.VAR$,",")¨+"V ‹ X.1 ç  Í :¡ JV¹+,V :Ùthen×+6V ‘ ÿ˜(ÿ”(T.Q.VAR$));ç+@V ‰ Vø+JV :Ùelse',TV COUNT.LIM ç ÿ”(ÿƒ(T.Q.VAR$,X.1é))êT,^V BLANK.LEN ç ÿ”(ÿ(T.Q.VAR$,X.1ê))v,iV ‚ COUNT ç  Ì COUNT.LIMå,rV ‹ CROWéCOUNT æ  Í ‘ ÿ˜(BLANK.LENê); :¡ ‘ ÿ˜(BLANK.LEN);-|V Ê CROWéCOUNTé,CCOL-†V ƒ)-V :Ùendif<-•V Ê CROW,CCOLB-ãWŽd-äW INPUT ROUTINEj-îWp-øW€-X ZA$ ç ""ª- X T.Q.VAR$ çÞ: ‹ T.Q.VAR$ ç "" Í  X.X ‹ ÿ•(T.Q.VAR$) ç  î ÿ’(ZA$) æ  Í ‘ ÿ–();" ";ÿ–(); :ZA$ ç ÿ(ZA$,ÿ’(ZA$)ê): ‰  X4.X ‹ ÿ•(T.Q.VAR$)ç 
Í ×Yf.X  IF LEN(ZA$) = ZL% THEN BEEP: GOTO 22540Ò.X ‹ (ÿ•(T.Q.VAR$) æ  î ÿ•(T.Q.VAR$) è €) Í ZA$ ç ZA$ é T.Q.VAR$: ‘ T.Q.VAR$; :¡ Åÿ. X  IF LEN(ZA$) <= ZL% THEN GOTO 22540 /!X ‰  X/×YŽ:/ØY NEW DISPLAY@/âYF/ìYO/öY ÀU/Ë[Ž[/Ì[a/¿]Žg/À]ˆ/Ê] x coordinateŽ/Ô]¯/Ù] ‹ X.COOR ç  Í X.COOR ç Ü/Þ] Ê ,ÿ…((((X.COORëì)ì@
)ë')é)éMONOâ/³_Žè/´_ 0¾_ y coordinate0È_00Í_ ‹ Y.COOR ç  Í Y.COOR ç X0Ò_ Ê ÿ…((((Y.COORëì)ìÈ)ë)é)^0§aŽd0¨aˆ0²a GET varŽ0¼a¹0Æa T.Q.VAR$ ç Þ: ‹ T.Q.VAR$ ç "" Í Æa¿0›cŽÅ0œcë0¦c CALL -958ñ0°c÷0ÿcŽý0eŽ1e%1še TOGGLE INVERSE/NORMAL+1¤eE1®e ‹ G.A ç  Í :¡ ÖeV1¸e :ÙthenÇ1Âe ‹ NORMAL ç  Í NORMAL ç : ˜ TXT.ADR, :¡ NORMAL ç : ˜ TXT.ADR,×1Ìe ‰ êeè1Öe :ÙelseV2àe ‹ NORMAL ç  Í NORMAL ç : ¿ CO0,CO7 :¡ NORMAL ç : ¿ CO7,CO0h2êe :Ùendifn2ôeŽt2„g”2Žg DELAY FOR ZS SECONDSš2˜g¬2g ZSS2$ ç þŽÂ2¢g ‚ ZSS ç  Ì ZS×2¬g ZSS$ ç þŽù2¶g ‹ ZSS$ ç ZSS2$ Í ‰ ¬g
3Àg ƒ ZSS3wiŽ