Initial Conditions

x(t)

y(t)

Animate time

LL crnr

UR crnr

Show direction field

Show phase plot

Show phase point at time t

Show future

Copy Curve

Restart

Resize Field

Rebuild Field

f(x, y) = (-4 * x) - (2 * y)
g(x, y) = (-1 * x) - (3 * y)
A = (1.1424008173863733, 0.6866876396472589)
maxT = 2 (slider from 0 to 100, step 0.1)
stepsolve = 0.01 (slider from 0.00010 to 0.5, step 0.000010)
ppsol = SolveODE(g, f, x(A), y(A), maxT, stepsolve)
stepplot: 0.01
xlist = Sequence(x(Point[ppsol, tt]), tt, 0, 1, stepplot)
ylist = Sequence(y(Point[ppsol, tt]), tt, 0, 1, stepplot)
tlist: (Sequence[0, 1, stepplot] * maxT)
h = Ray((0, 0), (1, 0))
i = Ray((0, 0), (0, 1))
t = 0.44 (slider from (-1 * maxT / 10) to maxT, step stepplot)
B = Point(ppsol, t / maxT)
X_t: (t, x(B))
Y_t: (t, y(B))
a = false
C = (-2.208318647419591, -2.2894637544412677)
D = (2.790544328466745, 2.385409216169774)
H: abs(x(D) - x(C))
W: abs(y(D) - y(C))
n = 11 (slider from 1 to 30, step 1)
b = true
c = true
text1: "\frac{dx}{dt}=" + (LaTeX[f]) + " \\
\frac{dy}{dt}=" + (LaTeX[g]) + ""
InputBox1 = Textfield(f)
InputBox2 = Textfield(g)
mxval = Max(xlist)
myval = Max(ylist)
d = false
x2sol(x) = DataFunction[{0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.12000000000000001, 0.14, 0.16, 0.18, 0.19999999999999998, 0.21999999999999997, 0.23999999999999996, 0.25999999999999995, 0.27999999999999997, 0.3, 0.32, 0.34, 0.36000000000000004, 0.38000000000000006, 0.4000000000000001, 0.4200000000000001, 0.4400000000000001, 0.46000000000000013, 0.48000000000000015, 0.5000000000000001, 0.5200000000000001, 0.5400000000000001, 0.5600000000000002, 0.5800000000000002, 0.6000000000000002, 0.6200000000000002, 0.6400000000000002, 0.6600000000000003, 0.6800000000000003, 0.7000000000000003, 0.7200000000000003, 0.7400000000000003, 0.7600000000000003, 0.7800000000000004, 0.8000000000000004, 0.8200000000000004, 0.8400000000000004, 0.8600000000000004, 0.8800000000000004, 0.9000000000000005, 0.9200000000000005, 0.9400000000000005, 0.9600000000000005, 0.9800000000000005, 1.0000000000000004, 1.0200000000000005, 1.0400000000000005, 1.0600000000000005, 1.0800000000000005, 1.1000000000000005, 1.1200000000000006, 1.1400000000000006, 1.1600000000000006, 1.1800000000000006, 1.2000000000000006, 1.2200000000000006, 1.2400000000000007, 1.2600000000000007, 1.2800000000000007, 1.3000000000000007, 1.3200000000000007, 1.3400000000000007, 1.3600000000000008, 1.3800000000000008, 1.4000000000000008, 1.4200000000000008, 1.4400000000000008, 1.4600000000000009, 1.4800000000000009, 1.5000000000000009, 1.520000000000001, 1.540000000000001, 1.560000000000001, 1.580000000000001, 1.600000000000001, 1.620000000000001, 1.640000000000001, 1.660000000000001, 1.680000000000001, 1.700000000000001, 1.720000000000001, 1.740000000000001, 1.7600000000000011, 1.7800000000000011, 1.8000000000000012, 1.8200000000000012, 1.8400000000000012, 1.8600000000000012, 1.8800000000000012, 1.9000000000000012, 1.9200000000000013, 1.9400000000000013, 1.9600000000000013, 1.9800000000000013, 2}, {1.1424008173863733, 1.0293791826299756, 0.9272818902883857, 0.8350627286353317, 0.7517753058459604, 0.6765635406948963, 0.608653058583256, 0.5473434067255253, 0.4920010105278931, 0.44205280060990193, 0.3969804466353828, 0.3563151401937971, 0.3196328744701175, 0.2865501734152537, 0.2567202276295614, 0.2298293982441999, 0.20559405376979226, 0.18375770821586762, 0.16408843180129787, 0.14637650830558036, 0.13043231558067947, 0.11608440797795137, 0.10317778146679968, 0.0915723040513909, 0.08114129574730873, 0.07177024387801785, 0.0633556408064333, 0.05580393244332093, 0.04903056698396104, 0.042959134328602024, 0.037520587550761555, 0.0326525385994959, 0.028298621165582735, 0.02440791431459228, 0.02093442109879652, 0.017836596910880555, 0.015076922840989927, 0.012621519749765126, 0.01043979917819446, 0.008504147584445737, 0.006789640732013492, 0.0052737853558863824, 0.003936285507027641, 0.002758831223007218, 0.0017249073966077114, 0.0008196209168886861, 0.00002954434056531652, -0.0006574254825268347, -0.0012521952559871722, -0.0017645908457008912, -0.0022034618183601157, -0.0025767759658300395, -0.002891704770920702, -0.0031547006790900575, -0.0033715669582359198, -0.0035475208542086333, -0.0036872506822461975, -0.0037949674335238967, -0.003874451420809981, -0.003929094437274738, -0.003961937857312038, -0.003975707067347428, -0.003972842577615407, -0.003955528132420132, -0.003925716106112946, -0.0038851504446234513, -0.0038353873875938316, -0.003777814183740189, -0.003713665991775162, -0.003644041140869573, -0.0035699149080232447, -0.0034921519546900204, -0.003411517551408617, -0.0033286877068930258, -0.00324425830691033, -0.0031587533582084436, -0.0030726324236504073, -0.0029862973264741634, -0.0029000981941443905, -0.002814338905521378, -0.0027292819989731924, -0.0026451530935404435, -0.002562144870272267, -0.0024804206563376623, -0.002400117650432646, -0.002321349824309748, -0.0022442105319150922, -0.002168774854596046, -0.0020951017081087897, -0.0020232357346826424, -0.001953209001161696, -0.0018850425222217558, -0.0018187476258313545, -0.0017543271764713065, -0.001691776670131176, -0.0016310852137481065, -0.0015722364005300085, -0.0015152090914987936, -0.0014599781125889967, -0.001406514875732652, -0.0013547879315434757},x]
y2sol(x) = DataFunction[{0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.12000000000000001, 0.14, 0.16, 0.18, 0.19999999999999998, 0.21999999999999997, 0.23999999999999996, 0.25999999999999995, 0.27999999999999997, 0.3, 0.32, 0.34, 0.36000000000000004, 0.38000000000000006, 0.4000000000000001, 0.4200000000000001, 0.4400000000000001, 0.46000000000000013, 0.48000000000000015, 0.5000000000000001, 0.5200000000000001, 0.5400000000000001, 0.5600000000000002, 0.5800000000000002, 0.6000000000000002, 0.6200000000000002, 0.6400000000000002, 0.6600000000000003, 0.6800000000000003, 0.7000000000000003, 0.7200000000000003, 0.7400000000000003, 0.7600000000000003, 0.7800000000000004, 0.8000000000000004, 0.8200000000000004, 0.8400000000000004, 0.8600000000000004, 0.8800000000000004, 0.9000000000000005, 0.9200000000000005, 0.9400000000000005, 0.9600000000000005, 0.9800000000000005, 1.0000000000000004, 1.0200000000000005, 1.0400000000000005, 1.0600000000000005, 1.0800000000000005, 1.1000000000000005, 1.1200000000000006, 1.1400000000000006, 1.1600000000000006, 1.1800000000000006, 1.2000000000000006, 1.2200000000000006, 1.2400000000000007, 1.2600000000000007, 1.2800000000000007, 1.3000000000000007, 1.3200000000000007, 1.3400000000000007, 1.3600000000000008, 1.3800000000000008, 1.4000000000000008, 1.4200000000000008, 1.4400000000000008, 1.4600000000000009, 1.4800000000000009, 1.5000000000000009, 1.520000000000001, 1.540000000000001, 1.560000000000001, 1.580000000000001, 1.600000000000001, 1.620000000000001, 1.640000000000001, 1.660000000000001, 1.680000000000001, 1.700000000000001, 1.720000000000001, 1.740000000000001, 1.7600000000000011, 1.7800000000000011, 1.8000000000000012, 1.8200000000000012, 1.8400000000000012, 1.8600000000000012, 1.8800000000000012, 1.9000000000000012, 1.9200000000000013, 1.9400000000000013, 1.9600000000000013, 1.9800000000000013, 2}, {0.6866876396472589, 0.625648503178623, 0.5702490958483882, 0.5199593496473707, 0.4742993795067465, 0.4328347179430043, 0.3951720027870879, 0.3609550748967261, 0.32986144685193497, 0.3015991073444295, 0.2759036293293346, 0.25253555304572983, 0.2312780177616227, 0.21193461858640625, 0.19432746694463165, 0.17829543534152983, 0.16369256889352587, 0.15038664776445476, 0.138257886156986, 0.1271977548739988, 0.11710791569998086, 0.10789925697031166, 0.09949102070772302, 0.09181001262042297, 0.08478988708448533, 0.0783704999824296, 0.07249732294794288, 0.06712091318021164, 0.06219643354647507, 0.057683218193736674, 0.05354437934510503, 0.0497464513675221, 0.04625906856979793, 0.04305467352662203, 0.04010825302893772, 0.03739709903679158, 0.03490059226026618, 0.032600006219864495, 0.030478329841999444, 0.028520106830092908, 0.0267112902190564, 0.02503911067228169, 0.023491957217229624, 0.022059269239637247, 0.020731438668508, 0.01949972138552796, 0.018356156984377786, 0.017293496088503627, 0.016305134511101587, 0.015385053609110775, 0.014527766244580641, 0.013728267822493907, 0.012981991924544389, 0.0122847701039932, 0.011632795448013355, 0.011022589551294076, 0.01045097257848587, 0.009915036123663063, 0.00941211860266812, 0.008939782939258095, 0.00849579632864828, 0.008078111882568104, 0.007684851978514425, 0.007314293152693126, 0.006964852391348972, 0.006635074688948085, 0.006323621754134294, 0.006029261755654512, 0.005750860010651548, 0.005487370526957383, 0.005237828319377629, 0.005001342427522475, 0.0047770895695859504, 0.004564308372672261, 0.004362294125876895, 0.004170394007407145, 0.003988002741622103, 0.0038145586460319424, 0.0036495400320616265, 0.0034924619267927867, 0.003342873085982999, 0.0032003532714550476, 0.003064510768477503, 0.0029349801210472913, 0.0028114200650577134, 0.0026935116412119134, 0.0025809564712409717, 0.002473475182524312, 0.002370805967603204, 0.002272703266339709, 0.0021789365596157962, 0.002089289264501998, 0.002003557721761996, 0.0019215502674081986, 0.0018430863807921273, 0.0017679959024097637, 0.0016961183152328348, 0.0016273020839485221, 0.0015614040470078828, 0.0014982888568524598, 0.0014378284641137203},x]
parysol(x) = If[0 ≤ x ≤ t, y2sol(x)]
parxsol(x) = If[0 ≤ x ≤ t, x2sol(x)]
mixval = Min(xlist)
miyval = Min(ylist)
sp = 1.2 (slider from 0 to 1.5, step 0.1)
e = true
length = 0.5 (slider from 0.1 to 1.2)
ppsolb = SolveODE((-1 * g(x, y)), (-1 * f(x, y)), x(A), y(A), maxT, stepsolve)
xblist = Sequence(x(Point[ppsolb, tt]), tt, 0, 1, stepplot)
yblist = Sequence(y(Point[ppsolb, tt]), tt, 0, 1, stepplot)
tblist: (Sequence[0, 1, stepplot] * maxT)
x3sol(x) = DataFunction[{0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.12000000000000001, 0.14, 0.16, 0.18, 0.19999999999999998, 0.21999999999999997, 0.23999999999999996, 0.25999999999999995, 0.27999999999999997, 0.3, 0.32, 0.34, 0.36000000000000004, 0.38000000000000006, 0.4000000000000001, 0.4200000000000001, 0.4400000000000001, 0.46000000000000013, 0.48000000000000015, 0.5000000000000001, 0.5200000000000001, 0.5400000000000001, 0.5600000000000002, 0.5800000000000002, 0.6000000000000002, 0.6200000000000002, 0.6400000000000002, 0.6600000000000003, 0.6800000000000003, 0.7000000000000003, 0.7200000000000003, 0.7400000000000003, 0.7600000000000003, 0.7800000000000004, 0.8000000000000004, 0.8200000000000004, 0.8400000000000004, 0.8600000000000004, 0.8800000000000004, 0.9000000000000005, 0.9200000000000005, 0.9400000000000005, 0.9600000000000005, 0.9800000000000005, 1.0000000000000004, 1.0200000000000005, 1.0400000000000005, 1.0600000000000005, 1.0800000000000005, 1.1000000000000005, 1.1200000000000006, 1.1400000000000006, 1.1600000000000006, 1.1800000000000006, 1.2000000000000006, 1.2200000000000006, 1.2400000000000007, 1.2600000000000007, 1.2800000000000007, 1.3000000000000007, 1.3200000000000007, 1.3400000000000007, 1.3600000000000008, 1.3800000000000008, 1.4000000000000008, 1.4200000000000008, 1.4400000000000008, 1.4600000000000009, 1.4800000000000009, 1.5000000000000009, 1.520000000000001, 1.540000000000001, 1.560000000000001, 1.580000000000001, 1.600000000000001, 1.620000000000001, 1.640000000000001, 1.660000000000001, 1.680000000000001, 1.700000000000001, 1.720000000000001, 1.740000000000001, 1.7600000000000011, 1.7800000000000011, 1.8000000000000012, 1.8200000000000012, 1.8400000000000012, 1.8600000000000012, 1.8800000000000012, 1.9000000000000012, 1.9200000000000013, 1.9400000000000013, 1.9600000000000013, 1.9800000000000013, 2}, {1.1424008173863733, 1.2675033366333976, 1.4059652268377099, 1.5591997581865233, 1.7287691725917065, 1.9164003649274608, 2.124002214039039, 2.353684737053318, 2.607780258773383, 2.8888668081101407, 3.199793975796283, 3.5437114922647988, 3.9241008118021625, 4.344810019177964, 4.8100924082091465, 5.324649118471102, 5.8936762569874235, 6.522916976621797, 7.218719032508442, 7.9880983926884115, 8.83880953971664, 9.779423166975288, 10.819412047443114, 11.969245934468955, 13.240496444498625, 14.645952971613402, 16.19975079415474, 17.917512655739003, 19.816505237829176, 21.915812090077303, 24.23652474937391, 26.80195396058719, 29.6378631131671, 32.77272623014194, 36.23801309177255, 40.068504347710714, 44.302639771653276, 48.98290314419465, 54.15624761617752, 59.874565809995445, 66.19520936406376, 73.18156312053183, 80.90367970320834, 89.43898083709033, 98.87303242887205, 109.30040116604788, 120.82560120810268, 133.56414044497092, 147.64367679446178, 163.20529611167356, 180.40492450056664, 199.41488916302828, 220.42564340738855, 243.64767308133375, 269.31360350993407, 297.6805280262504, 329.03258139977333, 363.68378391899427, 401.9811845932266, 444.30833493250316, 491.0891280729408, 542.7920416714851, 599.9348270350363, 663.0896914150487, 732.8890253344917, 810.0317322689555, 895.2902240322744, 989.5181518796765, 1093.6589507048136, 1208.7552818447507, 1335.9594690006345, 1476.5450317212167, 1631.9194318812213, 1803.638160726658, 1993.4203074760603, 2203.165765294588, 2434.97424684535, 2691.1662997332173, 2974.3065321720283, 3287.229281326811, 3633.0669812298083, 4015.281514187391, 4437.698859454743, 4904.547385955543, 5420.500172294568, 5990.721777617902, 6620.919931420925, 7317.402659634929, 8087.141418731282, 8937.840869712472, 9878.015990313603, 10917.077297181288, 12065.425030964396, 13334.553246954909, 14737.164853055447, 16287.298746414534, 18000.47032115833, 19893.82675347013, 21986.318618165606, 24298.88955436292, 26854.685878488388},x]
y3sol(x) = DataFunction[{0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.12000000000000001, 0.14, 0.16, 0.18, 0.19999999999999998, 0.21999999999999997, 0.23999999999999996, 0.25999999999999995, 0.27999999999999997, 0.3, 0.32, 0.34, 0.36000000000000004, 0.38000000000000006, 0.4000000000000001, 0.4200000000000001, 0.4400000000000001, 0.46000000000000013, 0.48000000000000015, 0.5000000000000001, 0.5200000000000001, 0.5400000000000001, 0.5600000000000002, 0.5800000000000002, 0.6000000000000002, 0.6200000000000002, 0.6400000000000002, 0.6600000000000003, 0.6800000000000003, 0.7000000000000003, 0.7200000000000003, 0.7400000000000003, 0.7600000000000003, 0.7800000000000004, 0.8000000000000004, 0.8200000000000004, 0.8400000000000004, 0.8600000000000004, 0.8800000000000004, 0.9000000000000005, 0.9200000000000005, 0.9400000000000005, 0.9600000000000005, 0.9800000000000005, 1.0000000000000004, 1.0200000000000005, 1.0400000000000005, 1.0600000000000005, 1.0800000000000005, 1.1000000000000005, 1.1200000000000006, 1.1400000000000006, 1.1600000000000006, 1.1800000000000006, 1.2000000000000006, 1.2200000000000006, 1.2400000000000007, 1.2600000000000007, 1.2800000000000007, 1.3000000000000007, 1.3200000000000007, 1.3400000000000007, 1.3600000000000008, 1.3800000000000008, 1.4000000000000008, 1.4200000000000008, 1.4400000000000008, 1.4600000000000009, 1.4800000000000009, 1.5000000000000009, 1.520000000000001, 1.540000000000001, 1.560000000000001, 1.580000000000001, 1.600000000000001, 1.620000000000001, 1.640000000000001, 1.660000000000001, 1.680000000000001, 1.700000000000001, 1.720000000000001, 1.740000000000001, 1.7600000000000011, 1.7800000000000011, 1.8000000000000012, 1.8200000000000012, 1.8400000000000012, 1.8600000000000012, 1.8800000000000012, 1.9000000000000012, 1.9200000000000013, 1.9400000000000013, 1.9600000000000013, 1.9800000000000013, 2}, {0.6866876396472589, 0.7539520225690372, 0.8280884371798685, 0.9098113683711088, 0.9999101072527646, 1.0992566048463215, 1.2088141511966517, 1.3296469666901864, 1.4629308014930877, 1.6099646491095236, 1.7721836912072602, 1.9511736031772118, 2.148686363508623, 2.366657725108436, 2.6072265233227454, 2.8727560137964434, 3.1658574536181763, 3.48941616164483, 3.846620318707561, 4.2409927958182205, 4.676426328795244, 5.157222391214886, 5.688134154602376, 6.2744139656782805, 6.921865815677771, 7.6369033267165545, 8.426613835387387, 9.298829214787526, 10.262204143611012, 11.32630260546519, 12.5016934839342, 13.800056209937734, 15.234297518531783, 16.8186804834768, 18.568967120769965, 20.502575988131536, 22.638756357510598, 24.9987807035337, 27.606157434121712, 30.486865992079867, 33.669616680350885, 37.18613781105243, 41.07149305187307, 45.36443214561399, 50.1077785126603, 55.34885761528827, 61.13997037065919, 67.53891635019818, 74.60957200131877, 82.42252967812182, 91.05580387627516, 100.59561173986671, 111.13723565134298, 122.7859765371429, 135.6582074295282, 149.8825378284912, 165.60110051652129, 182.9709737045409, 202.16575274173715, 223.37728711887706, 246.8176001489827, 272.7210105375118, 301.34647707474124, 332.98018991610303, 367.9384343841308, 406.57075595312995, 449.2634580919876, 496.443467971867, 548.5826087272143, 606.2023210273753, 669.8788812129562, 740.2491682207916, 818.0170370138143, 903.9603623021801, 998.9388230504532, 1103.902505679654, 1219.9014120666939, 1348.0959674991818, 1489.7686337514397, 1646.3367435079122, 1819.3666845837777, 2010.5895759017214, 2221.918592113745, 2455.4681102570867, 2713.574870068688, 2998.821359736028, 3314.061661134955, 3662.4500132204384, 4047.472379440288, 4472.98133510706, 4943.234623890557, 5462.937769315016, 6037.291167728856, 6672.042134066806, 7373.542421293389, 8148.811789199039, 9005.608258763983, 9952.505755216322, 10998.97991685915, 12155.50292846711, 13433.648328373658},x]
l = Mirror(x3sol(x), x = 0)
m = Mirror(y3sol(x), x = 0)
P5 = (4.1604150389777725, 7.606023858534484)
P9 = (-4.947198596928807, 4.8360852944560015)
b2 = false
b3 = false
b4 = false
b5 = false
b6 = false
b7 = false
b8 = false
b9 = false
q = 7 (slider from 1 to 20, step 1)
l1 = Sequence(Sequence[Vector[(ii, jj), (ii, jj) + ((((2 * Min[x(D) - x(C), y(D) - y(C)])) / n * length) * UnitVector[(f(ii, jj), g(ii, jj))])], ii, x(C), x(D), H / n], jj, y(C), y(D), W / n)
ppsolc = SolveODE(g, f, x(A), y(A), (-1 * maxT), stepsolve)
tclist: (Sequence[-1, 0, stepplot] * maxT)
xclist = Reverse(xblist)
yclist = Reverse(yblist)
x4sol(x) = DataFunction[{-2, -1.98, -1.96, -1.94, -1.92, -1.9, -1.88, -1.8599999999999999, -1.8399999999999999, -1.8199999999999998, -1.7999999999999998, -1.7799999999999998, -1.7599999999999998, -1.7399999999999998, -1.7199999999999998, -1.6999999999999997, -1.6799999999999997, -1.6599999999999997, -1.6399999999999997, -1.6199999999999997, -1.5999999999999996, -1.5799999999999996, -1.5599999999999996, -1.5399999999999996, -1.5199999999999996, -1.4999999999999996, -1.4799999999999995, -1.4599999999999995, -1.4399999999999995, -1.4199999999999995, -1.3999999999999995, -1.3799999999999994, -1.3599999999999994, -1.3399999999999994, -1.3199999999999994, -1.2999999999999994, -1.2799999999999994, -1.2599999999999993, -1.2399999999999993, -1.2199999999999993, -1.1999999999999993, -1.1799999999999993, -1.1599999999999993, -1.1399999999999992, -1.1199999999999992, -1.0999999999999992, -1.0799999999999992, -1.0599999999999992, -1.0399999999999991, -1.0199999999999991, -0.9999999999999991, -0.9799999999999991, -0.9599999999999991, -0.9399999999999991, -0.919999999999999, -0.899999999999999, -0.879999999999999, -0.859999999999999, -0.839999999999999, -0.819999999999999, -0.7999999999999989, -0.7799999999999989, -0.7599999999999989, -0.7399999999999989, -0.7199999999999989, -0.6999999999999988, -0.6799999999999988, -0.6599999999999988, -0.6399999999999988, -0.6199999999999988, -0.5999999999999988, -0.5799999999999987, -0.5599999999999987, -0.5399999999999987, -0.5199999999999987, -0.49999999999999867, -0.47999999999999865, -0.45999999999999863, -0.4399999999999986, -0.4199999999999986, -0.3999999999999986, -0.37999999999999856, -0.35999999999999854, -0.3399999999999985, -0.3199999999999985, -0.2999999999999985, -0.2799999999999985, -0.25999999999999845, -0.23999999999999846, -0.21999999999999847, -0.19999999999999848, -0.1799999999999985, -0.1599999999999985, -0.13999999999999851, -0.11999999999999851, -0.0999999999999985, -0.0799999999999985, -0.0599999999999985, -0.039999999999998495, -0.019999999999998495, 0}, {26854.685878488388, 24298.88955436292, 21986.318618165606, 19893.82675347013, 18000.47032115833, 16287.298746414534, 14737.164853055447, 13334.553246954909, 12065.425030964396, 10917.077297181288, 9878.015990313603, 8937.840869712472, 8087.141418731282, 7317.402659634929, 6620.919931420925, 5990.721777617902, 5420.500172294568, 4904.547385955543, 4437.698859454743, 4015.281514187391, 3633.0669812298083, 3287.229281326811, 2974.3065321720283, 2691.1662997332173, 2434.97424684535, 2203.165765294588, 1993.4203074760603, 1803.638160726658, 1631.9194318812213, 1476.5450317212167, 1335.9594690006345, 1208.7552818447507, 1093.6589507048136, 989.5181518796765, 895.2902240322744, 810.0317322689555, 732.8890253344917, 663.0896914150487, 599.9348270350363, 542.7920416714851, 491.0891280729408, 444.30833493250316, 401.9811845932266, 363.68378391899427, 329.03258139977333, 297.6805280262504, 269.31360350993407, 243.64767308133375, 220.42564340738855, 199.41488916302828, 180.40492450056664, 163.20529611167356, 147.64367679446178, 133.56414044497092, 120.82560120810268, 109.30040116604788, 98.87303242887205, 89.43898083709033, 80.90367970320834, 73.18156312053183, 66.19520936406376, 59.874565809995445, 54.15624761617752, 48.98290314419465, 44.302639771653276, 40.068504347710714, 36.23801309177255, 32.77272623014194, 29.6378631131671, 26.80195396058719, 24.23652474937391, 21.915812090077303, 19.816505237829176, 17.917512655739003, 16.19975079415474, 14.645952971613402, 13.240496444498625, 11.969245934468955, 10.819412047443114, 9.779423166975288, 8.83880953971664, 7.9880983926884115, 7.218719032508442, 6.522916976621797, 5.8936762569874235, 5.324649118471102, 4.8100924082091465, 4.344810019177964, 3.9241008118021625, 3.5437114922647988, 3.199793975796283, 2.8888668081101407, 2.607780258773383, 2.353684737053318, 2.124002214039039, 1.9164003649274608, 1.7287691725917065, 1.5591997581865233, 1.4059652268377099, 1.2675033366333976, 1.1424008173863733},x]
y4sol(x) = DataFunction[{-2, -1.98, -1.96, -1.94, -1.92, -1.9, -1.88, -1.8599999999999999, -1.8399999999999999, -1.8199999999999998, -1.7999999999999998, -1.7799999999999998, -1.7599999999999998, -1.7399999999999998, -1.7199999999999998, -1.6999999999999997, -1.6799999999999997, -1.6599999999999997, -1.6399999999999997, -1.6199999999999997, -1.5999999999999996, -1.5799999999999996, -1.5599999999999996, -1.5399999999999996, -1.5199999999999996, -1.4999999999999996, -1.4799999999999995, -1.4599999999999995, -1.4399999999999995, -1.4199999999999995, -1.3999999999999995, -1.3799999999999994, -1.3599999999999994, -1.3399999999999994, -1.3199999999999994, -1.2999999999999994, -1.2799999999999994, -1.2599999999999993, -1.2399999999999993, -1.2199999999999993, -1.1999999999999993, -1.1799999999999993, -1.1599999999999993, -1.1399999999999992, -1.1199999999999992, -1.0999999999999992, -1.0799999999999992, -1.0599999999999992, -1.0399999999999991, -1.0199999999999991, -0.9999999999999991, -0.9799999999999991, -0.9599999999999991, -0.9399999999999991, -0.919999999999999, -0.899999999999999, -0.879999999999999, -0.859999999999999, -0.839999999999999, -0.819999999999999, -0.7999999999999989, -0.7799999999999989, -0.7599999999999989, -0.7399999999999989, -0.7199999999999989, -0.6999999999999988, -0.6799999999999988, -0.6599999999999988, -0.6399999999999988, -0.6199999999999988, -0.5999999999999988, -0.5799999999999987, -0.5599999999999987, -0.5399999999999987, -0.5199999999999987, -0.49999999999999867, -0.47999999999999865, -0.45999999999999863, -0.4399999999999986, -0.4199999999999986, -0.3999999999999986, -0.37999999999999856, -0.35999999999999854, -0.3399999999999985, -0.3199999999999985, -0.2999999999999985, -0.2799999999999985, -0.25999999999999845, -0.23999999999999846, -0.21999999999999847, -0.19999999999999848, -0.1799999999999985, -0.1599999999999985, -0.13999999999999851, -0.11999999999999851, -0.0999999999999985, -0.0799999999999985, -0.0599999999999985, -0.039999999999998495, -0.019999999999998495, 0}, {13433.648328373658, 12155.50292846711, 10998.97991685915, 9952.505755216322, 9005.608258763983, 8148.811789199039, 7373.542421293389, 6672.042134066806, 6037.291167728856, 5462.937769315016, 4943.234623890557, 4472.98133510706, 4047.472379440288, 3662.4500132204384, 3314.061661134955, 2998.821359736028, 2713.574870068688, 2455.4681102570867, 2221.918592113745, 2010.5895759017214, 1819.3666845837777, 1646.3367435079122, 1489.7686337514397, 1348.0959674991818, 1219.9014120666939, 1103.902505679654, 998.9388230504532, 903.9603623021801, 818.0170370138143, 740.2491682207916, 669.8788812129562, 606.2023210273753, 548.5826087272143, 496.443467971867, 449.2634580919876, 406.57075595312995, 367.9384343841308, 332.98018991610303, 301.34647707474124, 272.7210105375118, 246.8176001489827, 223.37728711887706, 202.16575274173715, 182.9709737045409, 165.60110051652129, 149.8825378284912, 135.6582074295282, 122.7859765371429, 111.13723565134298, 100.59561173986671, 91.05580387627516, 82.42252967812182, 74.60957200131877, 67.53891635019818, 61.13997037065919, 55.34885761528827, 50.1077785126603, 45.36443214561399, 41.07149305187307, 37.18613781105243, 33.669616680350885, 30.486865992079867, 27.606157434121712, 24.9987807035337, 22.638756357510598, 20.502575988131536, 18.568967120769965, 16.8186804834768, 15.234297518531783, 13.800056209937734, 12.5016934839342, 11.32630260546519, 10.262204143611012, 9.298829214787526, 8.426613835387387, 7.6369033267165545, 6.921865815677771, 6.2744139656782805, 5.688134154602376, 5.157222391214886, 4.676426328795244, 4.2409927958182205, 3.846620318707561, 3.48941616164483, 3.1658574536181763, 2.8727560137964434, 2.6072265233227454, 2.366657725108436, 2.148686363508623, 1.9511736031772118, 1.7721836912072602, 1.6099646491095236, 1.4629308014930877, 1.3296469666901864, 1.2088141511966517, 1.0992566048463215, 0.9999101072527646, 0.9098113683711088, 0.8280884371798685, 0.7539520225690372, 0.6866876396472589},x]
P_{2} = (0.6733453621299389, 1.0200896509477526)
ppsol_{2} = SolveODE(g, f, x(P_{2}), y(P_{2}), maxT, stepsolve)
ppsolr_{2} = SolveODE(g, f, x(P_{2}), y(P_{2}), (-1 * maxT), stepsolve)
P_{3} = (0.7762248586495168, 0.9292172734774351)
ppsol_{3} = SolveODE(g, f, x(P_{3}), y(P_{3}), maxT, stepsolve)
ppsolr_{3} = SolveODE(g, f, x(P_{3}), y(P_{3}), (-1 * maxT), stepsolve)
P_{4} = (1.1736711810701357, -0.4436264962251468)
ppsol_{4} = SolveODE(g, f, x(P_{4}), y(P_{4}), maxT, stepsolve)
ppsolr_{4} = SolveODE(g, f, x(P_{4}), y(P_{4}), (-1 * maxT), stepsolve)
P_{5} = (1.3319095391503672, -0.9403393401038531)
ppsol_{5} = SolveODE(g, f, x(P_{5}), y(P_{5}), maxT, stepsolve)
ppsolr_{5} = SolveODE(g, f, x(P_{5}), y(P_{5}), (-1 * maxT), stepsolve)
P_{6} = (-0.815123949217146, -0.5981298673156196)
ppsol_{6} = SolveODE(g, f, x(P_{6}), y(P_{6}), maxT, stepsolve)
ppsolr_{6} = SolveODE(g, f, x(P_{6}), y(P_{6}), (-1 * maxT), stepsolve)
P_{7} = (-1.0090002040564723, 0.42647143570541013)
ppsol_{7} = SolveODE(g, f, x(P_{7}), y(P_{7}), maxT, stepsolve)
ppsolr_{7} = SolveODE(g, f, x(P_{7}), y(P_{7}), (-1 * maxT), stepsolve)
LL = Corner(2, 1)
UR = Corner(2, 3)
text2: "LL = " + LL + ""
text3: "UR = " + UR + ""