plot=Table[(Subscript[sprusle, i]),{i,10}];
Map[natriSprusli,plot];
natriSprusli/@plot;

Map[f,{a,b,c}]
f/@{a,b,c}

Apply[f,{a,b,c}]
f@@{a,b,c}
Plus@@{a,b,c}

naDruhou[x_]:=(x^2);

Plus[a,b,c]

Plus@@(naDruhou/@Range[100])
(∑_(i=1)^100)(i^2)

Plus@@(((#)^2)&/@Range[100])

Cos'

uk=6;
test[uk]
#>2&[uk]

test[x_]:=x>2;
Select[{1,2,4,7,6,2},test]
Select[{1,2,4,7,6,2},#>2&]

mojefce:=((#1)^(#2))&

mojefce[2,10]

divokafce[x__]:=Plus[x];
divokafce[1,2,3,4,5]

Range[10]/.a_?EvenQ:>2a

moc=Table[(i^E),{i,10}]
moc/.((a_)^(b_)):>(b^a)
moc/.{(5^(b_)):>(b^a)}

rce={u==R*i[t]+L*i'[t]+uc[t],i[t]==c*uc'[t]};
Cases[rce,a_'[t],{0,∞}]
%/.a_'[t]:>a[0]==0

rce={u==R*i[t]+L*i'[t]+uc[t],i[t]==c*uc'[t]};
Solve[(rce/.a_'[t]:>a*I*ω)/.a_[t]:>a,{uc,i}];
napKond=uc/.%[[1]]/.{R->10,L->0.1,c->0.0001,ω->314,u->10};
Plot[Im[napKond*Exp[I*314t]],{t,0,0.08}]

f[n_]:=Re[Plus@@(((#)^(-1))&/@(x/.Solve[0.==Plus@@(#!*(x^(#))&/@(Range[n+1]-1)),x]))];
f/@Range[20]

(Range[6]-1)

ClearAll[n];
f[n_]:=Re[Plus@@(((#)^(-1))&/@(x/.Solve[0.==Plus@@(#!*(x^(#))&/@(Range[n+1]-1))]))]
f/@Range[50]

#!*(x^(#))&[0]

ser:=Plus@@#&;
ser[{R1,R2,R3,R4}]
par:=(((Plus@@((#)^(-1))))^(-1))&;
par[{R1,R2}]

Zs=par[{ser[{I*ω*L,R3}],ser[{(1/(I*ω*c1)),R2}]}];
Z1=ser[{Zs,R1}];
Z2=(1/(I*ω*c2));
prenos=(Z2/(Z1+Z2));
dp=Abs[prenos/.{R1->100,R2->100,L->0.05,c1->(10^(-6)),c2->(10^(-7)),R3->100}];
LogLogPlot[dp,{ω,10,150000},PlotRange->All,PlotStyle->Thick,AxesLabel->{"ω[(s^(-1))]","Abs[P(jω)]"}]