Complex Numbers

        Dim Prec As Double = 0.0000000000003 'Unterschied bevor schleife verlassen wird.
        Dim PixelStep As Integer = 1

        Dim zielXmin As Double = 0.00375566440002255
        Dim zielXmax As Double = 0.00378629601280203
        Dim startXmin As Double = -36
        Dim startXmax As Double = 36

        Dim zielYmin As Double = -3.99629254176307
        Dim zielYmax As Double = -3.9962918419375
        Dim startYmin As Double = -22.5
        Dim startYmax As Double = 22.5

        Dim xDiff As Double = Math.Abs(Math.Max(startXmin, startXmax) - Math.Min(startXmax, startXmin)) -
            Math.Abs(Math.Max(zielXmax, zielXmin) - Math.Min(zielXmax, zielXmin))
        Dim yDiff As Double = Math.Abs(Math.Max(startYmin, startYmax) - Math.Min(startYmax, startYmin)) -
            Math.Abs(Math.Max(zielYmax, zielYmin) - Math.Min(zielYmax, zielYmin))

        'X Verlauf
        Dim xminR As Double
        Dim xmaxR As Double
        Dim yminR As Double
        Dim ymaxR As Double

        Dim Stepper As Integer = 0

        Do While True
            xminR = Math.Abs((zielXmin - startXmin) * startXmin / zielXmin * (zielXmin / startXmin) / 1440 * PixelStep)
            xmaxR = Math.Abs((zielXmax - startXmax) * startXmax / zielXmax * (zielXmax / startXmax) / 1440 * PixelStep)
            yminR = Math.Abs((zielYmin - startYmin) * startYmin / zielYmin * (zielYmin / startYmin) / 900 * PixelStep)
            ymaxR = Math.Abs((zielYmax - startYmax) * startYmax / zielYmax * (zielYmax / startYmax) / 900 * PixelStep)
            startXmin += xminR
            startYmin += yminR
            startXmax -= xmaxR
            startYmax -= ymaxR
            Stepper += 1
            xDiff = Math.Abs(Math.Max(startXmin, startXmax) - Math.Min(startXmax, startXmin)) -
            Math.Abs(Math.Max(zielXmax, zielXmin) - Math.Min(zielXmax, zielXmin))
            yDiff = Math.Abs(Math.Max(startYmin, startYmax) - Math.Min(startYmax, startYmin)) -
            Math.Abs(Math.Max(zielYmax, zielYmin) - Math.Min(zielYmax, zielYmin))
            If (xDiff + yDiff) < Prec Then Exit Do
        Loop

'Ausschnitt aus den Ergebnissen :

Höchste Verwendbare Präzision : 0.0000000000003

Anfangsbereiche

XMIN:-36
XMAX: 36
YMIN:-22.5
YMAX: 22.5

Gesuchter Bereich für einen Flüssigen Zoomvorgang/Vergrößerung
XMIN:-0,00375566440002255
XMAX: 0,00378629601280203
YMIN:-3,99629254176307
YMAX:-3,9962918419375


