1+1+x

1/5

(2/10)

(Sqrt[2.])

N[(Sqrt[2])]

(Sqrt[2])//N

N@(Sqrt[5])

x=(Sqrt[5])

x

x=(Sqrt[5]);
z=2;

ClearAll[z]

pondeli=6+Honza

6+Honza

Honza=8;

pondeli

%

%20 (*cislo vstupu*)

$HistoryLength=2

ClearAll[x]

2x+3y==2
5*y+8*x==0

krtek zajic jezek

Solve[x^2+(2/7)a x+1==0,x]

rov=NSolve[2x+3y==2&&
5*y+8*x==0,{x,y}]

x/.rov

2x+3y/.rov

res=2x+3y/.{x->2,y->1}

x=2;
y=1;

res

ClearAll[x,y]

res

rovnice=a*(x^2)+b*x+c==0;

rovnice/.{a->2,b->5,c->7}

Solve[rovnice,x]

Integrate[Log[x+2],x]

∫Log[x+2]\[DifferentialD]x

InverseLaplaceTransform[((p+1)/((p^3)+2*p+1.)),p,t]

Integrate[(x^17.25)*Sin[(x^3)+1],x]

x=2

Plot[((x^2)/2)+5,{x,0,10}]

a=((x^2)/2)+5;

Plot[a,{x,0,10}]

ClearAll[x] (*vycisteni x*)

b:=x

b

x=6;

(*zacatek 2. cviceni*)

?*Plot*

Plot[Sin[x],{x,0,6Pi}]

Options[Plot]

Plot[Sin[x],{x,0,6Pi},PlotStyle->{Red,Thickness[0.003],Dashed}]

Plot[{Sin[x],Cos[x]},{x,0,6Pi},PlotStyle->{{Red,Thickness[0.003],Dashed},{Blue}},AxesLabel->{"x(t)","y"},PlotLabel->"Nadpis grafu",LabelStyle->Directive[Italic,Purple,10],Axes->{False,True},AxesStyle->{Thick,RGBColor[1,0.2,0.9]},GridLines->{{Pi,2Pi},Automatic}(*,GridLinesStyle->Directive[Green,Dashed]*)]

Red

Plot[{1/Sin[x],Cos[x]},{x,0,6Pi},PlotStyle->{{Red,Thickness[0.003],Dashed},{Blue}},AxesLabel->{"x(t)","y"},PlotLabel->"Nadpis grafu",LabelStyle->Directive[Italic,Purple,10],AxesStyle->{Thick,RGBColor[1,0.2,0.9]},GridLines->{{Pi,2Pi},Automatic}(*,GridLinesStyle->Directive[Green,Dashed]*),PlotRange->{Full,{-1,2}}]

i=Table[i,{i,1,20,5}];

Plot[Cos[x],{x,0,6Pi},PlotStyle->Blue,AxesLabel->{"x(t)","y"},PlotLabel->"Nadpis grafu",GridLines->{i,False},GridLinesStyle->Directive[Gray,Thick]]

"b"<>"a"//FullForm

"b""a"//FullForm

y=c

ClearAll[a];
a[r_,y_]:=((Sin[y])^r);

Plot[{a[5,Tanh[t]],a[10,Tanh[2*t]]},{t,-Pi(*esc p esc*),Pi},PlotStyle->{{Red,Thick},{Green,Dashed}},AxesLabel->{"x","neco"}]

ClearAll[i,h,a,b,x,y]
rovnice={(y^12)+a*x==0,2(x^5)==b,a+b==7};
res=Solve[rovnice,{x,y,a}];

res

h[b_]=Total[(Abs[x]+Abs[y])/.res];

h[5]

(*3. cviceni*)

Table[i,{i,10}]

j=Table[i,{i,10,20}]

k=Table[i,{i,650,1000,33}]

{x,y}/.{x->k,y->j}//MatrixForm

hod=Thread[{k,j}]

MatrixForm@hod//FullForm

Thread[{hod[[1;;5,2]],hod[[2;;6,1]]}]

x=Table[a,{a,0,Pi,Pi/10}];
fce=Thread[{x,Cos[5x]}]

Table[{a,Cos[5a]},{a,0,Pi,Pi/10}]

ListPlot[fce,PlotRange->{{0,Pi},{-1.5,1.5}},PlotMarkers->{"+",15},PlotStyle->Darker[Red,0.1],Joined->True]

ListLinePlot[fce,PlotRange->{{0,Pi},{-1.5,1.5}},PlotMarkers->{"",15},PlotStyle->Darker[Blue,0.1]]

gr1=ListPlot[fce,PlotRange->{{0,Pi},{-1.5,1.5}},PlotMarkers->{"+",15},PlotStyle->Darker[Red,0.1],AxesLabel->{"osa x","osa y"}];

gr2=Plot[Cos[5t],{t,0,Pi},PlotStyle->DotDashed,AxesLabel->{"t(s)","Y"}];

Show[{gr1,gr2}]

gr3=Show[{gr2,gr1},AxesLabel->{"A","B"}]

NotebookDirectory[]

Export[NotebookDirectory[]<>"obr.png",gr3];

ClearAll[x]

Manipulate[a0=a;Plot[a*Sin[b*x],{x,0,Pi},PlotStyle->{Green,DotDashed},PlotRange->{Automatic,{-10,10}},AxesLabel->{"t(s)","Y"}],{a,1,10},{{b,1},0.1,2,0.3}]

a0

ClearAll[y]

rov=NDSolve[{y'[t]==((Cos[t])/(1+(((y[t]))^2))),y[0]==0},{y,y'},{t,0,15}];

Plot[Evaluate[{y[t],y'[t]}/.rov],{t,0,15},PlotStyle->{Red,Blue},AxesLabel->{"x","y"}]

Plot[{y[t]/.rov,y'[t]/.rov},{t,0,15},PlotStyle->{Red,Blue},AxesLabel->{"x","y"}]

DSolve[{y'[t]==(1/(((y[t]))^2)),y[0]==0},y,t]