GraphingCalculator 3.5;
Window 46 6 820 1037;
PaneDivider 219;
SignificantDigits 14;
FontSizes 14 12 10;
SliderControlValue 0;
2D.Scale 0.1 0.1 5 5;
2D.BottomLeft -0.23125 0.89375;
2Dp.BottomLeft -1 -0.453125;
Text "Plots of the amplitude and phase of the steady-state response of a damped oscillator to a sinusoidal driving force as functions of driving frequency.";
Color 4;
Expr k=9,m=1;
Color 8;
Expr d=b/(2*m);
Color 7;
Expr a=sqrt(W^2-d^2);
Color 7;
Expr W=sqrt(k/m);
Text "A,B – amplitude; k – spring constant; m – mass, b – damping constant; d – damping parameter; a – angular frequency; W – natural frequency";
Color 2;
MathPaneSlider 3;
Expr F_0=slider([0,5,10]);
Color 4;
MathPaneSlider 2;
Expr b=slider([0,5,40]);
Color 2;
Expr function(X,x,d)=[F_0/m]/sqrt([W^2-x^2]^2+4*d^2*x^2);
Expr y=function(X,x,g),in(g,set(0.4,0.6,1));
Color 2;
Expr y=function(X,x,d);
Color 5;
Expr P=atan([2*d*f/(W^2-f^2)]);
Color 2;
Expr function(P,x)=branch(if(atan([2*d*x/(W^2-x^2)]),x<W),if(atan([2*d*x/(W^2-x^2)])+pi,x>W));
Color 2;
Expr prime(y)=function(P,prime(x));
Color 17;
Expr prime(y)=a*pi/2,in(a,set(1,2));
Color 3;
Expr R=sqrt(W^2-(2*d^2));
Color 17;
Expr prime(x)=W;
Color 17;
Expr x=W;
Color 17;
Expr x=R;
Text "F0 – magnitude of driving force; f – frequency of driving force; X – amplitude of driven oscillation; P – phase of driven oscillation; R – resonant frequency";
Text "
Author: David A. Craig <<http://web.lemoyne.edu/~craigda/>";