1+1
2+3

a=4

bee

b+a

sin[x]

?@

?Global`*

?=

?==

sin[Pi]
Sin[Pi]

InverseLaplaceTransform[(((p^1)-1)/((p^3)+1)),p,t]

ClearAll[a];
Solve[(x^3)+ x-a==0,x]

2*2
2 2

a=5;
b=7;
a b
a*b
ab

ClearAll["Global`*"]

kyncl=0;
5kyncl
kyncl5Inver987=7

I=5

(k^3)
(k/3)
(Sqrt[k])

β

Sin[(Pi/5)]
Sin[5]
Sin[5.1]
(Sqrt[5])

((55!)/(142!))

(556/422)

N[100!]
100!//N

N[Pi];
Pi//N;
N@Pi;
Sin[5];
5//Sin;
Sin@5;

((a+b)*(a-b)-(a^2))/(b^2)
Simplify[%]

%%%%%%%%%%

?_

Tady bude nadpis

pom=Jan_Kyncl (*takove prikazy nepouzivat*)
pom[[0]]

?Plot

Sin[1]
Sin[{1,2,3,4}]

??Plot

Plot[{Tanh[x],Sin[x]},{x,-5,5},AxesLabel->{"x","Tanh[x]"},PlotStyle->{{Thick,RGBColor[1,0,0]},{Thick,RGBColor[1,1,0],Dashing[{0.05,0.02}]}}]

Plot[{Tanh[x],UnitStep[x]},{x,-5,5}]

listik={1,2,opice,{pes,kocka,{topolanek,dalik}}}
listik[[-2]];
listik[[-1,-1]];
listik[[-1]][[-1]];
listik[[0]]

ClearAll[u];
u[t_]:=10*(1-Exp[((-t)/0.001)]);
tmax=0.004;
n=100;
krok=(tmax/n);
listik=Table[{u[t],t},{t,0,tmax,krok}];
ListPlot[listik,AxesLabel->{"u[t]","t"}]

dat={{26.1,3.6},{30,3.69},{40,3.72},{50,3.84},{60,4},{70,4.19},{80,4.4},{90,4.62},{100,4.85},{110,5.1},{120,5.34},{130,5.52},{140,5.56},{150,5.34},{160,4.82},{150,5.34},{160,4.82},{170,4.11},{180,3.32},{190,2.6},{200,2.05},{210,1.55},{220,1.2},{230,0.92},{240,0.71},{250,0.57}};

ListPlot[dat]

data=Table[{x,Sin[x]},{x,0,2Pi,0.5}];
pl1=ListPlot[data,AxesLabel->{"x","sin"},PlotStyle->{PointSize[0.018],GrayLevel[0]}];
proklad=Interpolation[data,InterpolationOrder->3]
Plot[proklad[x],{x,0,6},AxesLabel->{"x","sin"},PlotStyle->Thick];
Show[pl1,%]

dat={{26.1,3.6},{30,3.69},{40,3.72},{50,3.84},{60,4},{70,4.19},{80,4.4},{90,4.62},{100,4.85},{110,5.1},{120,5.34},{130,5.52},{140,5.56},{150,5.34},{160,4.82},{170,4.11},{180,3.32},{190,2.6},{200,2.05},{210,1.55},{220,1.2},{230,0.92},{240,0.71},{250,0.57}}//Union;
Tmin=dat[[1,1]];
Tmax=dat[[-1,1]];

pl1=ListPlot[dat,AxesLabel->{"T[°C]","R[kΩ]"},PlotStyle->{PointSize[0.015],GrayLevel[0]}];
proklad=Interpolation[dat,InterpolationOrder->3];
Plot[proklad[T],{T,Tmin,Tmax},AxesLabel->{"T[°C]","R[kΩ]"},PlotStyle->Thick];
Show[pl1,%]

model=(k1/((T^(1.5-k3))*Exp[((-k2)/T)]));
regr=Normal[NonlinearModelFit[dat,model,{{k1,5},{k2,1000},{k3,-2}},T]];
Print["proklad:  R= ",regr];
Plot[regr,{T,Tmin,Tmax},AxesLabel->{"T[°C]","R[kΩ]"},PlotStyle->Thick];
Show[pl1,%]

rnd:=Random[Real,{-1,1}];
R=10;
data=Table[{i+0.2*rnd,R*i+0.4*rnd},{i,0.2,3,0.2}];
pl1=ListPlot[data,AxesLabel->{"i[A]","u[V]"},PlotStyle->{PointSize[0.015],GrayLevel[0]}];
model=k4*i;
regr=Normal[NonlinearModelFit[data,model,{k4},i]];
imin=data[[1,1]];
imax=data[[-1,1]];
Plot[regr,{i,imin,imax},AxesLabel->{"T[°C]","R[kΩ]"},PlotStyle->Thick];
Show[pl1,%];
Print["R= ",D[regr,i]," Ω"]