2+5

f=5;

g=f+2;
h=g-3

doubek

doubek8

l1

l2

5m

5*n

a b

c*d

pi

Pi

(Sqrt[2])

(Sqrt[2.])

Sqrt[2]

Sqrt[2.]

N[Pi]

N@Pi

π//N

N[Pi,50]

5/3

(5/3)

N[(5/3),10]

10/3.

Pi*1.

3^2

(3^2)

(E^5)

(E^5.)

148.4131591025766

Sin[5.]

5*(Pi+3)

{jsme, tu, v, mistnosti}

LaplaceTransform[t*Cos[4*t]*(E^(-2*t)),t,s]

?InverseLaplaceTransform

x=5;

ClearAll@x

fce=Integrate[(E^((-4*(x^2))/5)),x]

Plot[fce,{x,-1,1}]

ClearAll[x]

Solve[{x+3*y==2*t,-x+2*y==(t^3)},{x,y}]

b=(5^(6;))

b=(5^6);

b

DSolve[y''[t]+3y'[t]==t+Sin[2t],y[t],t]

(*Hodina 2*)

x=9
(*ClearAll[x]*)
x

h=8

ClearAll["Global`*"]

sparta=slavie

a=5

a==2

t==m

t===m

x=hlava22

Plot[{Sinc[x],1/Cos[x]},{x,0,10},AxesLabel->{"x","sinc(x), 1/cos(x)"},Axes->{True,True},PlotStyle->{{RGBColor[0.5,0.5,0],Dashed,Thickness[0.015]},{Green,Thick}},PlotRange->{Automatic,{0,Automatic}},Grid]

Ticks

Options@Plot

graf=Plot[{Sec[x],Csc[x]},{x,0,2*Pi},PlotStyle->{{Black,Thick},{Pink,Thickness[0.01]}},AxesLabel->{"x","Sec[x], Csc[x]"}]

SetDirectory[NotebookDirectory[]]

Export["obrazek1.png",graf,ImageResolution->300]

%28

$HistoryLength=3;

Pi

E

%//N

N@%%%

u0=100;
τ=0.06;

Solve[u==u0*(E^((-t)/τ)),t]

t/.Solve[u==u0*(E^((-t)/τ)),t]

cas=t/.Solve[u==u0*(E^((-t)/τ)),t][[1]]

Solve[x-y==t&&(5/t)-x+16*y==(t^8),{x,y}]

rce=Solve[x-y==t&&(5/t)-x+16*y==(t^8),{x,y}]

ixko=x/.rce[[1]]

(*treti cviceni*)

funkce[t_]:=Exp[-(t^2)/2]-1;

Plot[funkce[Cos[x]],{x,-2Pi,2Pi},AxesLabel->{"x","y"}]

Manipulate[becko=b;
Plot[Sin[a*x+b],{x,-2*Pi,2*Pi},AxesLabel->{"x","sin(ax+b)"},PlotStyle->{Thickness[thickness],Hue[hue]}]
,
{{a,4},1,8,1},{{b,0},-2*Pi,2*Pi},{thickness,0.005,0.03},{hue,0,1,0.2}

]

becko

r=100;
l=0.01;
c=(10^(-5));

LogLogPlot[Abs[r+(I*ω*l)+(1/(I*ω*c))],{ω,(10^(-1)),(10^9)},
AxesLabel->{"ω(\!\(\*FractionBox[\(\(1\)\(\\ \)\), \(s\)]\))","Z(Ω)"},PlotStyle->Thick,GridLines->Automatic]

ClearAll[r,ser,par]

ser[odpor_]:=Total[odpor]

par[odpor_]:=((Total[(odpor^(-1))])^(-1))

par[odpor_]:=(((Plus@@((odpor^(-1)))))^(-1))

par:=(((Plus@@((#)^(-1))))^(-1))&

par[{ser[{par[{r,r}],r,r}],ser[{r,r}]}]

(*4. Cviceni*)

rcesoucastky={Ua-Ub==IR1*R1,Ub== IR2*R2,Ua-Uc== IR3*R3,Uc==IR4*R4,Ua-Ub== -Uz};
rceuzly={0== IR3+Iout+Iz2+IR1,IR1+Iz2+Iz==IR2,IR3==IR4+Iz};
rce=Union[rcesoucastky,rceuzly];
rce=rce/.{R1->100,R2->100,R3->100,R4->100,Iz->0.02,Uz->-10}
nezname={Ua,Ub,Uc,IR2,IR1,IR3,IR4,Iz2}

res=Solve[rce,nezname][[1]]

Ua/.res

(*5. cviceni*)

ClearAll["Global`*"];

soucastky={ic1[t]==c1*(ua'[t]-ub'[t]),r1*ir1[t]==ub[t],ic2[t]==c2*(ub'[t]-uc'[t]),r2*ir2[t]==uc[t],L*il'[t]==uc[t],uz==-ua[t]};
uz=10*Sin[314*t];
pocPodminky={ua[0]==0,ub[0]==0,uc[0]==0,il[0]==0};
proudy={0==ic1[t]+iz[t],ic1[t]==ir1[t]+ic2[t],ic2[t]==ir2[t]+il[t]};
hodnoty={r1->10*(10^3),r2->10*(10^3),c1->1*(10^(-6)),c2->1*(10^(-6)),L->1*(10^(-3))};
tMax=0.1;
rovnice=Union[soucastky,pocPodminky,proudy]/.hodnoty;
reseni=NDSolve[rovnice,{ua,ub,uc,ic1,ic2,il,ir1,ir2,iz},{t,0,tMax},StartingStepSize->(10^(-10)),MaxSteps->(10^8)]
Plot[uc[t]/.reseni,{t,0,tMax},AxesLabel->{"t(s)","uc[t] (V)"},PlotRange->Full]

f=Table[Sin[i*t],{i,1,20,2}]

Plot[f,{t,0,2*Pi},AxesLabel->{"t","siny"}]

Table[Sin[(2*i-1)*t],{i,10}]

Off[Prime::intpp]

matice=(Table[Prime[4*(i-1)+j-1],{i,4},{j,4}]/.Prime[0]->1);
matice//MatrixForm

matice

matice[[4,3]]=98

matice=(Table[Prime[4*(i-1)+j-1],{i,4},{j,4}]/.Prime[0]->1)//MatrixForm

matice[[1,4,3]]

matice//FullForm

mojeCesta=NotebookDirectory[]

data=Import[mojeCesta<>"scope_7.csv"]

maData=Cases[data,{_,_Real,_Real,_Real}];

pocetPrvku=Length[maData];

dvojice=maData[[All,{1,3}]]

dvojice=Table[
{maData[[i(*radek*),1(*sloupec*)]],
maData[[i(*radek*),3(*sloupec*)]]
},{i,pocetPrvku}];

ListPlot[dvojice,AxesLabel->{"t[s]","i[A]"}]

(*6. cviceni*)

ClearAll["Global`*"];

j=I;

r=100;
L=2.5*(10^(-3));
c=16*(10^(-9));

ser[odpor_]:=Total[odpor];
par[odpor_]:=((Total[(odpor^(-1))])^(-1));

z0=ser[{r,I*ω*L}];
z2=par[{r,(1/(I*ω*c))}]

p=(z2/(z0+z2))

p/.ω->314

LogLogPlot[Abs[p],{ω,0.1,(10^6)},PlotStyle->{Black,Thick},GridLines->Automatic,AxesLabel->{"ω[(s^(-1))]","p [-]"}]

z0=ser[{par[{ser[{(1/(c*I*ω)),j*ω*L}],ser[{r,I*ω*L}]}],r}];
z2=(1/(I*ω*c));

p=(z2/(z0+z2))
LogLogPlot[Abs[p],{ω,0.1,(10^6)},PlotStyle->{Black,Thick},GridLines->Automatic,AxesLabel->{"ω[(s^(-1))]","p [-]"},PlotRange->All]