ICXOdd   1Courier NewSymbolExtendedBxyx1Courier New1Courier NewTimes New RomanTimes New Romanxyx1Courier New1Courier New1Courier New1Courier NewYPYPYPYP {  d< p @@``@6"Nľ???@@@@@@033333??@^ߛOw????a }:@[[@@?@ @@@?@@2??h!@$$$Nw!@???????ԕP<kim(t)&r = kim(t); 0.000000 <= t <= 6.283185O0O2??@$$$CTg}?X^ڔԞ@????????CTg}?X^ڔԞ@fgh iRST kim(theta(p))cos(theta(p))kim(theta(p))sin(theta(p))pi/4@(x,y) = (kim(theta(p))cos(theta(p)),kim(theta(p))sin(theta(p)))2??@$$$CTg}?X^ڔԞ@???????֙יؙٙ 00kim(theta(p))*cos(theta(p))kim(theta(p))*sin(theta(p))Gseg (0,0) to (kim(theta(p))*cos(theta(p)),kim(theta(p))*sin(theta(p)))2??@$$$X4?X^ڔԞ@CTg}?`@??????? Z[\]xyz\.\ (kim(theta(p))*cos(theta(p))kim(theta(p))*sin(theta(p))[kim(theta(p))*cos(theta(p))+.2*w*(kimp(theta(p))cos(theta(p))-kim(theta(p))*sin(theta(p)))[kim(theta(p))*sin(theta(p))+.2*w*(kimp(theta(p))sin(theta(p))+kim(theta(p))*cos(theta(p)))seg (kim(theta(p))*cos(theta(p)),kim(theta(p))*sin(theta(p))) to (kim(theta(p))*cos(theta(p))+.2*w*(kimp(theta(p))cos(theta(p))-kim(theta(p))*sin(theta(p))),kim(theta(p))*sin(theta(p))+.2*w*(kimp(theta(p))sin(theta(p))+kim(theta(p))*cos(theta(p))))2??@$$$`oKseCTg}?X^ڔԞ@???????UVWXY[\|L,8e:kim(theta(p))*cos(theta(p))kim(theta(p))*sin(theta(p))qkim(theta(p))*cos(theta(p))+.05*w^2*((kipp(theta(p))-kim(theta(p)))cos(theta(p))-2*kimp(theta(p))*sin(theta(p)))qkim(theta(p))*sin(theta(p))+.05*w^2*((kipp(theta(p))-kim(theta(p)))sin(theta(p))+2*kimp(theta(p))*cos(theta(p)))seg (kim(theta(p))*cos(theta(p)),kim(theta(p))*sin(theta(p))) to (kim(theta(p))*cos(theta(p))+.05*w^2*((kipp(theta(p))-kim(theta(p)))cos(theta(p))-2*kimp(theta(p))*sin(theta(p))),kim(theta(p))*sin(theta(p))+.05*w^2*((kipp(theta(p))-kim(theta(p)))sin(thetaxyzJXT@H3C?@@@@@@@@@@@@@@@@@@@@@@@@@@@@   3COS(2X)IN(X)KIM|-6SIN(2X)IN(X)+2COS(2X)COS(X)KIMP]W*X$THETA\]-12COS(2X)?,**?KIPPThe Green vector is the Position Vectorta(p))+.05*w*kimp(th<ܖH?`@`@"I@Times New Romanh^The Red vector is the Acceleration VectorU8?Sc?`@@@6T@Times New Roman _Motion with Constant Angular Velocity = w (Animate on w)an*b[@?@ f++@Times New Roman_Time = p (Animate on p)ular Velocity = w (Animate on w)O}}dx?@ @eJ X@Times New Roman`Use Equa/User Functions to change curve (KIM) and its derivCF_pS?@@@ucaY#@Times New RomanHaThe Purple vector is the Velocity VectorKIM) and its deriv!C?@@@^@Times New Romanr = kim(t); 0.000000 <= t <= 6.2831855`}h@YCc} b?g̱@,*$b(x,y) = (kim(theta(p))cos(theta(p)),kim(theta(p))sin(theta(p`}h@YCc}em@pcseg (0,0) to (kim(theta(p))*cos(theta(p)),kim(theta(p))*sin( `}h@YCc}[d@,*~>!?z(d;seg (kim(theta(p))*cos(theta(p)),kim(theta(p))*sin(theta(p)) `}h@YCc}x^?dseg (kim(theta(p))*cos(theta(p)),kim(theta(p))*sin(theta(p))`}h@Bxs"ri?,*VLN?@r