Ergebnisse :


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 0,5
Xmin: -0,238583028809813 | Xmax: 0,246074224828842 | Ymin: -4,00247917096913 | Ymax: -3,98743292902333
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:0,242338693209836
XMAXDIFF:0,24228792881604
YMINDIFF:0,00618662920606416
YMAXDIFF:0,00885891291416652
Benötigte Stepps: 7199


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 0,05
Xmin: -0,021050013673378 | Xmax: 0,0285867778660141 | Ymin: -3,99645372845928 | Ymax: -3,99606103144975
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:0,0248056780734005
XMAXDIFF:0,024800481853212
YMINDIFF:0,000161186696206794
YMAXDIFF:0,000230810487753086
Benötigte Stepps: 10480


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 0,005
Xmin: 0,00126201557623132 | Xmax: 0,00627942247440171 | Ymin: -3,99629662167736 | Ymax: -3,99628599972452
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:0,00249364882379123
XMAXDIFF:0,00249312646159968
YMINDIFF:4,07991429174359E-06
YMAXDIFF:5,84221297605936E-06
Benötigte Stepps: 13787


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 0,0005
Xmin: 0,00350585372604555 | Xmax: 0,00403605435717678 | Ymin: -3,99629264446032 | Ymax: -3,99629169488069
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:0,000249810673977004
XMAXDIFF:0,000249758344374752
YMINDIFF:1,02697245374372E-07
YMAXDIFF:1,47056811172774E-07
Benötigte Stepps: 17099


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-05
Xmin: 0,00373067341965493 | Xmax: 0,00381128175813288 | Ymin: -3,99629254434236 | Ymax: -3,99629183824409
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:2,49909803676182E-05
XMAXDIFF:2,49857453308538E-05
YMINDIFF:2,5792941116265E-09
YMAXDIFF:3,69340735772994E-09
Benötigte Stepps: 20413


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-06
Xmin: 0,00375316431029543 | Xmax: 0,00378879557881774 | Ymin: -3,99629254182785 | Ymax: -3,99629184184474
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:2,50008972712363E-06
XMAXDIFF:2,49956601570782E-06
YMINDIFF:6,47815134868779E-11
YMAXDIFF:9,27640186887402E-11
Benötigte Stepps: 23727


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-07
Xmin: 0,00375541446552769 | Xmax: 0,00378654589494136 | Ymin: -3,9962925417647 | Ymax: -3,99629184193517
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:2,4993449486161E-07
XMAXDIFF:2,49882139328941E-07
YMINDIFF:1,63291602461868E-12
YMAXDIFF:2,33146835171283E-12
Benötigte Stepps: 27042


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-08
Xmin: 0,00375563941401863 | Xmax: 0,00378632099357195 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:2,49860039247193E-08
XMAXDIFF:2,49807699231192E-08
YMINDIFF:1,99396055222678E-13
YMAXDIFF:1,99396055222678E-13
Benötigte Stepps: 30357


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-09
Xmin: 0,00375566190043066 | Xmax: 0,00378629851187031 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:2,49959188503707E-09
XMAXDIFF:2,49906828304197E-09
YMINDIFF:1,99396055222678E-13
YMAXDIFF:1,99396055222678E-13
Benötigte Stepps: 33671


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-10
Xmin: 0,00375566415031135 | Xmax: 0,00378629626246091 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:2,49711197466279E-10
XMAXDIFF:2,4965888124201E-10
YMINDIFF:1,99396055222678E-13
YMAXDIFF:1,99396055222678E-13
Benötigte Stepps: 36987


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-11
Xmin: 0,00375566437523168 | Xmax: 0,0037862960375877 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:2,47908681430542E-11
XMAXDIFF:2,47856717788819E-11
YMINDIFF:1,99396055222678E-13
YMAXDIFF:1,99396055222678E-13
Benötigte Stepps: 40312


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-12
Xmin: 0,00375566439772175 | Xmax: 0,00378629601510235 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:2,30080407850886E-12
XMAXDIFF:2,30032312642514E-12
YMINDIFF:1,99396055222678E-13
YMAXDIFF:1,99396055222678E-13
Benötigte Stepps: 43734


Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-13
Xmin: 0,00375566439997196 | Xmax: 0,00378629601285261 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:5,05888733681736E-14
XMAXDIFF:5,05784650273178E-14
YMINDIFF:1,99396055222678E-13
YMAXDIFF:1,99396055222678E-13
Benötigte Stepps: 49229




Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 4E-13
Xmin: 0,00375566440002195 | Xmax: 0,00378629601280263 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
Differenzen:
XMINDIFF:6,04117450508923E-16
XMAXDIFF:6,03683769639929E-16
YMINDIFF:1,99396055222678E-13
YMAXDIFF:1,99396055222678E-13
Benötigte Stepps: 55713