In the attempt to calculate the limit of a derivative to imaginary x I found a limit of the radius of a derivative function of 2pir, no matter how big the radius the limit of the function will allwys tend to 0.81i(imaginary ), further investigating it i found to be usefull in making a wormhole from two hyperboloids separated from each other just be equaling the equation to negative Pi, it opens a hole in between the hyperboles and comunicate it one to the other. I further wanted to manipulate the value of the right part of the equation to open up a possibility of seeing that the expansion of the hole leads to a finite /infinite no border limit universe, but it is just a sketch. Hope you see the novelty aproach to resolve a derivative of a complex number in a new manner.
c=300000000
n=RandomInteger[100,{200}]
r=RandomReal[5.29*10^-11,{200}]
f=(((Pi+1)*r)*Sqrt[(-2*Pi*r)/((Pi+1)*r)])/((Sqrt[(2*Pi*r)^2+2*Pi*r]))
g=2*Pi*(r+f)
gg=2*Pi*r
h=((c-c*Power[c, (c)^-1])/f)^2
Plot[f^-1,{f,-Pi,Pi}]
t=Table[Log[f,g],Pi]
Plot[t,{t,-Pi,Pi}]
ParametricPlot[g^-1*gg,{g,-Pi,Pi}]
ContourPlot[f*g,{f,0,4Pi},{g,0,4Pi}]
ContourPlot3D[f*h-gg^2==Pi,{f,-2Pi,2Pi},{h,-2Pi,2Pi},{gg,-2Pi,2Pi}]
Play[f,{f,0,90}]
c=300000000
n=RandomInteger[100,{200}]
r=RandomReal[5.29*10^-11,{200}]
f=(((Pi+1)*r)*Sqrt[(-2*Pi*r)/((Pi+1)*r)])/((Sqrt[(2*Pi*r)^2+2*Pi*r]))
g=2*Pi*(r+f)
gg=2*Pi*r
h=((c-c*Power[c, (c)^-1])/f)^2
Plot[f^-1,{f,-Pi,Pi}]
t=Table[Log[f,g],Pi]
Plot[t,{t,-Pi,Pi}]
ParametricPlot[g^-1*gg,{g,-Pi,Pi}]
ContourPlot[f*g,{f,0,4Pi},{g,0,4Pi}]
ContourPlot3D[f*h-gg^2==-Pi,{f,-2Pi,2Pi},{h,-2Pi,2Pi},{gg,-2Pi,2Pi}]
Play[f,{f,0,90}]
![a way to avoid singulaities][1]![making th value of the equation equals negative pi\]\[2\![enter image description here][2]
Attachments: