SetDirectory[NotebookDirectory[]]

FileNames[]

data=Import["koeficientyReal.xls"][[1]]

Drop[data,1];
b=data[[2;;,-1]]
Amat=data[[2;;,;;-2]];

Inverse[Amat].b

LinearSolve[Amat,b]

Amat//Dimensions
Dimensions[Amat]
Dimensions@Amat

xxx=ToExpression["x"<>ToString[#]]&/@Range[10]

#^2&[2]

f[2]

mujPlot:=Plot[#,{x,0,2Pi},AxesLabel->{"x","y"}]&;
mujPlot/@{Sin[x],Cos[x],Sin[3x]};

(Subscript[x, #])&/@Range[10]

eqs=Amat.xxx==b//Thread

Solve[eqs,xxx]

vyr[x_]=Integrate[((Sin[x])/((x^2)+1)),x];
vyr[21.3]

vyr[x_]:=Integrate[((Sin[x])/((x^2)+1)),x]
vyr[21.3]

dataKompl=Import["KoeficientyKomplex.xls"][[1]]

pom=dataKompl[[3;;,{-2,-1}]];
pom/.{a_Real,b_}:>a+I*b;
#.{1,I}&/@pom;
bKompl=pom.{1,I};

Amatre=dataKompl[[3;;,1;;-3;;2]];
Amatim=dataKompl[[3;;,2;;-3;;2]];

Table[Table[dataKompl[[i,j]],{j,1,Length[dataKompl]-3,2}],{i,3,Length[dataKompl]}];

LinearSolve[Amatre+I*Amatim,bKompl];

Inverse[Amatre+I*Amatim].bKompl;

D[y[t],t]

solDE=y[t]/.NDSolve[{y''[t]+11y'[t]+2y[t]==((Sin[t])/(t+1)),y[0]==1,y'[0]==5},y[t],{t,0,1000},MaxSteps->100000][[1]]

Plot[solDE,{t,0,1000},PlotRange->All]

Sin'

Plot[Sin'[t],{t,0,6}]

Plot[D[Sin[t],t],{t,0,6}];

MatrixPower[{{1,2},{7,12}},(1/5.)]

f=x+2y

podminka=x^2+y^2-1

l=f+λ*podminka

0==D[l,#]&/@{x,y,λ}

0==D[l,#]&/@{x,y,λ}
Solve[%]

%*2

#==debil&/@{ja,ty, on};

FindMinimum[{f,podminka==0},{x,y}]

NMinimize[{f,podminka==0},{x,y}]

Minimize[{f,podminka==0},{x,y}]

FindMaximum[{f,podminka==0},{x,y}]

teploty=Import["teploty.xls"]//Flatten;

P[T_]:=20/;-Infinity<T≤-15
P[T_]:=15/;-15<T≤-12
P[T_]:=12/;-12<T≤-8
P[T_]:=9/;-8<T≤-2
P[T_]:=5/;-2<T≤5
P[T_]:=3/;5<T≤13
P[T_]:=0/;13<T≤Infinity

Plot[P[t],{t,-20,20},AxesLabel->{"T ","kW"}]

ListPlot[teploty]

cas=Table[i*3600,{i,0,Length[teploty]-1}];

{cas,P/@teploty}//Transpose;

Pt={cas,P/@teploty}//Thread;

intP=Interpolation[Pt,InterpolationOrder->0]

Quiet@NIntegrate[intP[t],{t,0,cas[[-1]]}]

dataProud=Import["DataStatistika.xls"]//Flatten;

Variance[dataProud]

StandardDeviation[dataProud]

RootApproximant[14.567588337468617`]

(I^I)//ComplexExpand

FindRoot[x==1+Tanh[0.5x],{x,1.}]

ftau=Integrate[((Sin[x])/x),{x,1,τ}]

D[ftau,τ]
Plot[%,{τ,1,2}]

relam=Re[ll]/.Solve[ll^2+c*ll+5==0,ll]

Plot[relam,{c,-20,20}]