S_1

S_2

dsigma: 10
dsigma_ln3: (dsigma * log(3))
M1 = 260
T1a_sub = (173.55499951354366, 127.73305071962575)
n_sigma = 20 (slider from -5 to 20, step 0.1)
ymin = -61.571772117774756
ymax = 348.5886773632597
xmin = -167.80375783136915
xmax = 404.51688214265494
dy: 10
dx = 10
T1a = DynamicCoordinates(T1a_sub, If[x(T1a_sub) > (floor(xmax / dx) * dx), (floor(xmax / dx) * dx), If[x(T1a_sub)  <  (ceil(xmin / dx) * dx), (ceil(xmin / dx) * dx), (round(x(T1a_sub) / dx) * dx)]], If[y(T1a_sub) > (floor(ymax / dy) * dy), (floor(ymax / dy) * dy), If[y(T1a_sub)  <  (ceil(ymin / dy) * dy), (ceil(ymin / dy) * dy), (round(y(T1a_sub) / dy) * dy)]])
T2a_sub = (68.2421913964961, 158.26608666114197)
T2a = DynamicCoordinates(T2a_sub, If[x(T2a_sub) > (floor(xmax / dx) * dx), (floor(xmax / dx) * dx), If[x(T2a_sub)  <  (ceil(xmin / dx) * dx), (ceil(xmin / dx) * dx), (round(x(T2a_sub) / dx) * dx)]], If[y(T2a_sub) > (floor(ymax / dy) * dy), (floor(ymax / dy) * dy), If[y(T2a_sub)  <  (ceil(ymin / dy) * dy), (ceil(ymin / dy) * dy), (round(y(T2a_sub) / dy) * dy)]])
M2 = 320
S0(x) = 1 / (1 + ℯ^((-x)))
sigma1 = 49.99999999999999
theta1 = 170
S1(x) = (M1 * S0((x - theta1) / sigma1))
LL = Corner(1)
UR = Corner(3)
theta2 = 70
sigma2 = 0.09999999999999461
S2(x) = (M2 * S0((x - theta2) / sigma2))
T1b_sub = (222.94307504429705, 148.08840801396988)
text1: "S_1(x) = " + (LaTeX[S1]) + ""
T2b_sub = (0.69673515590697, 242.74081943267015)
text3: "S_2(x)=" + (LaTeX[S2]) + ""
min_sigma: 0.1
T1b = DynamicCoordinates(T1b_sub, If[x(T1b_sub)  <  x(T1a) + dsigma_ln3 / 2, x(T1a) + (min_sigma * log(3)), x(T1a) + (dsigma_ln3 * round((x(T1b_sub) - x(T1a)) / dsigma_ln3))], (3 * M1 / 4))
T2b = DynamicCoordinates(T2b_sub, If[x(T2b_sub)  <  x(T2a) + dsigma_ln3 / 2, x(T2a) + (min_sigma * log(3)), x(T2a) + (dsigma_ln3 * round((x(T2b_sub) - x(T2a)) / dsigma_ln3))], (3 * M2 / 4))