Farliam

Complex Numbers

Sep 22nd, 2020
54
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         Dim Prec As Double = 0.0000000000003 'Unterschied bevor schleife verlassen wird.
  2.         Dim PixelStep As Integer = 1
  3.  
  4.         Dim zielXmin As Double = 0.00375566440002255
  5.         Dim zielXmax As Double = 0.00378629601280203
  6.         Dim startXmin As Double = -36
  7.         Dim startXmax As Double = 36
  8.  
  9.         Dim zielYmin As Double = -3.99629254176307
  10.         Dim zielYmax As Double = -3.9962918419375
  11.         Dim startYmin As Double = -22.5
  12.         Dim startYmax As Double = 22.5
  13.  
  14.         Dim xDiff As Double = Math.Abs(Math.Max(startXmin, startXmax) - Math.Min(startXmax, startXmin)) -
  15.             Math.Abs(Math.Max(zielXmax, zielXmin) - Math.Min(zielXmax, zielXmin))
  16.         Dim yDiff As Double = Math.Abs(Math.Max(startYmin, startYmax) - Math.Min(startYmax, startYmin)) -
  17.             Math.Abs(Math.Max(zielYmax, zielYmin) - Math.Min(zielYmax, zielYmin))
  18.  
  19.         'X Verlauf
  20.         Dim xminR As Double
  21.         Dim xmaxR As Double
  22.         Dim yminR As Double
  23.         Dim ymaxR As Double
  24.  
  25.         Dim Stepper As Integer = 0
  26.  
  27.         Do While True
  28.             xminR = Math.Abs((zielXmin - startXmin) * startXmin / zielXmin * (zielXmin / startXmin) / 1440 * PixelStep)
  29.             xmaxR = Math.Abs((zielXmax - startXmax) * startXmax / zielXmax * (zielXmax / startXmax) / 1440 * PixelStep)
  30.             yminR = Math.Abs((zielYmin - startYmin) * startYmin / zielYmin * (zielYmin / startYmin) / 900 * PixelStep)
  31.             ymaxR = Math.Abs((zielYmax - startYmax) * startYmax / zielYmax * (zielYmax / startYmax) / 900 * PixelStep)
  32.             startXmin += xminR
  33.             startYmin += yminR
  34.             startXmax -= xmaxR
  35.             startYmax -= ymaxR
  36.             Stepper += 1
  37.             xDiff = Math.Abs(Math.Max(startXmin, startXmax) - Math.Min(startXmax, startXmin)) -
  38.             Math.Abs(Math.Max(zielXmax, zielXmin) - Math.Min(zielXmax, zielXmin))
  39.             yDiff = Math.Abs(Math.Max(startYmin, startYmax) - Math.Min(startYmax, startYmin)) -
  40.             Math.Abs(Math.Max(zielYmax, zielYmin) - Math.Min(zielYmax, zielYmin))
  41.             If (xDiff + yDiff) < Prec Then Exit Do
  42.         Loop
  43.  
  44. 'Ausschnitt aus den Ergebnissen :
  45.  
  46. Höchste Verwendbare Präzision : 0.0000000000003
  47.  
  48. Anfangsbereiche
  49.  
  50. XMIN:-36
  51. XMAX: 36
  52. YMIN:-22.5
  53. YMAX: 22.5
  54.  
  55. Gesuchter Bereich für einen Flüssigen Zoomvorgang/Vergrößerung
  56. XMIN:-0,00375566440002255
  57. XMAX: 0,00378629601280203
  58. YMIN:-3,99629254176307
  59. YMAX:-3,9962918419375
  60.  
  61.  
  62. Ergebnisse :
  63.  
  64.  
  65. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 0,5
  66. Xmin: -0,238583028809813 | Xmax: 0,246074224828842 | Ymin: -4,00247917096913 | Ymax: -3,98743292902333
  67. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  68. Differenzen:
  69. XMINDIFF:0,242338693209836
  70. XMAXDIFF:0,24228792881604
  71. YMINDIFF:0,00618662920606416
  72. YMAXDIFF:0,00885891291416652
  73. Benötigte Stepps: 7199
  74.  
  75.  
  76. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 0,05
  77. Xmin: -0,021050013673378 | Xmax: 0,0285867778660141 | Ymin: -3,99645372845928 | Ymax: -3,99606103144975
  78. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  79. Differenzen:
  80. XMINDIFF:0,0248056780734005
  81. XMAXDIFF:0,024800481853212
  82. YMINDIFF:0,000161186696206794
  83. YMAXDIFF:0,000230810487753086
  84. Benötigte Stepps: 10480
  85.  
  86.  
  87. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 0,005
  88. Xmin: 0,00126201557623132 | Xmax: 0,00627942247440171 | Ymin: -3,99629662167736 | Ymax: -3,99628599972452
  89. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  90. Differenzen:
  91. XMINDIFF:0,00249364882379123
  92. XMAXDIFF:0,00249312646159968
  93. YMINDIFF:4,07991429174359E-06
  94. YMAXDIFF:5,84221297605936E-06
  95. Benötigte Stepps: 13787
  96.  
  97.  
  98. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 0,0005
  99. Xmin: 0,00350585372604555 | Xmax: 0,00403605435717678 | Ymin: -3,99629264446032 | Ymax: -3,99629169488069
  100. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  101. Differenzen:
  102. XMINDIFF:0,000249810673977004
  103. XMAXDIFF:0,000249758344374752
  104. YMINDIFF:1,02697245374372E-07
  105. YMAXDIFF:1,47056811172774E-07
  106. Benötigte Stepps: 17099
  107.  
  108.  
  109. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-05
  110. Xmin: 0,00373067341965493 | Xmax: 0,00381128175813288 | Ymin: -3,99629254434236 | Ymax: -3,99629183824409
  111. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  112. Differenzen:
  113. XMINDIFF:2,49909803676182E-05
  114. XMAXDIFF:2,49857453308538E-05
  115. YMINDIFF:2,5792941116265E-09
  116. YMAXDIFF:3,69340735772994E-09
  117. Benötigte Stepps: 20413
  118.  
  119.  
  120. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-06
  121. Xmin: 0,00375316431029543 | Xmax: 0,00378879557881774 | Ymin: -3,99629254182785 | Ymax: -3,99629184184474
  122. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  123. Differenzen:
  124. XMINDIFF:2,50008972712363E-06
  125. XMAXDIFF:2,49956601570782E-06
  126. YMINDIFF:6,47815134868779E-11
  127. YMAXDIFF:9,27640186887402E-11
  128. Benötigte Stepps: 23727
  129.  
  130.  
  131. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-07
  132. Xmin: 0,00375541446552769 | Xmax: 0,00378654589494136 | Ymin: -3,9962925417647 | Ymax: -3,99629184193517
  133. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  134. Differenzen:
  135. XMINDIFF:2,4993449486161E-07
  136. XMAXDIFF:2,49882139328941E-07
  137. YMINDIFF:1,63291602461868E-12
  138. YMAXDIFF:2,33146835171283E-12
  139. Benötigte Stepps: 27042
  140.  
  141.  
  142. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-08
  143. Xmin: 0,00375563941401863 | Xmax: 0,00378632099357195 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
  144. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  145. Differenzen:
  146. XMINDIFF:2,49860039247193E-08
  147. XMAXDIFF:2,49807699231192E-08
  148. YMINDIFF:1,99396055222678E-13
  149. YMAXDIFF:1,99396055222678E-13
  150. Benötigte Stepps: 30357
  151.  
  152.  
  153. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-09
  154. Xmin: 0,00375566190043066 | Xmax: 0,00378629851187031 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
  155. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  156. Differenzen:
  157. XMINDIFF:2,49959188503707E-09
  158. XMAXDIFF:2,49906828304197E-09
  159. YMINDIFF:1,99396055222678E-13
  160. YMAXDIFF:1,99396055222678E-13
  161. Benötigte Stepps: 33671
  162.  
  163.  
  164. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-10
  165. Xmin: 0,00375566415031135 | Xmax: 0,00378629626246091 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
  166. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  167. Differenzen:
  168. XMINDIFF:2,49711197466279E-10
  169. XMAXDIFF:2,4965888124201E-10
  170. YMINDIFF:1,99396055222678E-13
  171. YMAXDIFF:1,99396055222678E-13
  172. Benötigte Stepps: 36987
  173.  
  174.  
  175. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-11
  176. Xmin: 0,00375566437523168 | Xmax: 0,0037862960375877 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
  177. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  178. Differenzen:
  179. XMINDIFF:2,47908681430542E-11
  180. XMAXDIFF:2,47856717788819E-11
  181. YMINDIFF:1,99396055222678E-13
  182. YMAXDIFF:1,99396055222678E-13
  183. Benötigte Stepps: 40312
  184.  
  185.  
  186. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-12
  187. Xmin: 0,00375566439772175 | Xmax: 0,00378629601510235 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
  188. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  189. Differenzen:
  190. XMINDIFF:2,30080407850886E-12
  191. XMAXDIFF:2,30032312642514E-12
  192. YMINDIFF:1,99396055222678E-13
  193. YMAXDIFF:1,99396055222678E-13
  194. Benötigte Stepps: 43734
  195.  
  196.  
  197. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 5E-13
  198. Xmin: 0,00375566439997196 | Xmax: 0,00378629601285261 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
  199. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  200. Differenzen:
  201. XMINDIFF:5,05888733681736E-14
  202. XMAXDIFF:5,05784650273178E-14
  203. YMINDIFF:1,99396055222678E-13
  204. YMAXDIFF:1,99396055222678E-13
  205. Benötigte Stepps: 49229
  206.  
  207.  
  208.  
  209.  
  210. Errechneter Bereich - Gesuchter Bereich bei einer Präzision von: 4E-13
  211. Xmin: 0,00375566440002195 | Xmax: 0,00378629601280263 | Ymin: -3,99629254176327 | Ymax: -3,9962918419373
  212. Xmin: 0,00375566440002255 | Xmax: 0,00378629601280203 | Ymin: -3,99629254176307 | Ymax: -3,9962918419375
  213. Differenzen:
  214. XMINDIFF:6,04117450508923E-16
  215. XMAXDIFF:6,03683769639929E-16
  216. YMINDIFF:1,99396055222678E-13
  217. YMAXDIFF:1,99396055222678E-13
  218. Benötigte Stepps: 55713
  219.  
  220.  
RAW Paste Data