TS domácí úkol č:1
Interaktivní notebook zobrazující průběh tónů tlačítek číselníce telefonu.
Filip Roubal, 2010

graf

(*nejprve jsem nadefinoval hodnoty kmitočtů ve sloupci číselnice*)
f1 = 1209;
f2 = 1336;
f3 = 1477;

(*definujeme hodnoty kmitočtů v řádku číselnice*)
f4 = 697;
f5 = 770;
f6 = 852;
f7 = 941;
pole= {{f4,f1},{f4,f2},{f4,f3},{f5,f1},{f5,f2},{f5,f3},{f6,f1},{f6,f2},{f6,f3},{f7,f1},{f7,f2},{f7,f3}};

graf:=Deploy[Manipulate[


EmitSound[Play[(1*Sin[2*Pi* pole[[n,1]]*t])+(amp*Sin[2*Pi*pole[[n,2]]*t]),{t ,0, 0.45}]];

Plot[(1*Sin[2*Pi* pole[[n,1]]*t])+(amp*Sin[2*Pi*pole[[n,2]]*t]),{t ,0, 0.009},PlotRange->2.5,PerformanceGoal->"Quality",ImageSize->500,PlotLabel->Style[Framed["průběh DTMF znaku"->Which[n≥1&&n≤9,b=n,n==10,b="*",n==11,b="0",n==12,b="#"] ],Brown,25],
LabelStyle->Directive[Bold,Brown,12],
AxesLabel->{"Čas[s]","Napětí [V]"},
Filling->Axis,FillingStyle->LightBlue,PlotStyle->Directive[Blue,Thick]],
Dynamic[Plot[1*Sin[2*Pi* pole[[n,1]]*t],{t ,0, 0.003},ImageSize->250,AspectRatio->1,PlotRange->1.5,PlotLabel->Style["průběh řádku",Red,15],
LabelStyle->Directive[Bold,Red,10],
AxesLabel->{"Čas[s]","Napětí [V]"},
Filling->Axis,FillingStyle->LightRed]],Delimiter,Dynamic[Plot[amp*Sin[2*Pi*pole[[n,2]]*t],{t ,0, 0.0015},ImageSize->250,AspectRatio->1,PlotRange->1.5,PlotLabel->Style["průběh sloupce",Red,15],
LabelStyle->Directive[Bold,Red,10],
AxesLabel->{"Čas[s]","Napětí [V]"},
Filling->Axis,FillingStyle->LightRed]],
{{amp,0.5,"amplituda"},0.5,1.5,AutoAction->True },
{{n,1,"Klávesnice"},{1,2,3},Setter},
{{n,1,""},{ 4,5,6},Setter},
{{n,1,""},{ 7,8,9},Setter},
{{n,1,""},{10->"*",11->"0",12->"#"},Setter},
ControlPlacement->Left,LabelStyle->Directive[Red,Bold,Medium]]]

graf