kill(all)$

wxxmlput(%omega_1, "<i altCopy=\"%omega_1\"><g>omega</g><n>1</n></i>")$
wxxmlput(%Delta_T, "<i altCopy=\"%Delta_T\"><g>Delta</g><n></n></i>T")$
wxxmlput(%Delta_T_Equation, "<i altCopy=\"%Delta_T_Equation\"><g>Delta</g><n></n></i>T_Equation")$
%omega_1;
%Delta_T;
%Delta_T_Equation;

van=facebook.com/LearningCalculus$

     0) Record, label and draw our bearing and speed
     1) Record, label and draw bearing and range of target as R
     2) Wait Δt = 6 minutes for this environment
     3) Record, label and draw bearing and range of target as M
     4) Draw and label relative motion line from R to M as RML
     5) Draw and label line at a right angle from us to RML as CPA
     6) Perform the following computation converting time in min to time in hr.

SpeedEquation:Speed = Distance/Time$
TimeEquation:first(solve(SpeedEquation,Time))$
DistanceEquation:first(solve(SpeedEquation,Distance))$

CollisionTimeEquation:
    subst(Dm,TargetDistance,
        subst(TargetDistance,Distance,
            subst(TargetSpeed, Speed,
                subst(CollisionTime,Time,TimeEquation))))    ;

TargetSpeedEquation:
    subst(Tr - Tm, %Delta_T,
        subst(%Delta_T,Time,
            subst(Dr - Dm,Distance,
                subst(TargetSpeed,Speed,SpeedEquation))));

subst(rhs(%),TargetSpeed,CollisionTimeEquation);

subst(rhs(%),TargetSpeed,CollisionTimeEquation);