1+1
2+3

a=3

a=2

a=

a

a=345;
b=0

(a^b);
(a^b);
a^b;

a=9

ClearAll["Global`*"]

Remove

kyncl je vul

1 2

a*b

Out[29]/f

%

%/.a->4

Clear[a]

vyraz=a*b;
vyraz/f
%^h

((a b)/f)

a=4

Sin[0]
Cos[Pi]
Exp[a]

0.1//Tanh

Tanh[0.1]

Sin[5]

Sin[5.]

N[Pi]

N[Pi,100]

Integrate[(E^(a*(x^2)+b*x+c)),x]

Plot[ξ*Sin[ξ*(1+ξ)],{ξ,0,12}]

Plot[ξ*Sin[ξ*(1+ξ)],{ξ,0,12},AxesLabel->{"ξ","f[ξ]"}]

ξ=hunk+knaf;
Plot[ξ*Sin[ξ*(1+ξ)],{ξ,0,12},AxesLabel->{ξ,f[ξ]}]

δΔ

Plot[ξ*Sin[ξ*(1+ξ)],{ξ,0,12},AxesLabel->{"ξ","f[ξ]"}]

Plot[ξ*Sin[ξ*(1+ξ)],{ξ,0,12},AxesLabel->{"ξ","f[ξ]"},PlotStyle->{Blue,Thick},PlotLabel->"Graf",GridLines->Automatic]

Options[Plot];

ParametricPlot[{t+Cos[t],Sin[t]},{t,0,4Pi},PlotStyle->{Red,Thickness[0.006]},AspectRatio->0.5,AxesLabel->{"x","y"},PlotLabel->"kotaalniczka"]

FindRoot[Exp[x]==2*Cos[x],{x,0}]

ClearAll[x]
rce=x==2*Cos[x]+x+0.3;
FindRoot[rce,{x,1}]

rce

(*zacate druheho cvika*)
ClearAll["Global`*"];
f[x_]:=(Sqrt[x])*Sin[(x^(3/2))+1];
Plot[f[(Sqrt[t])],{t,1,30},AxesLabel->{"t",f[(Sqrt[t])]},PlotStyle->{Red,Thick},GridLines->Automatic]

f//TreeForm

ClearAll["Global`*"];
f[x_]:=(Sqrt[x])*Sin[(x^(3/2))+1];
Plot[f[(Sqrt[t])],{t,1,30},AxesLabel->{"t",f[(Sqrt[t])]},PlotStyle->{Red,Thick},GridLines->Automatic]

Remove["Global`*"];
vyr=Integrate[x*Sin[x],{x,1,x}];
f[x_]=vyr;
f[1.2];
(*g[xx_]:=vyr/.x->xx;*)
g[2.]

?f

Remove["Global`*"];

Remove["Global`*"];
ψ=0;
f[t_,ψ_]:={t+Cos[t],Sin[t]}.{{Cos[ψ],Sin[ψ]},{-Sin[ψ],Cos[ψ]}};

ParametricPlot[f[t,ψ],{t,0,2*Pi},AxesLabel->{x,y},PlotStyle->{Magenta,Thick},GridLines->Automatic]

range=8;
Manipulate[

ParametricPlot[f[t,a],{t,0,2*Pi},AxesLabel->{"x","y"},PlotStyle->{Hue[hue],Thickness[tk]},GridLines->Automatic,PlotRange->{{-range,range},{-range,range}}]

,{{a,Pi},0,2Pi},{{tk,0.05},0.001,0.1},{hue,0,1}]

Attributes[Plot]

Remove["Global`*"];
Normal[Series[Tanh[x]+Cos[x],{x,0,5}]];
Plot[Evaluate[Normal[Series[Tanh[x]+Cos[x],{x,0,5}]]],{x,-5,5}]

Remove["Global`*"];
nahr[n_]:=Normal[Series[Sin[1.36*x]+Cos[x],{x,0,n}]];
listNahrad=Table[nahr[n],{n,1,15}];
plot[n_]:=Plot[{Sin[1.36*x]+Cos[x],listNahrad[[n]]},{x,0,2Pi},PlotRange->{Automatic,{-2.5,2.5}},PlotLabel->"n= "<>ToString[n] ,AxesLabel->{"x","f Taylor[f]"},PlotStyle->{{Red,Thick},{Blue,Thick,Dashed}}];
Manipulate[plot[n],{n,1,15,1}]