Рельеф дна Баренцева моря вдоль трассы трубопровода

Моделирование трассы подводного трубопровода

Ниже представлен профиль трассы, проложенной по дну моря

data = [1];

Визуализация отметок глубин по трассе подводного трубопровода приведена ниже.

grTrace = ListPlot[data, PlotStyle —*? {PointSize[0.02], RGBColorfO, 0,1]}, Frame —> True, GridLines —> Automatic, PlotRange [2]]

Сплайн-интерполяция трассы подводного трубопровода

Для удобства последующего моделирования выполним сплайн-интерполяцию трассы трубопровода:

data = [3];

int = Interpolation[data, InterpolationOrder —> 2];

grTracel = Plot[int[ic], {х, 0, 550000}]

100000' 200000' 300000 400000 500060

Needs [“Splines”]

intSplineftJ = SplineFitfdata, Cubic]

SplineFunction[“Cubic”, “{0., 22.}”, “o”]”

Length[data]

23

intSpline[13]

SplineFunction[“Cubic”, “{0., 22.}”, “o”]”

grTraceSpline = ParametricPlot[Evaluate[SplineFit[data, Cubic] [u]], {u, 0, Lengthfdata] — 1}, PlotRange —? All, Compiled —> False, Frame —> True, GridLines —> Automatic,

FrameLabel —> {“Дистанция трассы”, “Глубина моря”, “Трасса подводного газопровода”, “Сплайн-Cubic”}, AspectRatio —? lei.75]

"Дистанция трассы"

grTraceSplineBezier = ParametricPlot[Evaluate[SplineFit[data, Bezier] [и]], {гл, 0, Length[data] — 1}, PlotRange —> All, Compiled —> False, Frame —> True, GridLines —? Automatic, FrameLabel —> {“Дистанция трассы”, “Глубина моря”, “Трасса подводного газопровода”, “Сплайн-Cubic”}, AspectRatio —> lei.75]

"Дистанция трассы"

Кусочно-линейная интерполяция

Строим профиль трассы:

grTracel = ListPlot[data, PlotStyle —> {Thickness[0.005], RGBColorfO, 0,1]}, PlotJoined —> True, Frame —> True, GridLines —> Automatic, PlotRange [2]]

Интерполяция трассы:

/[ж_/;0 x 15000] := -320

"500

f x_/-, 15000 x 75000] := -

  • 13(—15000 + ж)
  • 350 + 6000

f [ж_/; 75000 x 80000] := -

220 - ^7t(-75000 + ®)

f [ж_/; 80000 x 95000] := -

  • 11(—80000 + x)
  • 280 + 3000

f[x_/-, 95000 < x 100000] :=

  • 17(—95000 + ж)
  • 225 1000

f [ж_/; 100000 < x < 110000] :=

7(—100000 + ж) ; 310 + 1000

f [ж_/; 110000 < x < 160000] :=

;240 + 110000 ~ ж 1000

fx_/-, 160000 < x < 200000] :=

3(-160000 + ж) : 290 + 4000

f[x_/; 200000 x < 240000] :=

- -260 + 200000 ~ x ' 260 + 8000

7(—240000 + ж)

f[xj; 240000 < x 260000] :=

= 265 + 4000

f[xj; 260000 290000] :=

= _23Q + 26OOOO-_? 1 OU

f[x_/; 290000 < x 360000] :=

= -270 + —290000 + ж)

o75

/[??_/; 360000 < ж 410000] :=

- 190 1 ~ 360000 + X

yo + 10000

/[«_/; 410000 420000] :=

11(—410000 + ж) = 185 + 2000

f[xj; 420000 x < 425000] :=

  • - 130 1 420000 -
  • ? 130 + 1000

/[ж/; 425000 C x 460000] :=

, -425000 +Ж = 135 + 1400

9(—460000 + ж)

f[x_/ 460000 x < 510000] :=

110 5000

/[ж_/; 510000 C x < 530000] :=

= -200 + +(-510000 + ж)

f[x_/; 530000 x < 535000] :=

, 530000 -ж

? 120 + 1000

f[x_/-, 535000 x < 540000] :=

= -125 + —^—(—535000 + x) ^UU

/[«_/; 540000 x < 545000] :=

  • 540000 — ж
  • ? 50 + 100

/[??_/; 545000 x < 550000] :=

= -100 + ^-(-545000 + ж)

f[1200.]

  • -322.4
  • 7Y[®J = Interpolation [Table [/[ж], {x, 0, 550000}]];

H [30000.] -170.385

  • [1] 0, -320}, {15000, -350}, {75000, -220}, {80000, -280}, {95000, -225}, {100000, -310}, {110000, -240}, {160000, -290}, {200000, -260}, {240000, -265}, {260000, -230}, {290000, -270}, {360000, -190}, {410000, -185}, {420000, -130}, {425000, -135}, {460000, -110}, {510000, -200}, {530000, -120}, {535000, -125}, {540000, -50}, {545000, -100}, {550000,100
  • [2] -50000,600000}, {-400,150
  • [3] 0, -320}, {15000, -350}, {75000, -220}, {80000, -280}, {95000, -225}, {100000, -310}, {110000, -240}, {160000, -290}, {200000, -260}, {240000, -265}, {260000, -230}, {290000, -270}, {360000, -190}, {410000, -185}, {420000, -130}, {425000, -135}, {460000, -110}, {510000, -200}, {530000, -120}, {535000, -125}, {540000, -50}, {545000, -100}, {550000,0
  • [4] -50000,600000}, {-400,150
 
Посмотреть оригинал
< Пред   СОДЕРЖАНИЕ ОРИГИНАЛ   След >