1+1

(Sqrt[5])

(Sqrt[5.])

N[(Sqrt[5])]

n[(Sqrt[5])]

N[Pi,50]

Sin[5]
Sin@5
5//Sin

123!//N

LaplaceTransform[t*(E^(-2t))Sin[π*t],t,p]

?*Lapla*

InverseLaplaceTransform[(((p^2)+a)/((p^2)-5p+6)),p,t]

kyncl je idiot

kyncl*je* idiot

12opice

opice12

Integrate[(x^2)*(E^(-(x^2))),x]

DSolve[y''[x]-5y'[x]+6y[x]== Sin[3x],y[x],x]

1==2

1=2

a=2

?:=

ClearAll[a]

x=4;

ClearAll[f]
f[x_]:=(x^2)

f[opice]

?_

?=

x=4;
ClearAll[f,x]
f[x_]=(x^2);
x=2;
f[6]

ClearAll[f]
f[x_]:=(x^2);

ClearAll[f,x]
f[x_]:=Integrate[Sin[x],x];
f[1]

ClearAll[f,x]
f[x_]=Integrate[Sin[x],x];
f[1]

ClearAll[f]
f[x_]:=x;
f[1]:=5;
f[x_,y_]:=x+y;
f[x_,x_]:=0;
f[5]
f[1]
f[5,6]
f[5,5]

?f

ClearAll[f]
f[x_]:=(x^2)
f[{1,2,3}]

Attributes[Sin]

Sin[{1,2,3}]

ClearAll[test]
test[x_]:=x>2;
test[3]

Select[{1,2,4,7,6,2},test]

((#)^2)&[5]

#1+((#2)^2)&[1,Pi]

Select[{1,2,4,7,6,2},#>2&]

lidi={ja,ty,on,ona,ono};
Map[ostrihej,lidi]
ostrihej/@lidi

lidi={ja,ty,on,ona,ono};

Apply[natocPecko,lidi]
natocPecko@@lidi

vyr=(∑_(i=1)^10)(Subscript[a, i])
FullForm[vyr]

FullForm[{(Subscript[a, 1]),(Subscript[a, 2]),(Subscript[a, 3]),(Subscript[a, 4]),(Subscript[a, 6]),(Subscript[a, 7])}]

Plus[1,1,1,1]
Plus@@{1,1,1,1}

Plus@@{(Subscript[a, 1]),(Subscript[a, 2]),(Subscript[a, 3]),(Subscript[a, 4]),(Subscript[a, 6]),(Subscript[a, 7])}

ClearAll[par]
par[list_]:=(((Plus@@(list^(-1))))^(-1));
par[{R1,R2,R3}]
ClearAll[ser];
ser[list_]:=Plus@@list;
ser[{R1,R2,R3}]

R6=ser[{R4,R5}];
R7=par[{R2,R3}];
R8=ser[{R1,R7}];
Rvys=par[{R8,R6}]//FullSimplify

par[{R,ser[{R,par[{R,R}]}],par[{R,ser[{R,R}]}]}]/.R->100

Range[5]

dos=ToExpression["R"<>ToString[#]]->100&/@Range[5]

Rvys/.dos

(*obvod*)

soucastky={u1==r4*ir4,u2==r1*ir1,u3-u4==r2*ir2,u1-u4==r3*ir3,uz==u3-u2};
proudy={iz+ir3+ir2==0,0==ir1+ir2,0==iz+ir3+ir4};

rovnice=Union[soucastky,proudy];

Solve[rovnice,{ir1,ir2,ir3,ir4,u1,u2,u3,u4}]

soucastky={u1==r1*ir1,u2==r3*ir3,u1-u2==r2*ir2};
proudy={iz==ir2+ir1,ir2==ir3+ivyst+iz};

rovnice=Union[soucastky,proudy];

reseni=Solve[rovnice,{u1,u2,ir1,ir2,ir3}]

u2/.reseni[[1]]/.{r1->10,r2->20,r3->30,iz->8}//Expand//N

TrigReduce[((Sin[x])^2)]

z1=4+3I;
Print["abs(z)= ",Abs[z1]]
Print["re(z)= ",Re[z1]]
Print["im(z)= ",Im[z1]]
Print["φ= ",Arg[z1]]

ClearAll[par,ser]
par[list_]:=(((Plus@@(list^(-1))))^(-1));
ser[list_]:=Plus@@list;

mH=0.001;
μF=(10^(-6));
c1=1μF;
R=1;
L1=10mH;
c2=0.1c1;
L2=0.1L1;
U1=230*(E^(I*314*t));

z1=ser[{I*ω*L1,R}];
z2=par[{z1,(1/(I*ω*c1))}];
z3=ser[{I*ω*L2,(1/(I*ω*c2))}];

prenos=(z3/(z2+z3));

ω=210
LogLogPlot[Abs[prenos],{ω,1,(10^6)},PlotRange->All,AxesLabel->{"ω","Prenos"},PlotLabel->"Nas prenos",GridLines->Automatic]

Options[LogLogPlot]

ClearAll[ω]
U2=U1*prenos

Plot[{Re[U1],2*Re[U2]},{t,0,0.1},PlotStyle->{{Blue,Thick},{RGBColor[1,0,0],Dashed}},PlotLabel->"napeti",AxesLabel->{"t [s]","U1 [V], U2 [V]"},PlotLegends->{"U1 [V]"," U2 [V]"}]

ClearAll[L1,L2,c1,c2,R1,R2,R3,prenos]

R1=10;
R2=100;
R3=1000;
L1=3;
L2=2mH;
c1=5μF;
c2=50μF;

z1=ser[{I*ω*L1,R2}];
z2=par[{(1/(I*ω*c1)),z1}];
z3=ser[{z2,R1}];
z4=ser[{(1/(I*ω*c2)),I*ω*L2}];
z5=par[{R3,z4}];

prenos=(z5/(z5+z3));

LogLogPlot[Abs[prenos],{ω,1,(10^6)},PlotRange->All,AxesLabel->{"ω","Prenos"},PlotLabel->"Nas prenos",GridLines->Automatic]