Курсовая (вариант 5 - cos) / graphs_f / graphs
.rtf(* =================================Š===================================
1
=================================Š=================================== *)
Plot[
(-2/3)*E^(-2.5*t)+(2/3)*E^-t,{t,0,6},
AxesLabel®{"t",Subscript[h, 1]"(t)"},
GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted],
PlotLabel®"1.1 - "Subscript[h, 1]"(t)",
ImageSize®600, PlotStyle®Thick
]
(* =================================Š===================================
2
=================================Š=================================== *)
Plot[
(-2/3)*E^(-2.5*t)+(2/3)*E^-t,{t,0,6},
AxesLabel®{"t",Subscript[h, 1]"(t)"}, GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted],
PlotLabel®"2.3 - "Subscript[h, 1]"(t)",
ImageSize®600,PlotStyle®Thick
]
Plot[
InverseLaplaceTransform[((2*s)/(2*s^2 + 7*s + 5))*((10*s)/(s^2 + Pi^2/4))*(1 + E^(-2*s)), s, t], {t, 0, 6},
AxesLabel®{"t","F1(t)"},
GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted],
PlotStyle®Thick,ImageSize®600,
PlotLabel®"2.5 - "Subscript[F, 1]"(t)"
]
(* =================================Š===================================
3
=================================Š=================================== *)
Plot[{w/Sqrt[w^4 + 7.25*w^2 + 6.25],0.202}, {w, 0, 15}, AxesLabel®{"w","|H(jw)|"}, GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted], PlotLabel®"3.1 - А10Ч'Х%", PlotStyle®Thick]
teta = Pi/2 - ArcTan[5-2*w^2, 7*w]
p/2-ArcTan[5-2 w2,7 w]
Plot[
teta, {w, 0, 10},
AxesLabel®{"w","arg[H(jw)]"},
GridLines®Automatic,
GridLinesStyle®Directive[Gray,Dotted],
PlotStyle®Thick,ImageSize®600,
PlotLabel®"3.1 - Ф$Ч'Х%"
]
Plot[
{
(* Д14о>б1а0в2и8л; abs(), чGтBо>б1ыK б1л;о> п?о> П1fа0н=к:и8н=уC: *)
Abs[10*Sqrt[2]*w*(Sqrt[1 + Cos[-2*w]]/(-w^2 + 0.25*Pi^2))],
0.9997
},
{w, 0, 15},
PlotRange®{12, 0},
AxesLabel®{"w","|A(w)|"},
GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted], ImageSize®600,PlotStyle®Thick,
PlotLabel®"3.3 - "Subscript[A,1]"(w) - А10м<п?л;и8тBуCд4н=ыKй9 сAп?е5к:тBр@ в2хEо>д4н=о>г3о> е5д4и8н=и8чGн=о>г3о> сAи8г3н=а0л;а0"
]
Teta = If[Sin[-2w]>0,ArcTan[(1+Cos[-2*w])/Sin[-2*w]],Pi-ArcTan[(1+Cos[-2*w])/Sin[-2*w]]]
If[-Sin[2 w]>0,ArcTan[(1+Cos[-2 w])/Sin[-2 w]],p-ArcTan[(1+Cos[-2 w])/Sin[-2 w]]]
Plot[
{
Teta
},
{w, 0, 15},
PlotRange®{5, 0},
AxesLabel®{"w","|q(w)|"},
GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted], ImageSize®600,PlotStyle®Thick,
PlotLabel®"3.3 - "Subscript[q,1]"(w) - Ф$а0з7о>в2ыKй9 сAп?е5к:тBр@ в2хEо>д4н=о>г3о> е5д4и8н=и8чGн=о>г3о> сAи8г3н=а0л;а0"
]
Plot[
{
(* Д14о>б1а0в2и8л; abs(), чGтBо>б1ыK б1л;о> п?о> П1fа0н=к:и8н=уC: *)
Abs[w/Sqrt[w^4 + 7.25*w^2 + 6.25]*10*Sqrt[2]*w*(Sqrt[1 + Cos[-2*w]]/(-w^2 + 0.25*Pi^2))],
0
},
{w,0,15},
PlotRange®{3.1,0},
AxesLabel®{"w","|A(w)|"},
GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted], ImageSize®600,PlotStyle®Thick,
PlotLabel®"3.5 - "Subscript[A,2]"(w) - А10м<п?л;и8тBуCд4н=ыKй9 сAп?е5к:тBр@ в2ыKхEо>д4н=о>г3о> сAи8г3н=а0л;а0"
]
Plot[
teta+Teta,
{w,0,15},
PlotRange®{6.5,-1.5},
AxesLabel®{"w","q(w)"},
GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted], ImageSize®600,PlotStyle®Thick,
PlotLabel®"3.5 - "Subscript[q,2]"(w) - Ф$а0з7о>в2ыKй9 сAп?е5к:тBр@ в2ыKхEо>д4н=о>г3о> сAи8г3н=а0л;а0"
]
(* =================================Š===================================
4
=================================Š=================================== *)
Graphics[
{
PointSize[Large],
Table[
{
Point[x], {Thick,Blue,Line[{x,x*{1,0}}]}
},
{
x,{{0,0},{1,5},{2,40/(3*Pi)},{3,0},{4,80/(15*Pi)}, {5,0} ,{6, 24/(7*Pi)}}
}
]
},
Axes®Automatic,ImageSize®600, AxesLabel®{"k",Subscript[A,"k,1"]}, GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted],
PlotLabel®"4.1 - Ak1 - Д14и8сAк:р@е5тBн=ыKй9 а0м<п?л;и8тBуCд4н=ыKй9 сAп?е5к:тBр@ в2хEо>д4н=о>г3о> сAи8г3н=а0л;а0"
]
Graphics[
{
PointSize[Large],
Table[
{
Point[x], {Thick, Blue, Line[{x,x*{1,0}}] }
},
{
x,{{0,0},{1,0},{2,-Pi/2},{3,0},{4,-Pi/2}, {5,0} ,{6, -Pi/2}}
}
]
},
Axes®Automatic,ImageSize®600, GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted],
AxesLabel®{"k",Subscript["a","k,1"]},
PlotLabel®"4.1 - ak1 - Д14и8сAк:р@е5тBн=ыKй9 фDа0з7о>в2ыKй9 сAп?е5к:тBр@ в2хEо>д4н=о>г3о> сAи8г3н=а0л;а0"
]
Plot[
(105*Pi*Cos[1.5708*t] + 8*(35*Sin[Pi*t] + 14*Sin[2*Pi*t] + 9*Sin[3*Pi*t]))/(21*Pi),
{t, 0, 4},
ImageSize®600,
AxesLabel®{"t",Subscript["I","н="]},
GridLines®Automatic,
GridLinesStyle®Directive[Gray,Dotted],
PlotStyle®Thick,
PlotLabel®"4.2 - I(t) - Г13р@а0фDи8к: и8д4е5л;а0ьLн=о>г3о> в2хEо>д4н=о>г3о> п?е5р@и8о>д4и8чGе5сAк:о>г3о> сAи8г3н=а0л;а0"
]
Graphics[
{
PointSize[Large],
Table[
{
Point[x], {Thick, Blue, Line[{x,x*{1,0}}] }
},
{
x,{{0,0},{1,1.48},{2,1},{3,0},{4,0.25}, {5,0} ,{6, 0.22}}
}
]
},
Axes®Automatic,ImageSize®600, GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted],
AxesLabel®{"k",Subscript["A","k,2"]},
PlotLabel®"4.3 - Ak2 - Д14и8сAк:р@е5тBн=ыKй9 а0м<п?л;и8тBуCд4н=ыKй9 сAп?е5к:тBр@ в2ыKхEо>д4н=о>г3о> сAи8г3н=а0л;а0"
]
Graphics[
{
PointSize[Large],
Table[
{
Point[x], {Thick, Blue, Line[{x,x*{1,0}}]}
},
{
x,{{0,1.501},{1,0},{2,-2.19},{3,-0.87},{4,-2.6}, {5,-1.098} ,{6, -2.8}}
}
]
},
Axes®Automatic,ImageSize®600, GridLines®Automatic, GridLinesStyle®Directive[Gray,Dotted],
AxesLabel®{"k",Subscript["a","k,2"]},
PlotLabel®"4.3 - ak2 - Д14и8сAк:р@е5тBн=ыKй9 фDа0з7о>в2ыKй9 сAп?е5к:тBр@ в2ыKхEо>д4н=о>г3о> сAи8г3н=а0л;а0"
]
Plot[
(1.48*Cos[0.5*Pi*t] + Cos[Pi*t-2.19]+0.25Cos[2*Pi*t-2.6]+0.22*Cos[3*Pi*t-2.8]),
{t, 0, 4},
ImageSize®600,
AxesLabel®{"t",Subscript["I","н="]},
GridLines®Automatic,
GridLinesStyle®Directive[Gray,Dotted],
PlotStyle®Thick,
PlotLabel®"4.4 - I(t) - А10п?п?р@о>к:сAи8м<а0цFи8яO р@е5а0к:цFи8и8 цFе5п?и8 о>тBр@е5з7к:о>м< р@яOд4а0 Ф$уCр@ьLе5"
]
