#LAPLACE
#USEFLOAT=FALSE
#SIMPLIFY=TRUE
#ERRBND=15
#EXPDSP=5
#PREC=8
#F1=(R_i + R)
#F2=g(x)=
#F3=h(x)=f(x)/g(x)
#F4=matrix(
#F5=vector(
#F6=diff(f)
#F7=diff(g)
#F8=diff(h)
#F9=taylor(f,0)
#F10=taylor(f,1)
#F11=
#F12=
#F13=
#F14=
#F15=
#F16=
#F17=
#F18=
#F19=
#F20=
const(U_0,R_i)
I(R)=U_0/(R_i + R)
U(R)=U_0 - I(R) * R_i
P(R)=U(R)*I(R)
P'(R)=diff(P)
P(R_i)
P'(R_i)
P(R)=U_0^2*R_i/(R_i+R)^2
diff(P)
P(R_i)
P_2(a)=P(a*R_i)
diff(P_2)
P_2(1)