-
-
Notifications
You must be signed in to change notification settings - Fork 436
Expand file tree
/
Copy pathprob46.pg
More file actions
61 lines (46 loc) · 1.57 KB
/
Copy pathprob46.pg
File metadata and controls
61 lines (46 loc) · 1.57 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
## DESCRIPTION
## Differential Equations: Laplace Transforms
## ENDDESCRIPTION
## Tagged by cmd6a 3/14/06
## DBsubject(Differential equations)
## DBchapter(Laplace transforms)
## DBsection(Basic transformations)
## Institution(ASU)
## MLT(forward_01)
## Level(5)
DOCUMENT() ; # This should be the first executable line in the problem.
loadMacros(
"PGstandard.pl",
"PGchoicemacros.pl",
"PGgraphmacros.pl",
"PGasu.pl",
"PGcourse.pl"
);
TEXT(beginproblem()) ;
$showPartialCorrectAnswers = 1;
$r= random(2,5,1);
$c = $r**2;
$ans5= FEQ("pi*coth(s/2)/((s^2+pi^2)*(s^2+$c))");
$graph3 = init_graph(-1,-2,3,2, 'axes'=>[0,0],'grid'=>[4,4]);
$f1 = "sin(pi*x) for x in <0,1> using color:red and weight:2";
$f2 = "-sin(pi*x) for x in <1,2> using color:red and weight:2";
$f3 = "sin(pi*x) for x in <2,3> using color:red and weight:2";
plot_functions($graph3, $f1);
plot_functions($graph3, $f2);
plot_functions($graph3, $f3);
$g = image(insertGraph($graph3),
alt=>"Graph of rectified sine wave R(t) showing three periods of |sin(πt)| from x=0 to x=3, alternating above and below the x-axis."
);
BEGIN_TEXT
Take the Laplace transform of the following initial value and
solve for \(Y(s) = \mathcal{L}$LBRACE y(t) $RBRACE \):
\[ y'' + {$c} y= R(t) \hspace{0.5in} y(0)=0, \; y'(0)=0\]
$PAR
Where \(R(t) = \sin(\pi t) ,\hspace{0.2in} R(t+1) = R(t) \).
$PAR
\(Y(s)= \) \{ans_rule(40) \}.
$BR Graph of \( R(t) \) (a rectified sine wave function):
$BR $g
END_TEXT
ANS(fun_cmp($ans5,vars=>["s"] )) ;
ENDDOCUMENT() ; # This should be the last executable line in the problem.