рдмреНрд▓рдЧрдХреЛ рд▓реЗрдЦрдХрд▓рд╛рдИ рдзрдиреНрдпрд╡рд╛рдж рдПрдиреНрдЯреЛрди рдПрдХрд┐рдореЗрдиреНрдХреЛ рдЙрдирдХреЛ рд░рд┐рдкреЛрд░реНрдЯрдХреЛ рд▓рд╛рдЧрд┐

рдкрд░рд┐рдЪрдп

рдпреЛ рдиреЛрдЯ рд╕рдореНрдореЗрд▓рдирдХреЛ рдХреНрд░рдордорд╛ рд▓реЗрдЦрд┐рдПрдХреЛ рд╣реЛ Wolfram рд░реВрд╕реА рдкреНрд░реМрджреНрдпреЛрдЧрд┐рдХреА рд╕рдореНрдореЗрд▓рди рд░ рдореИрд▓реЗ рджрд┐рдПрдХреЛ рд░рд┐рдкреЛрд░реНрдЯрдХреЛ рд╕рд╛рд░рд╛рдВрд╢ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫред рдШрдЯрдирд╛ рдЬреБрдирдорд╛ рд╕реЗрдиреНрдЯ рдкрд┐рдЯрд░реНрд╕рдмрд░реНрдЧрдорд╛ рднрдПрдХреЛ рдерд┐рдпреЛред рдо рдХрдиреНрдлрд░реЗрдиреНрд╕ рд╕рд╛рдЗрдЯрдмрд╛рдЯ рдмреНрд▓рдХ рдХрд╛рдо рдЧрд░реНрдЫреБ рднрдиреНрдиреЗ рдХреБрд░рд╛рд▓рд╛рдИ рдзреНрдпрд╛рдирдорд╛ рд░рд╛рдЦреНрджреИ, рдореИрд▓реЗ рдпреЛ рдХрд╛рд░реНрдпрдХреНрд░рдордорд╛ рдЙрдкрд╕реНрдерд┐рдд рд╣реБрди рдорджреНрджрдд рдЧрд░реНрди рд╕рдХрд┐рдиред 2016 рд░ 2017 рдорд╛, рдореИрд▓реЗ рд╕рдореНрдореЗрд▓рди рд░рд┐рдкреЛрд░реНрдЯрд╣рд░реВ рд╕реБрдиреЗрдВ, рд░ рдпреЛ рд╡рд░реНрд╖ рдореИрд▓реЗ рдПрдХ рдкреНрд░рд╕реНрддреБрддреАрдХрд░рдг рджрд┐рдПред рдкрд╣рд┐рд▓реЗ, рдПрдЙрдЯрд╛ рдЪрд╛рдЦрд▓рд╛рдЧреНрджреЛ (рдорд▓рд╛рдИ рд▓рд╛рдЧреНрдЫ) рд╡рд┐рд╖рдп рджреЗрдЦрд╛ рдкрд░реНтАНрдпреЛ, рдЬреБрди рд╣рд╛рдореА рд╡рд┐рдХрд╛рд╕ рдЧрд░реНрджреИрдЫреМрдВ Kirill Belov, рд░ рджреЛрд╕реНрд░реЛ, рдкреНрд░рддрд┐рдмрдиреНрдз рдиреАрддрд┐ рд╕рдореНрдмрдиреНрдзреА рд░реВрд╕реА рд╕рдВрдШрдХреЛ рдХрд╛рдиреВрдирдХреЛ рд▓рд╛рдореЛ рдЕрдзреНрдпрдпрди рдкрдЫрд┐, рдореИрд▓реЗ рдХрд╛рдо рдЧрд░реЗрдХреЛ рдЙрджреНрдпрдордорд╛, рдЬрддрд┐ рдзреЗрд░реИ рджреБрдИрд╡рдЯрд╛ рдЗрдЬрд╛рдЬрддрдкрддреНрд░рд╣рд░реВ рджреЗрдЦрд╛ рдкрд░реНтАНрдпреЛред рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдореНрдпрд╛рдердореЗрдЯрд┐рдХрд╛.

рдореЗрд░реЛ рднрд╛рд╖рдгрдХреЛ рдмрд┐рд╖рдпрдорд╛ рдЬрд╛рдиреБ рднрдиреНрджрд╛ рдкрд╣рд┐рд▓реЗ, рдо рдХрд╛рд░реНрдпрдХреНрд░рдордХреЛ рд░рд╛рдореНрд░реЛ рд╕рдВрдЧрдардирд▓рд╛рдИ рдиреЛрдЯ рдЧрд░реНрди рдЪрд╛рд╣рдиреНрдЫреБред рд╕рдореНрдореЗрд▓рдирдХреЛ рднреНрд░рдордг рдкреГрд╖реНрдард▓реЗ рдХрдЬрд╛рди рдХреНрдпрд╛рдереЗрдбреНрд░рд▓рдХреЛ рдЫрд╡рд┐ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрдЫред рдХреНрдпрд╛рдереЗрдбреНрд░рд▓ рд╕реЗрдиреНрдЯ рдкреАрдЯрд░реНрд╕рдмрд░реНрдЧрдХреЛ рдореБрдЦреНрдп рдЖрдХрд░реНрд╖рдгрд╣рд░реВ рдордзреНрдпреЗ рдПрдХ рд╣реЛ рд░ рд╕рдореНрдореЗрд▓рди рднрдПрдХреЛ рд╣рд▓рдмрд╛рдЯ рдзреЗрд░реИ рд╕реНрдкрд╖реНрдЯ рд░реВрдкрдорд╛ рджреЗрдЦрд┐рдиреНрдЫред

Geophysics рдорд╛ Wolfram Mathematica

рд╕реЗрдиреНрдЯ рдкреАрдЯрд░реНрд╕рдмрд░реНрдЧ рд╕реНрдЯреЗрдЯ рдЗрдХреЛрдиреЛрдорд┐рдХ рдпреБрдирд┐рднрд░реНрд╕рд┐рдЯреАрдХреЛ рдкреНрд░рд╡реЗрд╢рджреНрд╡рд╛рд░рдорд╛, рд╕рд╣рднрд╛рдЧреАрд╣рд░реВрд▓рд╛рдИ рд╡рд┐рджреНрдпрд╛рд░реНрдереАрд╣рд░реВрдХрд╛ рд╕рд╣рд╛рдпрдХрд╣рд░реВрд▓реЗ рднреЗрдЯреЗрдХрд╛ рдерд┐рдП - рдЙрдиреАрд╣рд░реВрд▓реЗ рддрд┐рдиреАрд╣рд░реВрд▓рд╛рдИ рд╣рд░рд╛рдЙрди рдЕрдиреБрдорддрд┐ рджрд┐рдПрдирдиреНред рджрд░реНрддрд╛рдХреЛ рдХреНрд░рдордорд╛, рд╕рд╛рдирд╛ рд╕реНрдореГрддрд┐ рдЪрд┐рдиреНрд╣рд╣рд░реВ рджрд┐рдЗрдпреЛ (рдПрдХ рдЦреЗрд▓реМрдирд╛ - рдПрдХ рдЪрдореНрдХрд┐рд▓реЛ рд╕реНрдкрд╛рдЗрдХ, рдХрд▓рдо, рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдкреНрд░рддреАрдХрд╣рд░реВ рд╕рд╣рд┐рдд рд╕реНрдЯрд┐рдХрд░рд╣рд░реВ)ред рд▓рдВрдЪ рд░ рдХрдлреА рдмреНрд░реЗрдХ рдкрдирд┐ рд╕рдореНрдореЗрд▓рди рддрд╛рд▓рд┐рдХрд╛рдорд╛ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд┐рдПрдХреЛ рдерд┐рдпреЛред рдореИрд▓реЗ рд╕рдореВрд╣рдХреЛ рднрд┐рддреНрддрд╛рдорд╛ рд╕реНрд╡рд╛рджрд┐рд╖реНрдЯ рдХрдлреА рд░ рдкрд╛рдИрд╣рд░реВрдХреЛ рдмрд╛рд░реЗрдорд╛ рдкрд╣рд┐рд▓реЗ рдиреИ рдиреЛрдЯ рдЧрд░реЗрдВ - рд╢реЗрдлрд╣рд░реВ рдЙрддреНрдХреГрд╖реНрдЯ рдЫрдиреНред рдпрд╕ рдкрд░рд┐рдЪрдпрд╛рддреНрдордХ рднрд╛рдЧрдХреЛ рд╕рд╛рде, рдо рдШрдЯрдирд╛ рдЖрдлреИрдВ, рдпрд╕рдХреЛ рдврд╛рдБрдЪрд╛ рд░ рд╕реНрдерд╛рди рдкрд╣рд┐рд▓реЗ рдиреИ рд╕рдХрд╛рд░рд╛рддреНрдордХ рднрд╛рд╡рдирд╛рд╣рд░реВ рд▓реНрдпрд╛рдЙрдиреЗ рдХреБрд░рд╛рдорд╛ рдЬреЛрдб рджрд┐рди рдЪрд╛рд╣рдиреНрдЫреБред

рдо рд░ рдХрд┐рд░рд┐рд▓ рдмреЗрд▓реЛрднрд▓реЗ рддрдпрд╛рд░ рдкрд╛рд░реЗрдХреЛ рдкреНрд░рддрд┐рд╡реЗрджрдирд▓рд╛рдИ "рдЙрдкрдпреЛрдЧрд┐рдд рднреВрднреМрддрд┐рдХреАрдорд╛ рд╕рдорд╕реНрдпрд╛рд╣рд░реВ рд╕рдорд╛рдзрд╛рди рдЧрд░реНрди рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдЧрдгрд┐рддрдХреЛ рдкреНрд░рдпреЛрдЧ" рднрдирд┐рдиреНрдЫред рд╕рд┐рд╕реНрдорд┐рдХ рдбреЗрдЯрд╛рдХреЛ рд╕реНрдкреЗрдХреНрдЯреНрд░рд▓ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рд╡рд╛ "рдЬрд╣рд╛рдБ рдкреБрд░рд╛рддрди рдирджреАрд╣рд░реВ рдмрдЧреЗрдХрд╛ рдерд┐рдПред" рд░рд┐рдкреЛрд░реНрдЯрдХреЛ рд╕рд╛рдордЧреНрд░реАрд▓реЗ рджреБрдИ рднрд╛рдЧрд╣рд░реВ рд╕рдореЗрдЯреНрдЫ: рдкрд╣рд┐рд▓реЛ, рдЙрдкрд▓рдмреНрдз рдПрд▓реНрдЧреЛрд░рд┐рджрдорд╣рд░реВрдХреЛ рдкреНрд░рдпреЛрдЧ рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдореНрдпрд╛рдердореЗрдЯрд┐рдХрд╛ рдЬрд┐рдпреЛрдлрд┐рдЬрд┐рдХрд▓ рдбреЗрдЯрд╛рдХреЛ рд╡рд┐рд╢реНрд▓реЗрд╖рдгрдХреЛ рд▓рд╛рдЧрд┐, рд░ рджреЛрд╕реНрд░реЛ, рдпреЛ рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдореНрдпрд╛рдереЗрдореЗрдЯрд┐рдХрд╛рдорд╛ рдЬрд┐рдпреЛрдлрд┐рдЬрд┐рдХрд▓ рдбрд╛рдЯрд╛ рдХрд╕рд░реА рд░рд╛рдЦреНрдиреЗ рднрдиреНрдиреЗ рд╣реЛред

рднреВрдХрдореНрдкреАрдп рдЕрдиреНрд╡реЗрд╖рдг

рдкрд╣рд┐рд▓реЗ рддрдкрд╛рдИрдВрд▓реЗ рдЬрд┐рдпреЛрдлрд┐рдЬрд┐рдХреНрд╕рдорд╛ рдЫреЛрдЯреЛ рднреНрд░рдордг рдЧрд░реНрди рдЖрд╡рд╢реНрдпрдХ рдЫред рдЬрд┐рдпреЛрдлрд┐рдЬрд┐рдХреНрд╕ рднрдиреЗрдХреЛ рдЪрдЯреНрдЯрд╛рдирдХреЛ рднреМрддрд┐рдХ рдЧреБрдгрд╣рд░реВрдХреЛ рдЕрдзреНрдпрдпрди рдЧрд░реНрдиреЗ рд╡рд┐рдЬреНрдЮрд╛рди рд╣реЛред рдард┐рдХ рдЫ, рдЪрдЯреНрдЯрд╛рдирд╣рд░реВрдорд╛ рд╡рд┐рднрд┐рдиреНрди рдЧреБрдгрд╣рд░реВ рднрдПрдХрд╛рд▓реЗ: рд╡рд┐рджреНрдпреБрддреАрдп, рдЪреБрдореНрдмрдХреАрдп, рд▓реЛрдЪрджрд╛рд░, рднреВрднреМрддрд┐рдХреАрдХрд╛ рд╕рдореНрдмрдиреНрдзрд┐рдд рд╡рд┐рдзрд┐рд╣рд░реВ рдЫрдиреН: рд╡рд┐рджреНрдпреБрддреАрдп рдкреВрд░реНрд╡рд╛рдЧреНрд░рд╣, рдЪреБрдореНрдмрдХреАрдп рдкреВрд░реНрд╡рд╛рдХреНрд╖рдг, рднреВрдХрдореНрдкреАрдп рдкреВрд░реНрд╡рд╛рдХреНрд╖рдг... рдпрд╕ рд▓реЗрдЦрдХреЛ рд╕рдиреНрджрд░реНрднрдорд╛, рд╣рд╛рдореА рдХреЗрд╡рд▓ рднреВрдХрдореНрдкреАрдп рд╕рдореНрднрд╛рд╡рдирд╛рдмрд╛рд░реЗ рдердк рд╡рд┐рд╕реНрддрд╛рд░рдорд╛ рдЫрд▓рдлрд▓ рдЧрд░реНрдиреЗрдЫреМрдВред рд╕рд┐рд╕реНрдорд┐рдХ рдЕрдиреНрд╡реЗрд╖рдг рддреЗрд▓ рд░ рдЧреНрдпрд╛рдБрд╕ рдЦреЛрдЬреНрдиреЗ рдореБрдЦреНрдп рд╡рд┐рдзрд┐ рд╣реЛред рд╡рд┐рдзрд┐ рд▓реЛрдЪрджрд╛рд░ рдХрдореНрдкрдирд╣рд░реВрдХреЛ рдЙрддреНрддреЗрдЬрдирд╛ рд░ рдЕрдзреНрдпрдпрди рдХреНрд╖реЗрддреНрд░ рдХрдореНрдкреЛрдЬ рдЧрд░реНрдиреЗ рдЪрдЯреНрдЯрд╛рдирд╣рд░реВрдмрд╛рдЯ рдкреНрд░рддрд┐рдХреНрд░рд┐рдпрд╛рдХреЛ рдкрдЫрд┐рд▓реНрд▓реЛ рд░реЗрдХрд░реНрдбрд┐рдЩрдорд╛ рдЖрдзрд╛рд░рд┐рдд рдЫред рдХрдореНрдкрдирд╣рд░реВ рдЬрдорд┐рдирдорд╛ рдЙрддреНрддреЗрдЬрд┐рдд рд╣реБрдиреНрдЫрдиреН (рдбрд╛рдЗрдирд╛рдорд╛рдЗрдЯ рд╡рд╛ рд▓реЛрдЪрджрд╛рд░ рдХрдореНрдкрдирдХреЛ рдЧреИрд░-рд╡рд┐рд╕реНрдлреЛрдЯрдХ рдХрдореНрдкрди рд╕реНрд░реЛрддрд╣рд░реВрд╕рдБрдЧ) рд╡рд╛ рд╕рдореБрджреНрд░рдорд╛ (рдПрдпрд░ рдЧрдирд╣рд░реВрд╕рдБрдЧ)ред рд▓реЛрдЪрджрд╛рд░ рдХрдореНрдкрдирд╣рд░реВ рдЪрдЯреНрдЯрд╛рдирдХреЛ рдорд╛рд╕ рдорд╛рд░реНрдлрдд рдкреНрд░рд╕рд╛рд░рд┐рдд рд╣реБрдиреНрдЫрдиреН, рд╡рд┐рднрд┐рдиреНрди рдЧреБрдгрд╣рд░реВ рднрдПрдХрд╛ рддрд╣рд╣рд░реВрдХреЛ рд╕реАрдорд╛рд╣рд░реВрдорд╛ рдЕрдкрд╡рд░реНрддрд┐рдд рд░ рдкреНрд░рддрд┐рдмрд┐рдореНрдмрд┐рдд рд╣реБрдБрджреИред рдкреНрд░рддрд┐рдмрд┐рдореНрдмрд┐рдд рддрд░рдВрдЧрд╣рд░реВ рд╕рддрд╣рдорд╛ рдлрд░реНрдХрдиреНрдЫрдиреН рд░ рдЬрдорд┐рдирдорд╛ рдЬрд┐рдпреЛрдлреЛрдирд╣рд░реВ (рд╕рд╛рдорд╛рдиреНрдпрддрдпрд╛ рдХреБрдгреНрдбрд▓рдорд╛ рдирд┐рд▓рдореНрдмрд┐рдд рдЪреБрдореНрдмрдХрдХреЛ рдЖрдиреНрджреЛрд▓рдирдорд╛ рдЖрдзрд╛рд░рд┐рдд рдЗрд▓реЗрдХреНрдЯреНрд░реЛрдбрд╛рдпрдирд╛рдорд┐рдХ рдЙрдкрдХрд░рдгрд╣рд░реВ) рд╡рд╛ рд╕рдореБрджреНрд░рдорд╛ рд╣рд╛рдЗрдбреНрд░реЛрдлреЛрдирд╣рд░реВ (рдкрд┐рдЬреЛрдЗрд▓реЗрдХреНрдЯреНрд░рд┐рдХ рдкреНрд░рднрд╛рд╡рдорд╛ рдЖрдзрд╛рд░рд┐рдд) рджреНрд╡рд╛рд░рд╛ рд░реЗрдХрд░реНрдб рд╣реБрдиреНрдЫрдиреНред рдЫрд╛рд▓рд╣рд░реВрдХреЛ рдЖрдЧрдордирдХреЛ рд╕рдордпрдорд╛, рдХрд╕реИрд▓реЗ рднреВрд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рддрд╣рд╣рд░реВрдХреЛ рдЧрд╣рд┐рд░рд╛рдЗрдХреЛ рдиреНрдпрд╛рдп рдЧрд░реНрди рд╕рдХреНрдЫред

рд╕рд┐рд╕реНрдорд┐рдХ рдкреЛрдд рдЯреЛрдЗрдЩ рдЙрдкрдХрд░рдг
Geophysics рдорд╛ Wolfram Mathematica

рдПрдпрд░ рдЧрдирд▓реЗ рд▓реЛрдЪрджрд╛рд░ рдХрдореНрдкрдирд╣рд░реВрд▓рд╛рдИ рдЙрддреНрддреЗрдЬрд┐рдд рдЧрд░реНрдЫ
Geophysics рдорд╛ Wolfram Mathematica

рдЫрд╛рд▓рд╣рд░реВ рдЪрдЯреНрдЯрд╛рди рдорд╛рд╕ рдорд╛рд░реНрдлрдд рдЬрд╛рдиреНрдЫ рд░ рд╣рд╛рдЗрдбреНрд░реЛрдлреЛрди рджреНрд╡рд╛рд░рд╛ рд░реЗрдХрд░реНрдб рдЧрд░рд┐рдиреНрдЫ
Geophysics рдорд╛ Wolfram Mathematica

рд╕реЗрдиреНрдЯ рдкреАрдЯрд░реНрд╕рдмрд░реНрдЧрдХреЛ рдмреНрд▓рд╛рдЧреЛрднреЗрд╕реНрдЪреЗрдиреНрд╕реНрдХреА рдкреБрд▓ рдирдЬрд┐рдХреИрдХреЛ рдШрд╛рдЯрдорд╛ рднреВрднреМрддрд┐рдХ рд╕рд░реНрд╡реЗрдХреНрд╖рдг рдЕрдиреБрд╕рдиреНрдзрд╛рди рдкреЛрдд "рдЗрднрд╛рди рдЧреБрдмрдХрд┐рди"
Geophysics рдорд╛ Wolfram Mathematica

рд╕рд┐рд╕реНрдорд┐рдХ рд╕рд┐рдЧреНрдирд▓ рдореЛрдбреЗрд▓

рдЪрдЯреНрдЯрд╛рдирд╣рд░реВрдорд╛ рд╡рд┐рднрд┐рдиреНрди рднреМрддрд┐рдХ рдЧреБрдгрд╣рд░реВ рдЫрдиреНред рднреВрдХрдореНрдкреАрдп рдЕрдиреНрд╡реЗрд╖рдгрдХреЛ рд▓рд╛рдЧрд┐, рд▓реЛрдЪрджрд╛рд░ рдЧреБрдгрд╣рд░реВ рдореБрдЦреНрдп рд░реВрдкрдорд╛ рдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг рд╣реБрдиреНрдЫрдиреН - рд▓реЛрдЪрджрд╛рд░ рдХрдореНрдкрди рд░ рдШрдирддреНрд╡рдХреЛ рдкреНрд░рд╕рд╛рд░рдХреЛ рдЧрддрд┐ред рдпрджрд┐ рджреБрдИ рддрд╣рд╣рд░реВрдорд╛ рд╕рдорд╛рди рд╡рд╛ рд╕рдорд╛рди рдЧреБрдгрд╣рд░реВ рдЫрдиреН рднрдиреЗ, рд▓рд╣рд░рд▓реЗ рддрд┐рдиреАрд╣рд░реВрдХреЛ рдмреАрдЪрдХреЛ рд╕реАрдорд╛рд▓рд╛рдИ "рдзреНрдпрд╛рди рдЧрд░реНрджреИрди"ред рдпрджрд┐ рддрд╣рд╣рд░реВрдорд╛ рд▓рд╣рд░рдХреЛ рдЧрддрд┐ рдлрд░рдХ рдЫ рднрдиреЗ, рддрдм рдкреНрд░рддрд┐рдмрд┐рдореНрдм рддрд╣рд╣рд░реВрдХреЛ рд╕реАрдорд╛рдорд╛ рджреЗрдЦрд╛ рдкрд░реНрдиреЗрдЫред рдЧреБрдгрд╣рд░реВрдорд╛ рдЬрддрд┐ рдареВрд▓реЛ рднрд┐рдиреНрдирддрд╛ рд╣реБрдиреНрдЫ, рддреНрдпрддрд┐ рдиреИ рддреАрд╡реНрд░ рдкреНрд░рддрд┐рдмрд┐рдореНрдм рд╣реБрдиреНрдЫред рдпрд╕рдХреЛ рддреАрд╡реНрд░рддрд╛ рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдЧреБрдгрд╛рдВрдХ (rc) рджреНрд╡рд╛рд░рд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░рд┐рдиреЗрдЫ:

Geophysics рдорд╛ Wolfram Mathematica

рдЬрд╣рд╛рдБ ╧Б рдЪрдЯреНрдЯрд╛рдирдХреЛ рдШрдирддреНрд╡ рд╣реЛ, ╬╜ рддрд░рдВрдЧ рдЧрддрд┐ рд╣реЛ, 1 рд░ 2 рд▓реЗ рдорд╛рдерд┐рд▓реНрд▓реЛ рд░ рддрд▓реНрд▓реЛ рддрд╣рд╣рд░реВ рд╕рдВрдХреЗрдд рдЧрд░реНрджрдЫред

рдПрдХ рд╕рд░рд▓ рд░ рдкреНрд░рд╛рдпрдГ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреЗ рд╕рд┐рд╕реНрдорд┐рдХ рд╕рд┐рдЧреНрдирд▓ рдореЛрдбреЗрд▓рд╣рд░реВ рдХрдиреНрднреЛрд▓реБрд╕рди рдореЛрдбреЗрд▓ рд╣реЛ, рдЬрдм рд░реЗрдХрд░реНрдб рдЧрд░рд┐рдПрдХреЛ рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕рд▓рд╛рдИ рдкреНрд░реЛрдмрд┐рдЩ рдкрд▓реНрд╕рдХреЛ рд╕рд╛рде рдкрд░рд╛рд╡рд░реНрддрди рдЧреБрдгрд╛рдВрдХрд╣рд░реВрдХреЛ рдЕрдиреБрдХреНрд░рдордХреЛ рдкрд░рд┐рдХреНрд░рдорд╛рдХреЛ рдкрд░рд┐рдгрд╛рдордХреЛ рд░реВрдкрдорд╛ рдкреНрд░рддрд┐рдирд┐рдзрд┐рддреНрд╡ рдЧрд░рд┐рдиреНрдЫ:

Geophysics рдорд╛ Wolfram Mathematica

рдХрд╣рд╛рдБ s(t) - рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕, рдЕрд░реНрдерд╛рддреН рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рд░реЗрдХрд░реНрдбрд┐рдЩ рд╕рдордпрдорд╛ рд╣рд╛рдЗрдбреНрд░реЛрдлреЛрди рд╡рд╛ рдЬрд┐рдпреЛрдлреЛрди рджреНрд╡рд╛рд░рд╛ рд░реЗрдХрд░реНрдб рдЧрд░рд┐рдПрдХреЛ рд╕рдмреИ рдХреБрд░рд╛, w(t) - рд╣рд╛рд╡рд╛ рдмрдиреНрджреБрдХ рджреНрд╡рд╛рд░рд╛ рдЙрддреНрдкрдиреНрди рд╕рдВрдХреЗрдд, n(t) - рдЕрдирд┐рдпрдорд┐рдд рдЖрд╡рд╛рдЬред

рдЙрджрд╛рд╣рд░рдгрдХреЛ рд░реВрдкрдорд╛ рд╕рд┐рдВрдереЗрдЯрд┐рдХ рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕ рдЧрдгрдирд╛ рдЧрд░реМрдВред рд╣рд╛рдореА рдкреНрд░рд╛рд░рдореНрднрд┐рдХ рд╕рдВрдХреЗрддрдХреЛ рд░реВрдкрдорд╛ рднреВрдХрдВрдкреАрдп рдЕрдиреНрд╡реЗрд╖рдгрдорд╛ рд╡реНрдпрд╛рдкрдХ рд░реВрдкрдорд╛ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреЗ рд░рд┐рдХрд░ рдкрд▓реНрд╕ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреЗрдЫреМрдВред

length=0.050; (*Signal lenght*)
dt=0.001;(*Sample rate of signal*)
t=Range[-length/2,(length)/2,dt];(*Signal time*)
f=35;(*Central frequency*)
wavelet=(1.0-2.0*(Pi^2)*(f^2)*(t^2))*Exp[-(Pi^2)*(f^2)*(t^2)];
ListLinePlot[wavelet, Frame->True,PlotRange->Full,Filling->Axis,PlotStyle->Black,
PlotLabel->Style["Initial wavelet",Black,20],
LabelStyle->Directive[Black,Italic],
FillingStyle->{White,Black},ImageSize->Large,InterpolationOrder->2]

рдкреНрд░рд╛рд░рдореНрднрд┐рдХ рднреВрдХрдореНрдкреАрдп рдЖрд╡реЗрдЧ
Geophysics рдорд╛ Wolfram Mathematica

рд╣рд╛рдореА 300 ms рд░ 600 ms рдХреЛ рдЧрд╣рд┐рд░рд╛рдИрдорд╛ рджреБрдИ рд╕реАрдорд╛рд╣рд░реВ рд╕реЗрдЯ рдЧрд░реНрдиреЗрдЫреМрдВ, рд░ рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдЧреБрдгрд╛рдВрдХрд╣рд░реВ рдЕрдирд┐рдпрдорд┐рдд рд╕рдВрдЦреНрдпрд╛рд╣рд░реВ рд╣реБрдиреЗрдЫрдиреНред

rcExample=ConstantArray[0,1000];
rcExample[[300]]=RandomReal[{-1,0}];
rcExample[[600]]=RandomReal[{0,1}];
ListPlot[rcExample,Filling->0,Frame->True,Axes->False,PlotStyle->Black,
PlotLabel->Style["Reflection Coefficients",Black,20],
LabelStyle->Directive[Black,Italic]]

рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдЧреБрдгрд╛рдВрдХрд╣рд░реВрдХреЛ рдЕрдиреБрдХреНрд░рдо
Geophysics рдорд╛ Wolfram Mathematica

рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕рдХреЛ рдЧрдгрдирд╛ рд░ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реМрдВред рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдЧреБрдгрд╛рдВрдХрдорд╛ рдлрд░рдХ-рдлрд░рдХ рдЪрд┐рдиреНрд╣рд╣рд░реВ рднрдПрдХрд╛рд▓реЗ, рд╣рд╛рдореАрд▓реЗ рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕рдорд╛ рджреБрдИ рд╡реИрдХрд▓реНрдкрд┐рдХ рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдкрд╛рдЙрдБрдЫреМрдВред

traceExamle=ListConvolve[wavelet[[1;;;;1]],rcExample];
ListPlot[traceExamle,
PlotStyle->Black,Filling->0,Frame->True,Axes->False,
PlotLabel->Style["Seismic trace",Black,20],
LabelStyle->Directive[Black,Italic]]

рд╕рд┐рдореБрд▓реЗрдЯреЗрдб рдЯреНрд░реНрдпрд╛рдХ
Geophysics рдорд╛ Wolfram Mathematica

рдпрд╕ рдЙрджрд╛рд╣рд░рдгрдХреЛ рд▓рд╛рдЧрд┐, рдпреЛ рдЖрд░рдХреНрд╖рдг рдЧрд░реНрди рдЖрд╡рд╢реНрдпрдХ рдЫ - рд╡рд╛рд╕реНрддрд╡рдорд╛, рддрд╣рд╣рд░реВрдХреЛ рдЧрд╣рд┐рд░рд╛рдИ рдирд┐рд╢реНрдЪрд┐рдд рд░реВрдкрдорд╛, рдорд┐рдЯрд░рдорд╛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░рд┐рдиреНрдЫ, рд░ рднреВрдХрдореНрдк рдЯреНрд░реЗрд╕рдХреЛ рдЧрдгрдирд╛ рд╕рдордп рдбреЛрдореЗрдирдХреЛ рд▓рд╛рдЧрд┐ рд╣реБрдиреНрдЫред рдпреЛ рдорд┐рдЯрд░рдорд╛ рдЧрд╣рд┐рд░рд╛рдИ рд╕реЗрдЯ рдЧрд░реНрди рд░ рддрд╣рд╣рд░реВрдорд╛ рдЧрддрд┐рд╣рд░реВ рдерд╛рд╣рд╛ рдкрд╛рдПрд░ рдЖрдЧрдорди рд╕рдордп рдЧрдгрдирд╛ рдЧрд░реНрди рдЕрдЭ рд╕рд╣реА рд╣реБрдиреЗрдЫред рдпрд╕ рдЕрд╡рд╕реНрдерд╛рдорд╛, рдореИрд▓реЗ рддреБрд░реБрдиреНрддреИ рд╕рдордп рдЕрдХреНрд╖рдорд╛ рддрд╣рд╣рд░реВ рд╕реЗрдЯ рдЧрд░реЗрдВред

рдпрджрд┐ рд╣рд╛рдореА рдХреНрд╖реЗрддреНрд░ рдЕрдиреБрд╕рдиреНрдзрд╛рдирдХреЛ рдмрд╛рд░реЗрдорд╛ рдХреБрд░рд╛ рдЧрд░реНрдЫреМрдВ рднрдиреЗ, рддреНрдпрд╕реНрддрд╛ рдЕрд╡рд▓реЛрдХрдирд╣рд░реВрдХреЛ рдкрд░рд┐рдгрд╛рдордХреЛ рд░реВрдкрдорд╛ рдареВрд▓реЛ рд╕рдВрдЦреНрдпрд╛рдорд╛ рд╕рдорд╛рди рд╕рдордп рд╢реНрд░реГрдВрдЦрд▓рд╛ (рднреВрдХрдВрдкреАрдп рдирд┐рд╢рд╛рди) рд░реЗрдХрд░реНрдб рдЧрд░рд┐рдПрдХреЛ рдЫред рдЙрджрд╛рд╣рд░рдг рдХреЛ рд▓рд╛рдЧреА, 25 рдХрд┐рдореА рд▓рд╛рдореЛ рд░ 15 рдХрд┐рдореА рдЪреМрдбрд╛рдИ рд╕рд╛рдЗрдЯ рдХреЛ рдЕрдзреНрдпрдпрди рдЧрд░реНрджрд╛, рдЬрд╣рд╛рдБ, рдХрд╛рдо рдХреЛ рдкрд░рд┐рдгрд╛рдо рдХреЛ рд░реВрдк рдорд╛, рдкреНрд░рддреНрдпреЗрдХ рдЯреНрд░реЗрд╕ 25x25 рдорд┐рдЯрд░ (рдЬрд╕реНрддреИ рд╕реЗрд▓ рдПрдХ рдмрд┐рди рднрдирд┐рдиреНрдЫ) рдорд╛рдкрди рдХреЛрд╢рд┐рдХрд╛ рдХреЛ рд╡рд┐рд╢реЗрд╖рддрд╛ рдЧрд░реНрджрдЫ, рдЕрдиреНрддрд┐рдо рдбрд╛рдЯрд╛ рдПрд░реЗ 600000 рдЯреНрд░реЗрд╕ рд╕рдорд╛рд╡реЗрд╢ рд╣реБрдиреЗрдЫред 1 ms рдХреЛ рдирдореВрдирд╛ рд╕рдордп рд░ 5 рд╕реЗрдХреЗрдиреНрдбрдХреЛ рд░реЗрдХрд░реНрдбрд┐рдЩ рд╕рдордп рд╕рдВрдЧ, рдЕрдиреНрддрд┐рдо рдбрд╛рдЯрд╛ рдлрд╛рдЗрд▓ 11 GB рднрдиреНрджрд╛ рдмрдвреА рд╣реБрдиреЗрдЫ, рд░ рдореВрд▓ "рдХрдЪреНрдЪрд╛" рд╕рд╛рдордЧреНрд░реА рдХреЛ рднреЛрд▓реНрдпреБрдо рд╕рдпреМрдВ рдЧреАрдЧрд╛рдмрд╛рдЗрдЯ рд╣реБрди рд╕рдХреНрдЫред

рддрд┐рдиреАрд╣рд░реВрд╕рдБрдЧ рдХрд╕рд░реА рдХрд╛рдо рдЧрд░реНрдиреЗ рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдореНрдпрд╛рдердореЗрдЯрд┐рдХрд╛?

рдкреНрдпрд╛рдХреЗрдЬ GeologyIO

рдкреНрдпрд╛рдХреЗрдЬрдХреЛ рд╡рд┐рдХрд╛рд╕ рд╕реБрд░реБ рднрдпреЛ рдореБрджреНрджрд╛ рд░реВрд╕реА рднрд╛рд╖реА рд╕рдорд░реНрдерди рд╕рдореВрд╣рдХреЛ VK рдкрд░реНрдЦрд╛рд▓рдорд╛ред рд╕рдореБрджрд╛рдпрдХреЛ рдкреНрд░рддрд┐рдХреНрд░рд┐рдпрд╛рдХреЛ рд▓рд╛рдЧрд┐ рдзрдиреНрдпрд╡рд╛рдж, рдПрдХ рд╕рдорд╛рдзрд╛рди рдзреЗрд░реИ рдЪрд╛рдБрдбреИ рдлреЗрд▓рд╛ рдкрд░реНрдпреЛред рд░ рдкрд░рд┐рдгрд╛рдо рд╕реНрд╡рд░реВрдк, рдпреЛ рдПрдХ рдЧрдореНрднреАрд░ рд╡рд┐рдХрд╛рд╕ рдорд╛ рдмрдвреНрдпреЛред рдЕрдиреБрд░реВрдк Wolfram рд╕рдореБрджрд╛рдп рднрд┐рддреНрддрд╛ рдкреЛрд╕реНрдЯ рдпреЛ рдкрдирд┐ рдордзреНрдпрд╕реНрдердХрд░реНрддрд╛ рджреНрд╡рд╛рд░рд╛ рдЪрд┐рдиреНрд╣ рд▓рдЧрд╛рдЗрдПрдХреЛ рдерд┐рдпреЛред рд╣рд╛рд▓, рдкреНрдпрд╛рдХреЗрдЬрд▓реЗ рдирд┐рдореНрди рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░рд╣рд░реВрд╕рдБрдЧ рдХрд╛рдо рдЧрд░реНрди рд╕рдорд░реНрдерди рдЧрд░реНрджрдЫ рдЬреБрди рднреВрд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рдЙрджреНрдпреЛрдЧрдорд╛ рд╕рдХреНрд░рд┐рдп рд░реВрдкрдорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ:

  1. ZMAP рд░ IRAP рдврд╛рдБрдЪрд╛рд╣рд░реВрдорд╛ рдирдХреНрд╕рд╛ рдбреЗрдЯрд╛рдХреЛ рдЖрдпрд╛рдд
  2. LAS рдврд╛рдБрдЪрд╛ рдХреБрд╡рд╛рд╣рд░реВрдорд╛ рдорд╛рдкрдирдХреЛ рдЖрдпрд╛рдд
  3. рд╕рд┐рд╕реНрдорд┐рдХ рдлрд╛рдЗрд▓ рдврд╛рдБрдЪрд╛рдХреЛ рдЗрдирдкреБрдЯ рд░ рдЖрдЙрдЯрдкреБрдЯ SEGY

рдкреНрдпрд╛рдХреЗрдЬ рд╕реНрдерд╛рдкрдирд╛ рдЧрд░реНрди, рддрдкрд╛рдИрдВрд▓реЗ рдПрд╕реЗрдореНрдмрд▓ рдкреНрдпрд╛рдХреЗрдЬрдХреЛ рдбрд╛рдЙрдирд▓реЛрдб рдкреГрд╖реНрдардорд╛ рдирд┐рд░реНрджреЗрд╢рдирд╣рд░реВ рдкрд╛рд▓рдирд╛ рдЧрд░реНрдиреБрдкрд░реНрдЫ, рдЕрд░реНрдерд╛рддреНред рдХреБрдиреИ рдкрдирд┐ рдорд╛ рдирд┐рдореНрди рдХреЛрдб рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрдиреБрд╣реЛрд╕реН рдЧрдгрд┐рдд рдиреЛрдЯрдмреБрдХ:

If[PacletInformation["GeologyIO"] === {}, PacletInstall[URLDownload[
    "https://wolfr.am/FiQ5oFih", 
    FileNameJoin[{CreateDirectory[], "GeologyIO-0.2.2.paclet"}]
]]]

рдЬрд╕ рдкрдЫрд┐ рдкреНрдпрд╛рдХреЗрдЬ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдлреЛрд▓реНрдбрд░рдорд╛ рд╕реНрдерд╛рдкрд┐рдд рд╣реБрдиреЗрдЫ, рдЬрд╕рдорд╛ рдирд┐рдореНрдирд╛рдиреБрд╕рд╛рд░ рдкреНрд░рд╛рдкреНрдд рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ:

FileNameJoin[{$UserBasePacletsDirectory, "Repository"}]

рдЙрджрд╛рд╣рд░рдгрдХреЛ рд░реВрдкрдорд╛, рд╣рд╛рдореА рдкреНрдпрд╛рдХреЗрдЬрдХреЛ рдореБрдЦреНрдп рдХреНрд╖рдорддрд╛рд╣рд░реВ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреЗрдЫреМрдВред рдХрд▓ рдкрд░рдореНрдкрд░рд╛рдЧрдд рд░реВрдкрдорд╛ Wolfram рднрд╛рд╖рд╛рдорд╛ рдкреНрдпрд╛рдХреЗрдЬрд╣рд░реВрдХреЛ рд▓рд╛рдЧрд┐ рдЧрд░рд┐рдиреНрдЫ:

Get["GeologyIO`"]

рдкреНрдпрд╛рдХреЗрдЬ рдкреНрд░рдпреЛрдЧ рдЧрд░реА рд╡рд┐рдХрд╕рд┐рдд рдЧрд░рд┐рдПрдХреЛ рдЫ Wolfram Workbenchред рдпрд╕рд▓реЗ рддрдкрд╛рдЗрдБрд▓рд╛рдИ рдХрд╛рдЧрдЬрд╛рддрдХреЛ рд╕рд╛рде рдкреНрдпрд╛рдХреЗрдЬрдХреЛ рдореБрдЦреНрдп рдХрд╛рд░реНрдпрдХреНрд╖рдорддрд╛рд▓рд╛рдИ рд╕рд╛рде рджрд┐рди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫ, рдЬреБрди рдкреНрд░рд╕реНрддреБрддреАрдХрд░рдг рдврд╛рдБрдЪрд╛рдХреЛ рд╣рд┐рд╕рд╛рдмрд▓реЗ рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдореНрдпрд╛рдереЗрдореЗрдЯрд┐рдХрд╛рдХреЛ рдХрд╛рдЧрдЬрд╛рдд рднрдиреНрджрд╛ рдлрд░рдХ рдЫреИрди, рд░ рдкрд╣рд┐рд▓реЛ рдкрд░рд┐рдЪрд┐рддрдХреЛ рд▓рд╛рдЧрд┐ рдкрд░реАрдХреНрд╖рдг рдлрд╛рдЗрд▓рд╣рд░реВрд╕рдБрдЧ рдкреНрдпрд╛рдХреЗрдЬ рдкреНрд░рджрд╛рди рдЧрд░реНрдиред

Geophysics рдорд╛ Wolfram Mathematica

Geophysics рдорд╛ Wolfram Mathematica

рдпрд╕реНрддреЛ рдлрд╛рдЗрд▓, рд╡рд┐рд╢реЗрд╖ рдЧрд░реА, рдлрд╛рдЗрд▓ "Marmousi.segy" рд╣реЛ - рдпреЛ рдлреНрд░рд╛рдиреНрд╕реЗрд▓реА рдкреЗрдЯреНрд░реЛрд▓рд┐рдпрдо рд╕рдВрд╕реНрдерд╛рди рджреНрд╡рд╛рд░рд╛ рд╡рд┐рдХрд╕рд┐рдд рдЧрд░рд┐рдПрдХреЛ рднреМрдЧреЛрд▓рд┐рдХ рдЦрдгреНрдбрдХреЛ рд╕рд┐рдВрдереЗрдЯрд┐рдХ рдореЛрдбреЗрд▓ рд╣реЛред рдпреЛ рдореЛрдбреЗрд▓ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░, рд╡рд┐рдХрд╛рд╕рдХрд░реНрддрд╛рд╣рд░реВрд▓реЗ рд╡реЗрдн рдлрд┐рд▓реНрдб рдореЛрдбрд▓рд┐рдЩ, рдбрд╛рдЯрд╛ рдкреНрд░реЛрд╕реЗрд╕рд┐рдЩ, рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕ рдЗрдиреНрднрд░реНрд╕рди, рдЗрддреНрдпрд╛рджрд┐рдХрд╛ рд▓рд╛рдЧрд┐ рдЖрдлреНрдиреИ рдПрд▓реНрдЧреЛрд░рд┐рджрдорд╣рд░реВ рдкрд░реАрдХреНрд╖рдг рдЧрд░реНрдЫрдиреНред Marmousi рдореЛрдбреЗрд▓ рдЖрдлреИ рднрдгреНрдбрд╛рд░рдорд╛ рднрдгреНрдбрд╛рд░ рдЧрд░рд┐рдПрдХреЛ рдЫ рдЬрд╣рд╛рдБрдмрд╛рдЯ рдкреНрдпрд╛рдХреЗрдЬ рдЖрдлреИ рдбрд╛рдЙрдирд▓реЛрдб рдЧрд░рд┐рдПрдХреЛ рдерд┐рдпреЛред рдлрд╛рдЗрд▓ рдкреНрд░рд╛рдкреНрдд рдЧрд░реНрди, рдирд┐рдореНрди рдХреЛрдб рдЪрд▓рд╛рдЙрдиреБрд╣реЛрд╕реН:

If[Not[FileExistsQ["Marmousi.segy"]], 
URLDownload["https://wolfr.am/FiQGh7rk", "Marmousi.segy"];]
marmousi = SEGYImport["Marmousi.segy"]

рдкрд░рд┐рдгрд╛рдо рдЖрдпрд╛рдд рдЧрд░реНрдиреБрд╣реЛрд╕реН - SEGYData рд╡рд╕реНрддреБ
Geophysics рдорд╛ Wolfram Mathematica

SEGY рдврд╛рдБрдЪрд╛рд▓реЗ рдЕрд╡рд▓реЛрдХрдирд╣рд░реВрдХреЛ рдмрд╛рд░реЗрдорд╛ рд╡рд┐рднрд┐рдиреНрди рдЬрд╛рдирдХрд╛рд░реАрд╣рд░реВ рднрдгреНрдбрд╛рд░рдг рдЧрд░реНрди рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫред рдкрд╣рд┐рд▓реЛ, рдпреА рдкрд╛рда рдЯрд┐рдкреНрдкрдгреАрд╣рд░реВ рд╣реБрдиреНред рдпрд╕рд▓реЗ рдХрд╛рдордХреЛ рд╕реНрдерд╛рди, рдорд╛рдкрди рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреЗ рдХрдореНрдкрдиреАрд╣рд░реВрдХреЛ рдирд╛рдо, рдЖрджрд┐ рдмрд╛рд░реЗ рдЬрд╛рдирдХрд╛рд░реА рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫред рд╣рд╛рдореНрд░реЛ рдорд╛рдорд▓рд╛ рдорд╛, рдпреЛ рд╣реЗрдбрд░ TextHeader рдХреБрдЮреНрдЬреА рд╕рдВрдЧ рдЕрдиреБрд░реЛрдз рджреНрд╡рд╛рд░рд╛ рдмреЛрд▓рд╛рдЗрдиреНрдЫред рдпрд╣рд╛рдБ рдЫреЛрдЯреЛ рдкрд╛рда рд╣реЗрдбрд░ рдЫ:

Short[marmousi["TextHeader"]]

"рдорд╛рд░реНрдореМрд╕реА рдбрд╛рдЯрд╛ рд╕реЗрдЯ рдЗрдиреНрд╕реНрдЯрд┐рдЪреНрдпреБрдЯрдорд╛ рдЙрддреНрдкрдиреНрди рднрдПрдХреЛ рдерд┐рдпреЛ ...рдиреНрдпреБрдирддрдо рд╡реЗрдЧ 1500 m/s рд░ рдЕрдзрд┐рдХрддрдо 5500 m/s)"

рддрдкрд╛рдИрдВрд▓реЗ "рдЯреНрд░реЗрд╕" рдХреБрдЮреНрдЬреА рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рднреВрдХрдореНрдкреАрдп рдЯреНрд░реЗрд╕рд╣рд░реВ рдкрд╣реБрдБрдЪ рдЧрд░реЗрд░ рд╡рд╛рд╕реНрддрд╡рд┐рдХ рднреМрдЧреЛрд▓рд┐рдХ рдореЛрдбреЗрд▓ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ (рдкреНрдпрд╛рдХреЗрдЬрдХреЛ рдПрдХ рд╡рд┐рд╢реЗрд╖рддрд╛ рднрдиреЗрдХреЛ рдХреБрдЮреНрдЬреАрд╣рд░реВ рдХреЗрд╕-рд╕рдВрд╡реЗрджрдирд╢реАрд▓ рдЫрдиреН):

ArrayPlot[Transpose[marmousi["traces"]], PlotTheme -> "Detailed"]

рдореЛрдбрд▓ рдорд╛рд░реНрдореМрд╕реА
Geophysics рдорд╛ Wolfram Mathematica

рд╣рд╛рд▓, рдкреНрдпрд╛рдХреЗрдЬрд▓реЗ рддрдкрд╛рдИрдВрд▓рд╛рдИ рдареВрд▓рд╛ рдлрд╛рдЗрд▓рд╣рд░реВрдмрд╛рдЯ рднрд╛рдЧрд╣рд░реВрдорд╛ рдбрд╛рдЯрд╛ рд▓реЛрдб рдЧрд░реНрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫ, рдпрд╕рд▓реЗ рдлрд╛рдЗрд▓рд╣рд░реВ рдкреНрд░рд╢реЛрдзрди рдЧрд░реНрди рд╕рдореНрднрд╡ рдмрдирд╛рдЙрдБрдЫ рдЬрд╕рдХреЛ рдЖрдХрд╛рд░ рджрд╕реМрдВ рдЧрд┐рдЧрд╛рдмрд╛рдЗрдЯрд╕рдореНрдо рдкреБрдЧреНрди рд╕рдХреНрдЫред рдкреНрдпрд╛рдХреЗрдЬрдХреЛ рдкреНрд░рдХрд╛рд░реНрдпрд╣рд░реВрд▓реЗ .segy рдорд╛ рдбрд╛рдЯрд╛ рдирд┐рд░реНрдпрд╛рдд рдЧрд░реНрдиреЗ рд░ рдлрд╛рдЗрд▓рдХреЛ рдЕрдиреНрддреНрдпрдорд╛ рдЖрдВрд╢рд┐рдХ рд░реВрдкрдорд╛ рд╕рдВрд▓рдЧреНрди рдЧрд░реНрдиреЗ рдХрд╛рд░реНрдпрд╣рд░реВ рдкрдирд┐ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫред

рдЕрд▓рдЧ рд░реВрдкрдорд╛, .segy рдлрд╛рдЗрд▓рд╣рд░реВрдХреЛ рдЬрдЯрд┐рд▓ рд╕рдВрд░рдЪрдирд╛рд╕рдБрдЧ рдХрд╛рдо рдЧрд░реНрджрд╛ рдкреНрдпрд╛рдХреЗрдЬрдХреЛ рдХрд╛рд░реНрдпрдХреНрд╖рдорддрд╛рд▓рд╛рдИ рдзреНрдпрд╛рди рджрд┐рди рд▓рд╛рдпрдХ рдЫред рдХрд┐рдирдХрд┐ рдпрд╕рд▓реЗ рддрдкрд╛рдИрдВрд▓рд╛рдИ рдХреБрдЮреНрдЬреАрд╣рд░реВ рд░ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛рд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рд╡реНрдпрдХреНрддрд┐рдЧрдд рдЯреНрд░реЗрд╕рд╣рд░реВ рд░ рд╣реЗрдбрд░рд╣рд░реВ рдкрд╣реБрдБрдЪ рдЧрд░реНрди рдорд╛рддреНрд░ рд╣реЛрдЗрди, рддрд░ рддрд┐рдиреАрд╣рд░реВрд▓рд╛рдИ рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрди рд░ рддреНрдпрд╕рдкрдЫрд┐ рдлрд╛рдЗрд▓рдорд╛ рд▓реЗрдЦреНрди рдкрдирд┐ рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫред GeologyIO рдХреЛ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрдирдХрд╛ рдзреЗрд░реИ рдкреНрд░рд╛рд╡рд┐рдзрд┐рдХ рд╡рд┐рд╡рд░рдгрд╣рд░реВ рдпрд╕ рд▓реЗрдЦрдХреЛ рджрд╛рдпрд░рд╛рднрдиреНрджрд╛ рдмрд╛рд╣рд┐рд░ рдЫрдиреН рд░ рд╕рдореНрднрд╡рддрдГ рдЫреБрдЯреНрдЯреИ рд╡рд┐рд╡рд░рдгрдХреЛ рдпреЛрдЧреНрдп рдЫрдиреНред

рднреВрдХрдореНрдкреАрдп рдЕрдиреНрд╡реЗрд╖рдгрдорд╛ рд╡рд░реНрдгрдХреНрд░рдореАрдп рд╡рд┐рд╢реНрд▓реЗрд╖рдгрдХреЛ рд╕рд╛рдиреНрджрд░реНрднрд┐рдХрддрд╛

Wolfram Mathematica рдорд╛ рд╕рд┐рд╕реНрдорд┐рдХ рдбреЗрдЯрд╛ рдЖрдпрд╛рдд рдЧрд░реНрдиреЗ рдХреНрд╖рдорддрд╛рд▓реЗ рддрдкрд╛рдЗрдБрд▓рд╛рдИ рдкреНрд░рдпреЛрдЧрд╛рддреНрдордХ рдбреЗрдЯрд╛рдХреЛ рд▓рд╛рдЧрд┐ рдирд┐рд░реНрдорд┐рдд рд╕рд┐рдЧреНрдирд▓ рдкреНрд░реЛрд╕реЗрд╕рд┐рдЩ рдХрд╛рд░реНрдпрдХреНрд╖рдорддрд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫред рдкреНрд░рддреНрдпреЗрдХ рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕рд▓реЗ рд╕рдордп рд╢реНрд░реГрдЩреНрдЦрд▓рд╛рд▓рд╛рдИ рдкреНрд░рддрд┐рдирд┐рдзрд┐рддреНрд╡ рдЧрд░реНрдиреЗ рд╣реБрдирд╛рд▓реЗ, рддрд┐рдиреАрд╣рд░реВрд▓рд╛рдИ рдЕрдзреНрдпрдпрди рдЧрд░реНрдиреЗ рдореБрдЦреНрдп рдФрдЬрд╛рд░рд╣рд░реВ рдордзреНрдпреЗ рдПрдЙрдЯрд╛ рд╕реНрдкреЗрдХреНрдЯреНрд░рд▓ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рд╣реЛред рд╕рд┐рд╕реНрдорд┐рдХ рдбреЗрдЯрд╛рдХреЛ рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА рдХрдореНрдкреЛрдЬрд┐рд╕рдирдХреЛ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдЧрд░реНрдирдХреЛ рд▓рд╛рдЧрд┐ рдЖрд╡рд╢реНрдпрдХ рд╢рд░реНрддрд╣рд░реВ рдордзреНрдпреЗ, рд╣рд╛рдореА рдирд┐рдореНрдирд▓рд╛рдИ рдирд╛рдо рджрд┐рди рд╕рдХреНрдЫреМрдВ, рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐:

  1. рд╡рд┐рднрд┐рдиреНрди рдкреНрд░рдХрд╛рд░рдХрд╛ рддрд░рдВрдЧрд╣рд░реВ рдлрд░рдХ рдЖрд╡реГрддреНрддрд┐ рд╕рдВрд░рдЪрдирд╛ рджреНрд╡рд╛рд░рд╛ рд╡рд┐рд╢реЗрд╖рддрд╛ рдЫрдиреНред рдпрд╕рд▓реЗ рддрдкрд╛рдИрдВрд▓рд╛рдИ рдЙрдкрдпреЛрдЧреА рдЫрд╛рд▓рд╣рд░реВ рд╣рд╛рдЗрд▓рд╛рдЗрдЯ рдЧрд░реНрди рд░ рд╣рд╕реНрддрдХреНрд╖реЗрдк рддрд░рдВрдЧрд╣рд░реВрд▓рд╛рдИ рджрдмрд╛рдЙрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫред
  2. рдЪрдЯреНрдЯрд╛рди рдЧреБрдгрд╣рд░реВ рдЬрд╕реНрддреИ рдкреЛрд░реЛрд╕рд┐рдЯреА рд░ рд╕рдВрддреГрдкреНрддрд┐рд▓реЗ рдЖрд╡реГрддреНрддрд┐ рд╕рдВрд░рдЪрдирд╛рд▓рд╛рдИ рдЕрд╕рд░ рдЧрд░реНрди рд╕рдХреНрдЫред рдпрд╕рд▓реЗ рдЙрддреНрдХреГрд╖реНрдЯ рдЧреБрдгрд╣рд░реВ рднрдПрдХрд╛ рдЪрдЯреНрдЯрд╛рдирд╣рд░реВ рдкрд╣рд┐рдЪрд╛рди рдЧрд░реНрди рд╕рдореНрднрд╡ рдмрдирд╛рдЙрдБрдЫред
  3. рд╡рд┐рднрд┐рдиреНрди рдореЛрдЯрд╛рдИ рднрдПрдХрд╛ рддрд╣рд╣рд░реВрд▓реЗ рд╡рд┐рднрд┐рдиреНрди рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА рджрд╛рдпрд░рд╛рд╣рд░реВрдорд╛ рд╡рд┐рд╕рдВрдЧрддрд┐рд╣рд░реВ рдирд┐рдореНрддреНрдпрд╛рдЙрдБрдЫред

рддреЗрд╕реНрд░реЛ рдмреБрдБрджрд╛ рдпрд╕ рд▓реЗрдЦрдХреЛ рд╕рдиреНрджрд░реНрднрдорд╛ рдореБрдЦреНрдп рд╣реЛред рддрд▓ рдлрд░рдХ рдореЛрдЯрд╛рдИ рд╕рдВрдЧ рдПрдХ рддрд╣ рдХреЛ рдорд╛рдорд▓рд╛ рдорд╛ рднреВрдХрдореНрдк рдЯреНрд░реЗрд╕ рдЧрдгрдирд╛ рдХреЛ рд▓рд╛рдЧреА рдПрдХ рдХреЛрдб рдЯреБрдХреНрд░рд╛ рдЫ - рдПрдХ рд╡реЗрдЬ рдореЛрдбреЗрд▓ред рдпреЛ рдореЛрдбреЗрд▓ рдкрд░рдореНрдкрд░рд╛рдЧрдд рд░реВрдкрдорд╛ рднреВрдХрдВрдкреАрдп рдЕрдиреНрд╡реЗрд╖рдгрдорд╛ рд╣рд╕реНрддрдХреНрд╖реЗрдк рдкреНрд░рднрд╛рд╡рд╣рд░реВ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдЧрд░реНрди рдЕрдзреНрдпрдпрди рдЧрд░рд┐рдиреНрдЫ рдЬрдм рдзреЗрд░реИ рддрд╣рд╣рд░реВрдмрд╛рдЯ рдкреНрд░рддрд┐рдмрд┐рдореНрдмрд┐рдд рдЫрд╛рд▓рд╣рд░реВ рдПрдХрдЕрд░реНрдХрд╛рдорд╛ рд╕реБрдкрд░рдЗрдореНрдкреЛрдЬ рд╣реБрдиреНрдЫрдиреНред

nx=200;(* Number of grid points in X direction*)
ny=200;(* Number of grid points in Y direction*)
T=2;(*Total propagation time*)
(*Velocity and density*)
modellv=Table[4000,{i,1,ny},{j,1,nx}];(* P-wave velocity in m/s*)
rho=Table[2200,{i,1,ny},{j,1,nx}];(* Density in g/cm^3, used constant density*)
Table[modellv[[150-Round[i*0.5];;,i]]=4500;,{i,1,200}];
Table[modellv[[;;70,i]]=4500;,{i,1,200}];
(*Plotting model*)
MatrixPlot[modellv,PlotLabel->Style["Model of layer",Black,20],
LabelStyle->Directive[Black,Italic]]

рдкрд┐рдиреНрдЪ-рдЖрдЙрдЯ рдЧрдардирдХреЛ рдореЛрдбреЗрд▓
Geophysics рдорд╛ Wolfram Mathematica

рд╡реЗрдЬ рднрд┐рддреНрд░рдХреЛ рддрд░рдВрдЧ рдЧрддрд┐ 4500 m/s, рд╡реЗрдЬ рдмрд╛рд╣рд┐рд░ 4000 m/s, рд░ рдШрдирддреНрд╡ рд╕реНрдерд┐рд░ 2200 g/cm┬│ рдорд╛рдирд┐рдиреНрдЫред рдпрд╕реНрддреЛ рдореЛрдбреЗрд▓рдХреЛ рд▓рд╛рдЧрд┐, рд╣рд╛рдореА рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдЧреБрдгрд╛рдВрдХ рд░ рднреВрдХрдореНрдк рдЯреНрд░реЗрд╕рд╣рд░реВ рдЧрдгрдирд╛ рдЧрд░реНрдЫреМрдВред

rc=Table[N[(modellv[[All,i]]-PadLeft[modellv[[All,i]],201,4000][[1;;200]])/(modellv[[All,i]]+PadLeft[modellv[[All,i]],201,4500][[1;;200]])],{i,1,200}];
traces=Table[ListConvolve[wavelet[[1;;;;1]],rc[[i]]],{i,1,200}];
starttrace=10;
endtrace=200;
steptrace=10;
trasenum=Range[starttrace,endtrace,steptrace];
traserenum=Range[Length@trasenum];
tracedist=0.5;
Rotate[Show[
Reverse[Table[
	ListLinePlot[traces[[trasenum[[i]]]]*50+trasenum[[i]]*tracedist,Filling->{1->{trasenum[[i]]*tracedist,{RGBColor[0.97,0.93,0.68],Black}}},PlotStyle->Directive[Gray,Thin],PlotRange->Full,InterpolationOrder->2,Axes->False,Background->RGBColor[0.97,0.93,0.68]],
		{i,1,Length@trasenum}]],ListLinePlot[Transpose[{ConstantArray[45,80],Range[80]}],PlotStyle->Red],PlotRange->All,Frame->True],270Degree]

рд╡реЗрдЬ рдореЛрдбреЗрд▓рдХрд╛ рд▓рд╛рдЧрд┐ рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕рд╣рд░реВ
Geophysics рдорд╛ Wolfram Mathematica

рдпрд╕ рдЪрд┐рддреНрд░рдорд╛ рджреЗрдЦрд╛рдЗрдПрдХреЛ рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕рд╣рд░реВрдХреЛ рдХреНрд░рдорд▓рд╛рдИ рд╕рд┐рд╕реНрдорд┐рдХ рд╕реЗрдХреНрд╢рди рднрдирд┐рдиреНрдЫред рддрдкрд╛рдИрд▓реЗ рджреЗрдЦреНрди рд╕рдХреНрдиреБрд╣реБрдиреЗ рд░реВрдкрдорд╛, рдпрд╕рдХреЛ рд╡реНрдпрд╛рдЦреНрдпрд╛ рдкрдирд┐ рд╕рд╣рдЬ рд╕реНрддрд░рдорд╛ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ, рдХрд┐рдирдХрд┐ рдкреНрд░рддрд┐рдмрд┐рдореНрдмрд┐рдд рддрд░рдВрдЧрд╣рд░реВрдХреЛ рдЬреНрдпрд╛рдорд┐рддрд┐ рд╕реНрдкрд╖реНрдЯ рд░реВрдкрдорд╛ рдкрд╣рд┐рд▓реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░рд┐рдПрдХреЛ рдореЛрдбреЗрд▓рд╕рдБрдЧ рдореЗрд▓ рдЦрд╛рдиреНрдЫред рдпрджрд┐ рддрдкрд╛рдЗрдБ рдЯреНрд░реЗрд╕рд╣рд░реВрд▓рд╛рдИ рдердк рд╡рд┐рд╕реНрддрд╛рд░рдорд╛ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдЧрд░реНрдиреБрд╣реБрдиреНрдЫ рднрдиреЗ, рддрдкрд╛рдЗрдБрд▓реЗ рдпрд╛рдж рдЧрд░реНрдиреБрд╣реБрдиреЗрдЫ рдХрд┐ 1 рджреЗрдЦрд┐ рд▓рдЧрднрдЧ 30 рд╕рдореНрдордХрд╛ рдЯреНрд░реЗрд╕рд╣рд░реВ рдлрд░рдХ рдЫреИрдирдиреН - рдЧрдардирдХреЛ рдЫрддрдмрд╛рдЯ рд░ рддрд▓рдмрд╛рдЯ рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдПрдХрдЕрд░реНрдХрд╛рд▓рд╛рдИ рдУрднрд░рд▓реНрдпрд╛рдк рдЧрд░реНрджреИрдиред 31 рдФрдВ рдЯреНрд░реЗрд╕рдмрд╛рдЯ рд╕реБрд░реБ рд╣реБрдБрджреИ, рдкреНрд░рддрд┐рдмрд┐рдореНрдмрд╣рд░реВ рд╣рд╕реНрддрдХреНрд╖реЗрдк рдЧрд░реНрди рдерд╛рд▓реНрдЫрдиреНред рд░, рдпрджреНрдпрдкрд┐ рдореЛрдбреЗрд▓рдорд╛, рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдЧреБрдгрд╛рдВрдХрд╣рд░реВ рддреЗрд░реНрд╕реЛ рд░реВрдкрдорд╛ рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрджреИрдирдиреН - рднреВрдХрдВрдкреАрдп рдирд┐рд╢рд╛рдирд╣рд░реВрд▓реЗ рдЧрдардирдХреЛ рдореЛрдЯрд╛рдИ рдкрд░рд┐рд╡рд░реНрддрди рд╣реБрдБрджрд╛ рддрд┐рдиреАрд╣рд░реВрдХреЛ рддреАрд╡реНрд░рддрд╛ рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрджрдЫред

рдЧрдардирдХреЛ рдорд╛рдерд┐рд▓реНрд▓реЛ рд╕реАрдорд╛рдмрд╛рдЯ рдкреНрд░рддрд┐рдмрд┐рдореНрдмрдХреЛ рдЖрдпрд╛рдорд▓рд╛рдИ рд╡рд┐рдЪрд╛рд░ рдЧрд░реМрдВред ремреж рдФрдВ рд░реБрдЯрдмрд╛рдЯ рд╕реБрд░реБ рд╣реБрдБрджреИ, рдкреНрд░рддрд┐рдмрд┐рдореНрдмрдХреЛ рддреАрд╡реНрд░рддрд╛ рдмрдвреНрди рдерд╛рд▓реНрдЫ рд░ ренреж рдФрдВ рд░реБрдЯрдорд╛ рдпреЛ рдЕрдзрд┐рдХрддрдо рд╣реБрдиреНрдЫред рдпрд╕рд░реА рдЫрдд рд░ рддрд╣рдХреЛ рддрд▓рдмрд╛рдЯ рдЫрд╛рд▓рд╣рд░реВрдХреЛ рд╣рд╕реНрддрдХреНрд╖реЗрдк рдЖрдлреИрдВ рдкреНрд░рдХрдЯ рд╣реБрдиреНрдЫ, рдЬрд╕рд▓реЗ рдХреЗрд╣реА рдЕрд╡рд╕реНрдерд╛рдорд╛ рднреВрдХрдореНрдкреАрдп рд░реЗрдХрд░реНрдбрдорд╛ рдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг рд╡рд┐рд╕рдВрдЧрддрд┐рд╣рд░реВ рдирд┐рдореНрддреНрдпрд╛рдЙрдБрдЫред

ListLinePlot[GaussianFilter[Abs[traces[[All,46]]],3][[;;;;2]],
InterpolationOrder->2,Frame->True,PlotStyle->Black,
PlotLabel->Style["Amplitude of reflection",Black,20],
LabelStyle->Directive[Black,Italic],
PlotRange->All]

рд╡реЗрдЬрдХреЛ рдорд╛рдерд┐рд▓реНрд▓реЛ рдХрд┐рдирд╛рд░рдмрд╛рдЯ рдкреНрд░рддрд┐рдмрд┐рдореНрдмрд┐рдд рддрд░рдВрдЧрдХреЛ рдЖрдпрд╛рдордХреЛ рдЧреНрд░рд╛рдл
Geophysics рдорд╛ Wolfram Mathematica

рдпреЛ рддрд╛рд░реНрдХрд┐рдХ рдЫ рдХрд┐ рдЬрдм рд╕рд┐рдЧреНрдирд▓ рдХрдо-рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА рдЫ, рд╣рд╕реНрддрдХреНрд╖реЗрдк рдареВрд▓реЛ рдЧрдарди рдореЛрдЯрд╛рдИ рдорд╛ рджреЗрдЦрд╛ рдкрд░реНрди рдерд╛рд▓реНрдЫ, рд░ рдПрдХ рдЙрдЪреНрдЪ рдЖрд╡реГрддреНрддрд┐ рд╕рдВрдХреЗрдд рдХреЛ рдорд╛рдорд▓рд╛ рдорд╛, рд╣рд╕реНрддрдХреНрд╖реЗрдк рд╕рд╛рдирд╛ рдореЛрдЯрд╛рдИ рдорд╛ рд╣реБрдиреНрдЫред рдирд┐рдореНрди рдХреЛрдб рд╕реНрдирд┐рдкреЗрдЯрд▓реЗ 35 Hz, 55 Hz рд░ 85 Hz рдХреЛ рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реАрдХреЛ рд╕рд╛рде рд╕рдВрдХреЗрдд рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрджрдЫред

waveletSet=Table[(1.0-2.0*(Pi^2)*(f^2)*(t^2))*Exp[-(Pi^2)*(f^2)*(t^2)],
{f,{35,55,85}}];
ListLinePlot[waveletSet,PlotRange->Full,PlotStyle->Black,Frame->True,
PlotLabel->Style["Set of wavelets",Black,20],
LabelStyle->Directive[Black,Italic],
ImageSize->Large,InterpolationOrder->2]

рейрел рд╣рд░реНрдЯреНрдЬ, релрел рд╣рд░реНрдЯреНрдЬ, реорел рд╣рд░реНрдЯреНрдЬрдХреЛ рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реАрдХреЛ рд╕рд╛рде рд╕реНрд░реЛрдд рд╕рдВрдХреЗрддрд╣рд░реВрдХреЛ рд╕реЗрдЯ
Geophysics рдорд╛ Wolfram Mathematica

рд╕рд┐рд╕реНрдорд┐рдХ рдЯреНрд░реЗрд╕рд╣рд░реВ рдЧрдгрдирд╛ рдЧрд░реЗрд░ рд░ рдкрд░рд╛рд╡рд░реНрддрд┐рдд рддрд░рдВрдЧ рдПрдореНрдкреНрд▓рд┐рдЯреНрдпреВрдбрд╣рд░реВрдХреЛ рдЧреНрд░рд╛рдлрд╣рд░реВ рдкреНрд▓рдЯ рдЧрд░реЗрд░, рд╣рд╛рдореА рджреЗрдЦреНрди рд╕рдХреНрдЫреМрдВ рдХрд┐ рд╡рд┐рднрд┐рдиреНрди рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реАрд╣рд░реВрдХреЛ рд▓рд╛рдЧрд┐ рд╡рд┐рднрд┐рдиреНрди рдЧрдарди рдореЛрдЯрд╛рдИрд╣рд░реВрдорд╛ рдПрдХ рд╡рд┐рд╕рдВрдЧрддрд┐ рдЕрд╡рд▓реЛрдХрди рдЧрд░рд┐рдПрдХреЛ рдЫред

tracesSet=Table[ListConvolve[waveletSet[[j]][[1;;;;1]],rc[[i]]],{j,1,3},{i,1,200}];

lowFreq=ListLinePlot[GaussianFilter[Abs[tracesSet[[1]][[All,46]]],3][[;;;;2]],InterpolationOrder->2,PlotStyle->Black,PlotRange->All];
medFreq=ListLinePlot[GaussianFilter[Abs[tracesSet[[2]][[All,46]]],3][[;;;;2]],InterpolationOrder->2,PlotStyle->Black,PlotRange->All];
highFreq=ListLinePlot[GaussianFilter[Abs[tracesSet[[3]][[All,46]]],3][[;;;;2]],InterpolationOrder->2,PlotStyle->Black,PlotRange->All];

Show[lowFreq,medFreq,highFreq,PlotRange->{{0,100},All},
PlotLabel->Style["Amplitudes of reflection",Black,20],
LabelStyle->Directive[Black,Italic],
Frame->True]

рд╡рд┐рднрд┐рдиреНрди рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реАрдХреЛ рд▓рд╛рдЧрд┐ рд╡реЗрдЬрдХреЛ рдорд╛рдерд┐рд▓реНрд▓реЛ рдХрд┐рдирд╛рд░рдмрд╛рдЯ рдкрд░рд╛рд╡рд░реНрддрд┐рдд рддрд░рдВрдЧрдХреЛ рдЖрдпрд╛рдорд╣рд░реВрдХреЛ рдЧреНрд░рд╛рдлрд╣рд░реВ
Geophysics рдорд╛ Wolfram Mathematica

рднреВрдХрдореНрдкреАрдп рдЕрд╡рд▓реЛрдХрдирдХреЛ рдирддрд┐рдЬрд╛рдмрд╛рдЯ рд╕рдВрд░рдЪрдирд╛рдХреЛ рдореЛрдЯрд╛рдИрдХреЛ рдмрд╛рд░реЗрдорд╛ рдирд┐рд╖реНрдХрд░реНрд╖ рдирд┐рдХрд╛рд▓реНрдиреЗ рдХреНрд╖рдорддрд╛ рдЕрддреНрдпрдиреНрдд рдЙрдкрдпреЛрдЧреА рдЫ, рдХрд┐рдирднрдиреЗ рддреЗрд▓ рдЕрдиреНрд╡реЗрд╖рдгрдХреЛ рдореБрдЦреНрдп рдХрд╛рд░реНрдпрд╣рд░реВ рдордзреНрдпреЗ рдПрдЙрдЯрд╛ рдЗрдирд╛рд░ рдмрд┐рдЫреНрдпрд╛рдЙрдиреЗ рд╕рдмреИрднрдиреНрджрд╛ рдЖрд╢рд╛рдЬрдирдХ рдмрд┐рдиреНрджреБрд╣рд░реВрдХреЛ рдореВрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрдиреБ рд╣реЛ (рдЕрд░реНрдерд╛рдд, рддреА рдХреНрд╖реЗрддреНрд░рд╣рд░реВ рдЬрд╣рд╛рдБ рдЧрдарди рд╣реБрдиреНрдЫред рдЧрд╛рдврд╛)ред рдердк рд░реВрдкрдорд╛, рднреМрдЧреЛрд▓рд┐рдХ рдЦрдгреНрдбрдорд╛ рддреНрдпрд╣рд╛рдБ рд╡рд╕реНрддреБрд╣рд░реВ рд╣реБрди рд╕рдХреНрдЫ рдЬрд╕рдХреЛ рдЙрддреНрдкрддреНрддрд┐рд▓реЗ рдЧрдардирдХреЛ рдореЛрдЯрд╛рдИрдорд╛ рддреАрд╡реНрд░ рдкрд░рд┐рд╡рд░реНрддрди рдирд┐рдореНрддреНрдпрд╛рдЙрдБрдЫред рдпрд╕рд▓реЗ рд╕реНрдкреЗрдХреНрдЯреНрд░рд▓ рд╡рд┐рд╢реНрд▓реЗрд╖рдгрд▓рд╛рдИ рдЙрдиреАрд╣рд░реВрдХреЛ рдЕрдзреНрдпрдпрдирдХреЛ рд▓рд╛рдЧрд┐ рдкреНрд░рднрд╛рд╡рдХрд╛рд░реА рдЙрдкрдХрд░рдг рдмрдирд╛рдЙрдБрдЫред рд▓реЗрдЦрдХреЛ рдЕрд░реНрдХреЛ рднрд╛рдЧрдорд╛ рд╣рд╛рдореА рддреНрдпрд╕реНрддрд╛ рднреВрд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рд╡рд╕реНрддреБрд╣рд░реВрд▓рд╛рдИ рдердк рд╡рд┐рд╕реНрддрд╛рд░рдорд╛ рд╡рд┐рдЪрд╛рд░ рдЧрд░реНрдиреЗрдЫреМрдВред

рдкреНрд░рдпреЛрдЧрд╛рддреНрдордХ рдбрд╛рдЯрд╛ред рддрдкрд╛рдИрдВрд▓реЗ рддрд┐рдиреАрд╣рд░реВрд▓рд╛рдИ рдХрд╣рд╛рдБ рдкрд╛рдЙрдиреБрднрдпреЛ рд░ рддрд┐рдиреАрд╣рд░реВрдорд╛ рдХреЗ рдЦреЛрдЬреНрдиреЗ?

рд▓реЗрдЦрдорд╛ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдЧрд░рд┐рдПрдХрд╛ рд╕рд╛рдордЧреНрд░реАрд╣рд░реВ рдкрд╢реНрдЪрд┐рдореА рд╕рд╛рдЗрдмреЗрд░рд┐рдпрд╛рдорд╛ рдкреНрд░рд╛рдкреНрдд рдЧрд░рд┐рдПрдХрд╛ рдерд┐рдПред рдпреЛ рдХреНрд╖реЗрддреНрд░, рдЕрдкрд╡рд╛рдж рдмрд┐рдирд╛ рд╕рдмреИрд▓рд╛рдИ рдерд╛рд╣рд╛ рдЫ, рд╣рд╛рдореНрд░реЛ рджреЗрд╢рдХреЛ рдореБрдЦреНрдп рддреЗрд▓ рдЙрддреНрдкрд╛рджрди рдХреНрд╖реЗрддреНрд░ рд╣реЛред рдкрдЫрд┐рд▓реНрд▓реЛ рд╢рддрд╛рдмреНрджреАрдХреЛ 60s рдорд╛ рдХреНрд╖реЗрддреНрд░рдорд╛ рдЬрдореНрдорд╛ рдХреЛ рд╕рдХреНрд░рд┐рдп рд╡рд┐рдХрд╛рд╕ рд╕реБрд░реБ рднрдпреЛред рддреЗрд▓ рднрдгреНрдбрд╛рд░ рдЦреЛрдЬреНрдиреЗ рдореБрдЦреНрдп рд╡рд┐рдзрд┐ рднреВрдХрдореНрдкреАрдп рдЕрдиреНрд╡реЗрд╖рдг рд╣реЛред рдпреЛ рдХреНрд╖реЗрддреНрд░ рдХреЛ рдЙрдкрдЧреНрд░рд╣ рдЫрд╡рд┐рд╣рд░реВ рд╣реЗрд░реНрди рд░реЛрдЪрдХ рдЫред рд╕рд╛рдиреЛ рдорд╛рдкрдирдорд╛, рддрдкрд╛рдИрдВрд▓реЗ рдареВрд▓реЛ рд╕рдВрдЦреНрдпрд╛рдорд╛ рджрд▓рджрд▓ рд░ рддрд╛рд▓рд╣рд░реВ рдиреЛрдЯ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ; рдирдХреНрд╕рд╛рд▓рд╛рдИ рдареВрд▓реЛ рдЧрд░реЗрд░, рддрдкрд╛рдИрдВрд▓реЗ рдХреНрд▓рд╕реНрдЯрд░ рдЗрдирд╛рд░ рдбреНрд░рд┐рд▓рд┐рдВрдЧ рд╕рд╛рдЗрдЯрд╣рд░реВ рджреЗрдЦреНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ, рд░ рдирдХреНрд╕рд╛рд▓рд╛рдИ рд╕реАрдорд╛рдорд╛ рд╡рд┐рд╕реНрддрд╛рд░ рдЧрд░реЗрд░, рддрдкрд╛рдИрдВрд▓реЗ рдкреНрд░реЛрдлрд╛рдЗрд▓рд╣рд░реВрдХреЛ рдХреНрд▓рд┐рдпрд░рд┐рдЩрд╣рд░реВ рдкрдирд┐ рдЫреБрдЯреНрдпрд╛рдЙрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рдЬрд╕рдорд╛ рднреВрдХрдореНрдк рдЕрд╡рд▓реЛрдХрдирд╣рд░реВ рдЧрд░рд┐рдпреЛред

Yandex рдирдХреНрд╕рд╛ рдХреЛ рдЙрдкрдЧреНрд░рд╣ рдЫрд╡рд┐ - Noyabrsk рд╢рд╣рд░ рдХреНрд╖реЗрддреНрд░
Geophysics рдорд╛ Wolfram Mathematica

рдХреНрд╖реЗрддреНрд░рд╣рд░реВ рдордзреНрдпреЗ рдПрдХрдорд╛ рд░рд╛рдореНрд░реЛ рдкреНрдпрд╛рдбрд╣рд░реВрдХреЛ рдиреЗрдЯрд╡рд░реНрдХ
Geophysics рдорд╛ Wolfram Mathematica

рдкрд╢реНрдЪрд┐рдореА рд╕рд╛рдЗрдмреЗрд░рд┐рдпрд╛рдХреЛ рддреЗрд▓-рд╡рд╛рд╣рдХ рдЪрдЯреНрдЯрд╛рдирд╣рд░реВ рдЧрд╣рд┐рд░рд╛рдЗрдХреЛ рд╡рд┐рд╕реНрддреГрдд рджрд╛рдпрд░рд╛рдорд╛ рд╣реБрдиреНрдЫрдиреН - 1 рдХрд┐рдореА рджреЗрдЦрд┐ 5 рдХрд┐рдореА рд╕рдореНрдоред рддреЗрд▓ рдпреБрдХреНрдд рдЪрдЯреНрдЯрд╛рдирдХреЛ рдореБрдЦреНрдп рдорд╛рддреНрд░рд╛ рдЬреБрд░рд╛рд╕рд┐рдХ рд░ рдХреНрд░реЗрдЯрд╛рд╕рд┐рдпрд╕ рд╕рдордпрдорд╛ рдмрдирд╛рдЗрдПрдХреЛ рдерд┐рдпреЛред рдЬреБрд░рд╛рд╕рд┐рдХ рдЕрд╡рдзрд┐ рд╕рд╛рдпрдж рдзреЗрд░реИрд▓рд╛рдИ рдПрдЙрдЯреИ рдирд╛рдордХреЛ рдлрд┐рд▓реНрдордмрд╛рдЯ рдерд╛рд╣рд╛ рдЫред рдЬреБрд░рд╛рд╕рд┐рдХ рдЬрд▓рд╡рд╛рдпреБ рдЖрдзреБрдирд┐рдХ рднрдиреНрджрд╛ рдзреЗрд░реИ рдлрд░рдХ рдерд┐рдпреЛред рдЗрдиреНрд╕рд╛рдЗрдХреНрд▓реЛрдкреАрдбрд┐рдпрд╛ рдмреНрд░рд┐рдЯрд╛рдирд┐рдХрд╛рдорд╛ рдкреНрд░рддреНрдпреЗрдХ рд╣реЗрд▓реЛрдЬрд┐рдХрд▓ рдпреБрдЧрдХреЛ рд╡рд┐рд╢реЗрд╖рддрд╛ рдкреЗрд▓рд┐рдпреЛрдореНрдпрд╛рдкрдХреЛ рд╢реНрд░реГрдВрдЦрд▓рд╛ рдЫред

рдЖрдЬрдХрд▓
Geophysics рдорд╛ Wolfram Mathematica
рдЬреБрд░рд╛рд╕рд┐рдХ рдЕрд╡рдзрд┐
Geophysics рдорд╛ Wolfram Mathematica

рдХреГрдкрдпрд╛ рдзреНрдпрд╛рди рджрд┐рдиреБрд╣реЛрд╕реН рдХрд┐ рдЬреБрд░рд╛рд╕рд┐рдХ рд╕рдордп рдорд╛, рдкрд╢реНрдЪрд┐рдореА рд╕рд╛рдЗрдмреЗрд░рд┐рдпрд╛ рдХреЛ рдХреНрд╖реЗрддреНрд░ рдПрдХ рд╕рдореБрджреНрд░реА рддрдЯ рдерд┐рдпреЛ (рдирджреАрд╣рд░реБ рд░ рдПрдХ рдЙрдерд▓реЗ рд╕рдореБрджреНрд░ рджреНрд╡рд╛рд░рд╛ рдкрд╛рд░ рдЧрд░рд┐рдПрдХреЛ рднреВрдорд┐)ред рд╣рд╛рд╡рд╛рдкрд╛рдиреА рд╕рд╣рдЬ рднрдПрдХреЛ рд╣реБрдирд╛рд▓реЗ, рд╣рд╛рдореА рдЕрдиреБрдорд╛рди рдЧрд░реНрди рд╕рдХреНрдЫреМрдВ рдХрд┐ рддреНрдпрд╕ рд╕рдордпрдХреЛ рдПрдХ рд╡рд┐рд╢рд┐рд╖реНрдЯ рдкрд░рд┐рджреГрд╢реНрдп рдпрд╕реНрддреЛ рджреЗрдЦрд┐рдиреНрдЫ:

рдЬреБрд░рд╛рд╕рд┐рдХ рд╕рд╛рдЗрдмреЗрд░рд┐рдпрд╛
Geophysics рдорд╛ Wolfram Mathematica

рдпрд╕ рдЪрд┐рддреНрд░рдорд╛, рд╣рд╛рдореНрд░реЛ рд▓рд╛рдЧрд┐ рдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг рдХреБрд░рд╛ рдЬрдирд╛рд╡рд░ рд░ рдЪрд░рд╛рд╣рд░реВ рд╣реЛрдЗрди, рддрд░ рдкреГрд╖реНрдарднреВрдорд┐рдорд╛ рдирджреАрдХреЛ рдЫрд╡рд┐ рд╣реЛред рдирджреА рдЙрд╣реА рднреВрд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рд╡рд╕реНрддреБ рд╣реЛ рдЬреБрди рд╣рд╛рдореАрд▓реЗ рдкрд╣рд┐рд▓реЗ рд░реЛрдХреЗрдХрд╛ рдерд┐рдпреМрдВред рддрдереНрдп рдпреЛ рд╣реЛ рдХрд┐ рдирджреАрд╣рд░реВрдХреЛ рдЧрддрд┐рд╡рд┐рдзрд┐рд▓реЗ рд░рд╛рдореНрд░рд░реА рдХреНрд░рдордмрджреНрдз рдмрд╛рд▓реБрд╡рд╛ рдвреБрдЩреНрдЧрд╛рд╣рд░реВ рдЬрдореНрдорд╛ рдЧрд░реНрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫ, рдЬреБрди рддреНрдпрд╕рдкрдЫрд┐ рддреЗрд▓рдХреЛ рд▓рд╛рдЧрд┐ рднрдгреНрдбрд╛рд░ рд╣реБрдиреЗрдЫред рдпреА рдЬрд▓рд╛рд╢рдпрд╣рд░реВрдорд╛ рдПрдХ рд╡рд┐рдЪрд┐рддреНрд░, рдЬрдЯрд┐рд▓ рдЖрдХрд╛рд░ (рдирджреАрдХреЛ рдУрдЫреНрдпрд╛рди рдЬрд╕реНрддреИ) рд╣реБрди рд╕рдХреНрдЫ рд░ рддрд┐рдиреАрд╣рд░реВрдХреЛ рдЪрд░ рдореЛрдЯрд╛рдИ рд╣реБрди рд╕рдХреНрдЫ - рдХрд┐рдирд╛рд░рдХреЛ рдирдЬрд┐рдХ рдореЛрдЯрд╛рдИ рд╕рд╛рдиреЛ рдЫ, рддрд░ рдЪреНрдпрд╛рдирд▓рдХреЛ рдХреЗрдиреНрджреНрд░рдХреЛ рдирдЬрд┐рдХ рд╡рд╛ рдордзреНрдп рдХреНрд╖реЗрддреНрд░рд╣рд░реВрдорд╛ рдпреЛ рдмрдвреНрдЫред рддреНрдпрд╕реЛрднрдП, рдЬреБрд░рд╛рд╕рд┐рдХрдорд╛ рдмрдиреЗрдХрд╛ рдирджреАрд╣рд░реВ рдЕрдм рдХрд░рд┐рдм рддреАрди рдХрд┐рд▓реЛрдорд┐рдЯрд░рдХреЛ рдЧрд╣рд┐рд░рд╛рдЗрдорд╛ рдЫрдиреН рд░ рддреЗрд▓ рднрдгреНрдбрд╛рд░рд╣рд░реВрдХреЛ рдЦреЛрдЬреАрдХреЛ рд╡рд╕реНрддреБ рд╣реБрдиреНред

рдкреНрд░рдпреЛрдЧрд╛рддреНрдордХ рдбреЗрдЯрд╛ред рдкреНрд░рд╢реЛрдзрди рд░ рджреГрд╢реНрдпреАрдХрд░рдг

рд▓реЗрдЦрдорд╛ рджреЗрдЦрд╛рдЗрдПрдХреЛ рднреВрдХрдореНрдкреАрдп рд╕рд╛рдордЧреНрд░реАрдХреЛ рд╕рдиреНрджрд░реНрднрдорд╛ рддреБрд░реБрдиреНрддреИ рд░рд┐рдЬрд░реНрднреЗрд╕рди рдЧрд░реМрдВ - рд╡рд┐рд╢реНрд▓реЗрд╖рдгрдХреЛ рд▓рд╛рдЧрд┐ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдПрдХреЛ рдбрд╛рдЯрд╛рдХреЛ рдорд╛рддреНрд░рд╛ рдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг рдЫ рднрдиреНрдиреЗ рддрдереНрдпрдХреЛ рдХрд╛рд░рдг - рд▓реЗрдЦрдХреЛ рдкрд╛рдардорд╛ рднреВрдХрдореНрдкреАрдп рдЯреНрд░реЗрд╕рд╣рд░реВрдХреЛ рдореВрд▓ рд╕реЗрдЯрдХреЛ рдПрдХ рдЕрдВрд╢ рдорд╛рддреНрд░ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд┐рдПрдХреЛ рдЫред рдпрд╕рд▓реЗ рдХрд╕реИрд▓рд╛рдИ рдорд╛рдерд┐рдХреЛ рдЧрдгрдирд╛рд╣рд░реВ рдкреБрди: рдЙрддреНрдкрд╛рджрди рдЧрд░реНрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреЗрдЫред

рднреВрдХрдореНрдкреАрдп рдбреЗрдЯрд╛рд╕рдБрдЧ рдХрд╛рдо рдЧрд░реНрджрд╛, рдПрдХ рднреВрднреМрддрд┐рдХрд╡рд┐рджреНрд▓реЗ рд╕рд╛рдорд╛рдиреНрдпрддрдпрд╛ рд╡рд┐рд╢реЗрд╖ рд╕рдлреНрдЯрд╡реЗрдпрд░ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрдЫ (рддреНрдпрд╣рд╛рдБ рдзреЗрд░реИ рдЙрджреНрдпреЛрдЧ рдиреЗрддрд╛рд╣рд░реВ рдЫрдиреН рдЬрд╕рдХреЛ рд╡рд┐рдХрд╛рд╕рд╣рд░реВ рд╕рдХреНрд░рд┐рдп рд░реВрдкрдорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ, рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐ Petrel рд╡рд╛ Paradigm), рдЬрд╕рд▓реЗ рддрдкрд╛рдИрдВрд▓рд╛рдИ рд╡рд┐рднрд┐рдиреНрди рдкреНрд░рдХрд╛рд░рдХрд╛ рдбрд╛рдЯрд╛ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдЧрд░реНрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫ рд░ рдПрдХ рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рдЧреНрд░рд╛рдлрд┐рдХрд▓ рдЗрдиреНрдЯрд░рдлреЗрд╕ рдЫред рд╕рдмреИ рд╕реБрд╡рд┐рдзрд╛рдХреЛ рдмрд╛рд╡рдЬреБрдж, рдпреА рдкреНрд░рдХрд╛рд░рдХрд╛ рд╕рдлреНрдЯрд╡реЗрдпрд░рд╣рд░реВрдорд╛ рдкрдирд┐ рддрд┐рдиреАрд╣рд░реВрдХреЛ рдХрдордЬреЛрд░реАрд╣рд░реВ рдЫрдиреН - рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐, рд╕реНрдерд┐рд░ рд╕рдВрд╕реНрдХрд░рдгрд╣рд░реВрдорд╛ рдЖрдзреБрдирд┐рдХ рдПрд▓реНрдЧреЛрд░рд┐рджрдорд╣рд░реВрдХреЛ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрдирд▓реЗ рдзреЗрд░реИ рд╕рдордп рд▓рд┐рдиреНрдЫ, рд░ рд╕реНрд╡рдЪрд╛рд▓рд┐рдд рдЧрдгрдирд╛рд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ рд╕рдореНрднрд╛рд╡рдирд╛рд╣рд░реВ рд╕рд╛рдорд╛рдиреНрдпрддрдпрд╛ рд╕реАрдорд┐рдд рд╣реБрдиреНрдЫрдиреНред рдпрд╕реНрддреЛ рдЕрд╡рд╕реНрдерд╛рдорд╛, рдХрдореНрдкреНрдпреБрдЯрд░ рдЧрдгрд┐рдд рдкреНрд░рдгрд╛рд▓реА рд░ рдЙрдЪреНрдЪ-рд╕реНрддрд░ рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдЩ рднрд╛рд╖рд╛рд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рдзреЗрд░реИ рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рд╣реБрдиреНрдЫ, рдЬрд╕рд▓реЗ рдлрд░рд╛рдХрд┐рд▓реЛ рдПрд▓реНрдЧреЛрд░рд┐рджрдорд┐рдХ рдЖрдзрд╛рд░рдХреЛ рдкреНрд░рдпреЛрдЧрд▓рд╛рдИ рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫ рд░, рдПрдХреИ рд╕рдордпрдорд╛, рдзреЗрд░реИ рджрд┐рдирдЪрд░реНрдпрд╛ рд▓рд┐рдиреНрдЫрдиреНред рдпреЛ Wolfram Mathematica рдорд╛ рд╕рд┐рд╕реНрдорд┐рдХ рдбреЗрдЯрд╛ рд╕рдВрдЧ рдХрд╛рдо рдЧрд░реНрди рдХреЛ рд▓рд╛рдЧреА рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдПрдХреЛ рд╕рд┐рджреНрдзрд╛рдиреНрдд рд╣реЛред рдбреЗрдЯрд╛рдХреЛ рд╕рд╛рде рдЕрдиреНрддрд░рдХреНрд░рд┐рдпрд╛рддреНрдордХ рдХрд╛рд░реНрдпрдХреЛ рд▓рд╛рдЧрд┐ рд╕рдореГрджреНрдз рдХрд╛рд░реНрдпрдХреНрд╖рдорддрд╛ рд▓реЗрдЦреНрди рдЕрдиреБрдкрдпреБрдХреНрдд рдЫ - рд╕рд╛рдорд╛рдиреНрдпрддрдпрд╛ рд╕реНрд╡реАрдХреГрдд рдврд╛рдБрдЪрд╛рдмрд╛рдЯ рд▓реЛрдб рд╣реБрдиреЗ рд╕реБрдирд┐рд╢реНрдЪрд┐рдд рдЧрд░реНрди, рддрд┐рдиреАрд╣рд░реВрдорд╛ рдЗрдЪреНрдЫрд┐рдд рдПрд▓реНрдЧреЛрд░рд┐рджрдорд╣рд░реВ рд▓рд╛рдЧреВ рдЧрд░реНрджреИ рд░ рддрд┐рдиреАрд╣рд░реВрд▓рд╛рдИ рдмрд╛рд╣рд┐рд░реА рдврд╛рдБрдЪрд╛рдорд╛ рдлрд┐рд░реНрддрд╛ рдЕрдкрд▓реЛрдб рдЧрд░реНрди рдпреЛ рдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг рдЫред

рдкреНрд░рд╕реНрддрд╛рд╡рд┐рдд рдпреЛрдЬрдирд╛ рдкрдЫреНрдпрд╛рдЙрдБрджреИ, рд╣рд╛рдореА рдореВрд▓ рднреВрдХрдореНрдкреАрдп рдбреЗрдЯрд╛ рд▓реЛрдб рдЧрд░реНрдиреЗрдЫреМрдВ рд░ рддрд┐рдиреАрд╣рд░реВрд▓рд╛рдИ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрдиреЗрдЫреМрдВ рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдореНрдпрд╛рдердореЗрдЯрд┐рдХрд╛:

Get["GeologyIO`"]
seismic3DZipPath = "seismic3D.zip";
seismic3DSEGYPath = "seismic3D.sgy";
If[FileExistsQ[seismic3DZipPath], DeleteFile[seismic3DZipPath]];
If[FileExistsQ[seismic3DSEGYPath], DeleteFile[seismic3DSEGYPath]];
URLDownload["https://wolfr.am/FiQIuZuH", seismic3DZipPath];
ExtractArchive[seismic3DZipPath];
seismic3DSEGY = SEGYImport[seismic3DSEGYPath]

рдпрд╕рд░реА рдбрд╛рдЙрдирд▓реЛрдб рд░ рдЖрдпрд╛рдд рдЧрд░рд┐рдПрдХреЛ рдбрд╛рдЯрд╛ резреж рдЧреБрдгрд╛ рел рдХрд┐рд▓реЛрдорд┐рдЯрд░рдХреЛ рдХреНрд╖реЗрддреНрд░рдорд╛ рд░реЗрдХрд░реНрдб рдЧрд░рд┐рдПрдХрд╛ рдорд╛рд░реНрдЧрд╣рд░реВ рд╣реБрдиреНред рдпрджрд┐ рдбреЗрдЯрд╛ рддреНрд░рд┐-рдЖрдпрд╛рдореА рд╕рд┐рд╕реНрдорд┐рдХ рд╕рд░реНрд╡реЗрдХреНрд╖рдг рд╡рд┐рдзрд┐ рдкреНрд░рдпреЛрдЧ рдЧрд░реА рдкреНрд░рд╛рдкреНрдд рдЧрд░рд┐рдиреНрдЫ (рддрд░рдВрдЧрд╣рд░реВ рд╡реНрдпрдХреНрддрд┐рдЧрдд рднреВрднреМрддрд┐рдХ рдкреНрд░реЛрдлрд╛рдЗрд▓рд╣рд░реВрдорд╛ рд░реЗрдХрд░реНрдб рдЧрд░рд┐рдПрдХрд╛ рдЫреИрдирдиреН, рддрд░ рд╕рдореНрдкреВрд░реНрдг рдХреНрд╖реЗрддреНрд░рдорд╛ рдПрдХреИ рд╕рд╛рде), рдпрд╕рд▓реЗ рднреВрдХрдореНрдкреАрдп рдбреЗрдЯрд╛ рдХреНрдпреВрдмрд╣рд░реВ рдкреНрд░рд╛рдкреНрдд рдЧрд░реНрди рд╕рдореНрднрд╡ рд╣реБрдиреНрдЫред рдпреА рддреАрди-рдЖрдпрд╛рдореА рд╡рд╕реНрддреБрд╣рд░реВ, рдард╛рдбреЛ рд░ рддреЗрд░реНрд╕реЛ рдЦрдгреНрдбрд╣рд░реВ рд╣реБрдиреН рдЬрд╕рдХреЛ рднреМрдЧреЛрд▓рд┐рдХ рд╡рд╛рддрд╛рд╡рд░рдгрдХреЛ рд╡рд┐рд╕реНрддреГрдд рдЕрдзреНрдпрдпрди рдЧрд░реНрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫред рд╡рд┐рдЪрд╛рд░ рдЧрд░рд┐рдПрдХреЛ рдЙрджрд╛рд╣рд░рдгрдорд╛, рд╣рд╛рдореА рддреНрд░рд┐-рдЖрдпрд╛рдореА рдбреЗрдЯрд╛рд╕рдБрдЧ рдХрд╛рдо рдЧрд░рд┐рд░рд╣реЗрдХрд╛ рдЫреМрдВред рд╣рд╛рдореА рдкрд╛рда рд╣реЗрдбрд░рдмрд╛рдЯ рдХреЗрд╣рд┐ рдЬрд╛рдирдХрд╛рд░реА рдкреНрд░рд╛рдкреНрдд рдЧрд░реНрди рд╕рдХреНрдЫреМрдВ, рдЬрд╕реНрддреИ

StringPartition[seismic3DSEGY["textheader"], 80] // TableForm

C 1 рдпреЛ рднреВрд╡рд┐рдЬреНрдЮрд╛рди рдкреНрдпрд╛рдХреЗрдЬ рдкрд░реАрдХреНрд╖рдгрдХреЛ рд▓рд╛рдЧрд┐ рдбреЗрдореЛ рдлрд╛рдЗрд▓ рд╣реЛ
рд╕реА 2
рд╕реА 3
рд╕реА 4
C 5 рдорд┐рддрд┐ рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛ рдирд╛рдо: WOLFRAM рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛
C 6 рд╕рд░реНрд╡реЗрдХреНрд╖рдг рдирд╛рдо: рдХрддреИ рд╕рд╛рдЗрдмреЗрд░рд┐рдпрд╛рдорд╛
C 7 рдлрд╛рдЗрд▓ рдкреНрд░рдХрд╛рд░ 3D рд╕рд┐рд╕реНрдорд┐рдХ рднреЛрд▓реНрдпреБрдо
рд╕реА 8
рд╕реА 9
C10 Z рджрд╛рдпрд░рд╛: рдкрд╣рд┐рд▓реЛ 2200M рдЕрдиреНрддрд┐рдо 2400M

рдпреЛ рдбреЗрдЯрд╛ рд╕реЗрдЯ рдбреЗрдЯрд╛ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдХреЛ рдореБрдЦреНрдп рдЪрд░рдгрд╣рд░реБ рдХреЛ рдкреНрд░рджрд░реНрд╢рди рдХреЛ рд▓рд╛рдЧреА рдкрд░реНрдпрд╛рдкреНрдд рд╣реБрдиреЗрдЫред рдлрд╛рдЗрд▓рдорд╛ рдЯреНрд░реЗрд╕рд╣рд░реВ рдХреНрд░рдорд┐рдХ рд░реВрдкрдорд╛ рд░реЗрдХрд░реНрдб рдЧрд░рд┐рдПрдХрд╛ рдЫрдиреН рд░ рддрд┐рдиреАрд╣рд░реВрдордзреНрдпреЗ рдкреНрд░рддреНрдпреЗрдХ рдирд┐рдореНрди рдЪрд┐рддреНрд░ рдЬрд╕реНрддреЛ рджреЗрдЦрд┐рдиреНрдЫ - рдпреЛ рдард╛рдбреЛ рдЕрдХреНрд╖ (рдЧрд╣рд┐рд░рд╛рдИ рдЕрдХреНрд╖) рдХреЛ рд╕рд╛рде рдкреНрд░рддрд┐рдмрд┐рдореНрдмрд┐рдд рдЫрд╛рд▓рд╣рд░реВрдХреЛ рдЖрдпрд╛рдорд╣рд░реВрдХреЛ рд╡рд┐рддрд░рдг рд╣реЛред

ListLinePlot[seismic3DSEGY["traces"][[100]], InterpolationOrder -> 2, 
 PlotStyle -> Black, PlotLabel -> Style["Seismic trace", Black, 20],
 LabelStyle -> Directive[Black, Italic], PlotRange -> All, 
 Frame -> True, ImageSize -> 1200, AspectRatio -> 1/5]

рднреВрдХрдореНрдкреАрдп рдЦрдгреНрдб рдЯреНрд░реЗрд╕рд╣рд░реВ рдордзреНрдпреЗ рдПрдХ
Geophysics рдорд╛ Wolfram Mathematica

рдЕрдзреНрдпрдпрди рдЧрд░рд┐рдПрдХреЛ рдХреНрд╖реЗрддреНрд░рдХреЛ рдкреНрд░рддреНрдпреЗрдХ рджрд┐рд╢рд╛рдорд╛ рдХрддрд┐ рдЯреНрд░реЗрд╕рд╣рд░реВ рдЕрд╡рд╕реНрдерд┐рдд рдЫрдиреН рднрдиреНрдиреЗ рдерд╛рд╣рд╛ рдкрд╛рдПрд░, рддрдкрд╛рдИрдВрд▓реЗ рддреАрди-рдЖрдпрд╛рдореА рдбреЗрдЯрд╛ рдПрд░реЗ рдЙрддреНрдкрдиреНрди рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рд░ рдпрд╕рд▓рд╛рдИ Image3D[] рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫред

traces=seismic3DSEGY["traces"];
startIL=1050;EndIL=2000;stepIL=2; (*╨║╨╛╨╛╤А╨┤╨╕╨╜╨░╤В╨░ ╨е ╨╜╨░╤З╨░╨╗╨░ ╨╕ ╨║╨╛╨╜╤Ж╨░ ╤Б╤К╤С╨╝╨║╨╕ ╨╕ ╤И╨░╨│ ╤В╤А╨░╤Б╤Б*)
startXL=1165;EndXL=1615;stepXL=2; (*╨║╨╛╨╛╤А╨┤╨╕╨╜╨░╤В╨░ Y ╨╜╨░╤З╨░╨╗╨░ ╨╕ ╨║╨╛╨╜╤Ж╨░ ╤Б╤К╤С╨╝╨║╨╕ ╨╕ ╤И╨░╨│ ╤В╤А╨░╤Б╤Б*)
numIL=(EndIL-startIL)/stepIL+1;   (*╨║╨╛╨╗╨╕╤З╨╡╤Б╤В╨▓╨╛ ╤В╤А╨░╤Б╤Б ╨┐╨╛ ╨╛╨╕╤Б ╨е*)
numXL=(EndXL-startXL)/stepIL+1;   (*╨║╨╛╨╗╨╕╤З╨╡╤Б╤В╨▓╨╛ ╤В╤А╨░╤Б╤Б ╨┐╨╛ ╨╛╨╕╤Б Y*)
Image3D[ArrayReshape[Abs[traces/Max[Abs[traces[[All,1;;;;4]]]]],{numIL,numXL,101}],ViewPoint->{-1, 0, 0},Background->RGBColor[0,0,0]]

рд╕рд┐рд╕реНрдорд┐рдХ рдбреЗрдЯрд╛ рдХреНрдпреВрдмрдХреЛ XNUMXD рдЫрд╡рд┐ред (рдард╛рдбреЛ рдЕрдХреНрд╖ - рдЧрд╣рд┐рд░рд╛рдИ)
Geophysics рдорд╛ Wolfram Mathematica

рдпрджрд┐ рд░реБрдЪрд┐рдХреЛ рднреМрдЧреЛрд▓рд┐рдХ рд╡рд┐рд╢реЗрд╖рддрд╛рд╣рд░реВрд▓реЗ рддреАрд╡реНрд░ рднреВрдХрдореНрдкреАрдп рд╡рд┐рд╕рдВрдЧрддрд┐рд╣рд░реВ рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрджрдЫ рднрдиреЗ, рддреНрдпрд╕рдкрдЫрд┐ рдкрд╛рд░рджрд░реНрд╢рд┐рддрд╛рдХрд╛ рд╕рд╛рде рджреГрд╢реНрдп рдЙрдкрдХрд░рдгрд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫред рд░реЗрдХрд░реНрдбрд┐рдЩрдХрд╛ "рдЕрдирдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг" рдХреНрд╖реЗрддреНрд░рд╣рд░реВ рдЕрджреГрд╢реНрдп рдмрдирд╛рдЙрди рд╕рдХрд┐рдиреНрдЫ, рд╡рд┐рд╕рдВрдЧрддрд┐рд╣рд░реВ рдорд╛рддреНрд░ рджреЗрдЦреНрди рд╕рдХрд┐рдиреНрдЫред Wolfram Mathematica рдорд╛ рдпреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ рдЕрд╕реНрдкрд╖реНрдЯрддрд╛ [ ] ╨╕ Raster3D[].

data = ArrayReshape[Abs[traces/Max[Abs[traces[[All,1;;;;4]]]]],{numIL,numXL,101}];
Graphics3D[{Opacity[0.1], Raster3D[data, ColorFunction->"RainbowOpacity"]}, 
Boxed->False, SphericalRegion->True, ImageSize->840, Background->None]

рдУрдкреЗрд╕рд┐рдЯреА [] рд░ Raster3D[] рдкреНрд░рдХрд╛рд░реНрдпрд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рд╕рд┐рд╕реНрдорд┐рдХ рдбреЗрдЯрд╛ рдХреНрдпреВрдм рдЫрд╡рд┐ Geophysics рдорд╛ Wolfram Mathematica

рд╕рд┐рдВрдереЗрдЯрд┐рдХ рдЙрджрд╛рд╣рд░рдгрдорд╛ рдЬрд╕реНрддреИ, рдореВрд▓ рдХреНрдпреВрдмрдХреЛ рдЦрдгреНрдбрд╣рд░реВрдорд╛ рдЪрд░ рд░рд╛рд╣рддрдХреЛ рд╕рд╛рде рдХреЗрд╣реА рднреМрдЧреЛрд▓рд┐рдХ рд╕реАрдорд╛рд╣рд░реВ (рддрд╣рд╣рд░реВ) рдкрд╣рд┐рдЪрд╛рди рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫред

рд╡рд░реНрдгрдХреНрд░рдореАрдп рд╡рд┐рд╢реНрд▓реЗрд╖рдгрдХреЛ рд▓рд╛рдЧрд┐ рдореБрдЦреНрдп рдЙрдкрдХрд░рдг рдлреЛрд░рд┐рдпрд░ рд░реВрдкрд╛рдиреНрддрд░рдг рд╣реЛред рдпрд╕рдХреЛ рдорджреНрджрддрд▓реЗ, рддрдкрд╛рдЗрдБ рдкреНрд░рддреНрдпреЗрдХ рдЯреНрд░реЗрд╕ рд╡рд╛ рдЯреНрд░реЗрд╕рд╣рд░реВрдХреЛ рд╕рдореВрд╣рдХреЛ рдЖрдпрд╛рдо-рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА рд╕реНрдкреЗрдХреНрдЯреНрд░рдо рдореВрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫред рдпрджреНрдпрдкрд┐, рдбреЗрдЯрд╛рд▓рд╛рдИ рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА рдбреЛрдореЗрдирдорд╛ рд╕реНрдерд╛рдирд╛рдиреНрддрд░рдг рдЧрд░реЗрдкрдЫрд┐, рдХреБрди рд╕рдордпрдорд╛ (рдХреБрди рдЧрд╣рд┐рд░рд╛рдЗрдорд╛ рдкрдвреНрдиреБрд╣реЛрд╕реН) рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА рдкрд░рд┐рд╡рд░реНрддрдирд╣рд░реВ рдмрд╛рд░реЗ рдЬрд╛рдирдХрд╛рд░реА рд╣рд░рд╛рдПрдХреЛ рдЫред рд╕рдордп (рдЧрд╣рд┐рд░рд╛рдЗ) рдЕрдХреНрд╖рдорд╛ рд╕рдВрдХреЗрдд рдкрд░рд┐рд╡рд░реНрддрдирд╣рд░реВ рд╕реНрдерд╛рдиреАрдпрдХрд░рдг рдЧрд░реНрди рд╕рдХреНрд╖рдо рд╣реБрдирдХреЛ рд▓рд╛рдЧрд┐, рд╡рд┐рдиреНрдбреЛ рдЧрд░рд┐рдПрдХреЛ рдлреВрд░рд┐рдпрд░ рд░реВрдкрд╛рдиреНрддрд░рдг рд░ рддрд░рдВрдЧ рд╡рд┐рдШрдЯрди рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫред рдпрд╕ рд▓реЗрдЦрд▓реЗ рддрд░рдВрдЧ рд╡рд┐рдШрдЯрди рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрдЫред рд╡реЗрднрд▓реЗрдЯ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдкреНрд░рд╡рд┐рдзрд┐ репреж рдХреЛ рджрд╢рдХрдорд╛ рднреВрдХрдореНрдкреАрдп рдЕрдиреНрд╡реЗрд╖рдгрдорд╛ рд╕рдХреНрд░рд┐рдп рд░реВрдкрдорд╛ рдкреНрд░рдпреЛрдЧ рд╣реБрди рдерд╛рд▓реНрдпреЛред рд╡рд┐рдиреНрдбреЛ рдЧрд░рд┐рдПрдХреЛ рдлреВрд░рд┐рдпрд░ рдЯреНрд░рд╛рдиреНрд╕рдлрд░реНрдордХреЛ рдлрд╛рдЗрджрд╛рд▓рд╛рдИ рд░рд╛рдореНрд░реЛ рд╕рдордп рд░рд┐рдЬреЛрд▓реНрдпреБрд╕рди рдорд╛рдирд┐рдиреНрдЫред

рдирд┐рдореНрди рдХреЛрдб рдЯреБрдХреНрд░рд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░, рддрдкрд╛рдИрдВрд▓реЗ рднреВрдХрдореНрдкреАрдп рдирд┐рд╢рд╛рдирд╣рд░реВ рдордзреНрдпреЗ рдПрдХрд▓рд╛рдИ рд╡реНрдпрдХреНрддрд┐рдЧрдд рдХрдореНрдкреЛрдиреЗрдиреНрдЯрд╣рд░реВрдорд╛ рд╡рд┐рдШрдЯрди рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ:

cwd=ContinuousWaveletTransform[seismicSection["traces"][[100]]]
Show[
ListLinePlot[Re[cwd[[1]]],PlotRange->All],
ListLinePlot[seismicSection["traces"][[100]],
PlotStyle->Black,PlotRange->All],ImageSize->{1500,500},AspectRatio->Full,
PlotLabel->Style["Wavelet decomposition",Black,32],
LabelStyle->Directive[Black,Italic],
PlotRange->All,
Frame->True]

рдХрдореНрдкреЛрдиреЗрдиреНрдЯрд╣рд░реВрдорд╛ рдЯреНрд░реЗрд╕рдХреЛ рд╡рд┐рдШрдЯрди
Geophysics рдорд╛ Wolfram Mathematica

рд╡рд┐рднрд┐рдиреНрди рддрд░рдВрдЧ рдЖрдЧрдорди рд╕рдордпрдорд╛ рдкреНрд░рддрд┐рдмрд┐рдореНрдм рдКрд░реНрдЬрд╛ рдХрд╕рд░реА рд╡рд┐рддрд░рдг рдЧрд░рд┐рдиреНрдЫ рднрдиреЗрд░ рдореВрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрди, рд╕реНрдХреЗрд▓реЛрдЧреНрд░рд╛рдо (рд╕реНрдкреЗрдХреНрдЯреНрд░реЛрдЧреНрд░рд╛рдордХреЛ рдЕрдиреБрд░реВрдк) рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫред рдПрдХ рдирд┐рдпрдордХреЛ рд░реВрдкрдорд╛, рд╡реНрдпрд╡рд╣рд╛рд░рдорд╛ рд╕рдмреИ рдШрдЯрдХрд╣рд░реВ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдЧрд░реНрди рдЖрд╡рд╢реНрдпрдХ рдЫреИрдиред рд╕рд╛рдорд╛рдиреНрдпрддрдпрд╛, рдХрдо, рдордзреНрдп рд░ рдЙрдЪреНрдЪ рдЖрд╡реГрддреНрддрд┐ рдШрдЯрдХрд╣рд░реВ рдЪрдпрди рдЧрд░рд┐рдиреНрдЫред

freq=(500/(#*contWD["Wavelet"]["FourierFactor"]))&/@(Thread[{Range[contWD["Octaves"]],1}]/.contWD["Scales"])//Round;
ticks=Transpose[{Range[Length[freq]],freq}];
WaveletScalogram[contWD,Frame->True,FrameTicks->{{ticks,Automatic},Automatic},FrameTicksStyle->Directive[Orange,12],
FrameLabel->{"Time","Frequency(Hz)"},LabelStyle->Directive[Black,Bold,14],
ColorFunction->"RustTones",ImageSize->Large]

рд╕реНрдХреНрдпрд╛рд▓реЛрдЧреНрд░рд╛рдоред рдХрд╛рд░реНрдп рдкрд░рд┐рдгрд╛рдо рд╡реЗрднрд▓реЗрдЯ рд╕реНрдХреНрдпрд╛рд▓реЛрдЧреНрд░рд╛рдо[]
Geophysics рдорд╛ Wolfram Mathematica

Wolfram Language рд▓реЗ рддрд░рдВрдЧ рдкрд░рд┐рд╡рд░реНрддрдирдХреЛ рд▓рд╛рдЧрд┐ рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрдЫ Continuous WaveletTransform[]ред рд░ рдЯреНрд░реЗрд╕рд╣рд░реВрдХреЛ рд╕рдореНрдкреВрд░реНрдг рд╕реЗрдЯрдорд╛ рдпрд╕ рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рдЕрдиреБрдкреНрд░рдпреЛрдЧ рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдЧрд░рд┐рдиреНрдЫ рддрд╛рд▓рд┐рдХрд╛[]ред рдпрд╣рд╛рдБ рдпреЛ Wolfram Mathematica рдХреЛ рдПрдХ рдмрд▓рд▓рд╛рдИ рдзреНрдпрд╛рди рджрд┐рди рд▓рд╛рдпрдХ рдЫ - рд╕рдорд╛рдирд╛рдиреНрддрд░ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреЗ рдХреНрд╖рдорддрд╛ред рд╕рдорд╛рдирд╛рдиреНрддрд░рддрд╛рд▓рд┐рдХрд╛[]ред рдорд╛рдерд┐рдХреЛ рдЙрджрд╛рд╣рд░рдгрдорд╛, рд╕рдорд╛рдирд╛рдиреНрддрд░рдХреЛ рд▓рд╛рдЧрд┐ рдХреБрдиреИ рдЖрд╡рд╢реНрдпрдХрддрд╛ рдЫреИрди - рдбрд╛рдЯрд╛рдХреЛ рднреЛрд▓реНрдпреБрдо рдареВрд▓реЛ рдЫреИрди, рддрд░ рд╕рдпреМрдВ рд╣рдЬрд╛рд░реМрдВ рдЯреНрд░реЗрд╕рд╣рд░реВ рднрдПрдХреЛ рдкреНрд░рдпреЛрдЧрд╛рддреНрдордХ рдбреЗрдЯрд╛ рд╕реЗрдЯрд╣рд░реВрд╕рдБрдЧ рдХрд╛рдо рдЧрд░реНрджрд╛, рдпреЛ рдПрдХ рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛред

tracesCWD=Table[Map[Hilbert[#,0]&,Re[ContinuousWaveletTransform[traces[[i]]][[1]]][[{13,15,18}]]],{i,1,Length@traces}]; 

рдкреНрд░рдХрд╛рд░реНрдп рд▓рд╛рдЧреВ рдЧрд░реЗрдкрдЫрд┐ Continuous WaveletTransform[] рдирдпрд╛рдБ рдбреЗрдЯрд╛ рд╕реЗрдЯрд╣рд░реВ рдЪрдпрди рдЧрд░рд┐рдПрдХрд╛ рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реАрд╣рд░реВрд╕рдБрдЧ рд╕рдореНрдмрдиреНрдзрд┐рдд рджреЗрдЦрд┐рдиреНрдЫрдиреНред рдорд╛рдерд┐рдХреЛ рдЙрджрд╛рд╣рд░рдгрдорд╛, рдпреА рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реАрд╣рд░реВ рд╣реБрдиреН: 38Hz, 33Hz, 27Hzред рдЖрд╡реГрддреНрддрд┐рд╣рд░реВрдХреЛ рдЫрдиреЛрдЯ рдкреНрд░рд╛рдпрдГ рдкрд░реАрдХреНрд╖рдгрдХреЛ рдЖрдзрд╛рд░рдорд╛ рдЧрд░рд┐рдиреНрдЫ - рддрд┐рдиреАрд╣рд░реВрд▓реЗ рд╡рд┐рднрд┐рдиреНрди рдЖрд╡реГрддреНрддрд┐ рд╕рдВрдпреЛрдЬрдирд╣рд░реВрдХреЛ рд▓рд╛рдЧрд┐ рдкреНрд░рднрд╛рд╡рдХрд╛рд░реА рдирдХреНрд╕рд╛рд╣рд░реВ рдкреНрд░рд╛рдкреНрдд рдЧрд░реНрдЫрдиреН рд░ рднреВрд╡реИрдЬреНрдЮрд╛рдирд┐рдХрдХреЛ рджреГрд╖реНрдЯрд┐рдХреЛрдгрдмрд╛рдЯ рд╕рдмреИрднрдиреНрджрд╛ рдЬрд╛рдирдХрд╛рд░реАрдкреВрд░реНрдг рдЪрдпрди рдЧрд░реНрдЫрдиреНред

рдпрджрд┐ рддрдкрд╛рдЗрдБ рд╕рд╣рдХрд░реНрдореАрд╣рд░реВрд╕рдБрдЧ рдирддрд┐рдЬрд╛рд╣рд░реВ рд╕рд╛рдЭрд╛ рдЧрд░реНрди рд╡рд╛ рдЧреНрд░рд╛рд╣рдХрд▓рд╛рдИ рдкреНрд░рджрд╛рди рдЧрд░реНрди рдЖрд╡рд╢реНрдпрдХ рдЫ рднрдиреЗ, рддрдкрд╛рдЗрдБ GeologyIO рдкреНрдпрд╛рдХреЗрдЬрдХреЛ SEGYExport[] рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫред

outputdata=seismic3DSEGY;
outputdata["traces",1;;-1]=tracesCWD[[All,3]];
outputdata["textheader"]="Wavelet Decomposition Result";
outputdata["binaryheader","NumberDataTraces"]=Length[tracesCWD[[All,3]]];
SEGYExport["D:result.segy",outputdata];

рдпреА рддреАрдирд╡рдЯрд╛ рдХреНрдпреВрдмрд╣рд░реВ (рдХрдо-рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА, рдорд┐рдб-рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА, рд░ рдЙрдЪреНрдЪ-рдлреНрд░рд┐рдХреНрд╡реЗрдиреНрд╕реА рдХрдореНрдкреЛрдиреЗрдиреНрдЯрд╣рд░реВ) рд╕рдБрдЧ, RGB рдмреНрд▓реЗрдиреНрдбрд┐рдЩ рд╕рд╛рдорд╛рдиреНрдпрддрдпрд╛ рдбреЗрдЯрд╛рд▓рд╛рдИ рд╕рдБрдЧреИ рдХрд▓реНрдкрдирд╛ рдЧрд░реНрди рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫред рд░рд╛рддреЛ, рд╣рд░рд┐рдпреЛ, рдиреАрд▓реЛ - рдкреНрд░рддреНрдпреЗрдХ рдШрдЯрдХ рдпрд╕рдХреЛ рдЖрдлреНрдиреИ рд░рдВрдЧ рддреЛрдХрд┐рдПрдХреЛ рдЫред Wolfram Mathematica рдорд╛ рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ рдХрд▓рд░ рдХрдореНрдмрд╛рдЗрди[].

рдкрд░рд┐рдгрд╛рдо рддрд╕реНрдмрд┐рд░рд╣рд░реВ рд╣реЛ рдЬрд╕рдмрд╛рдЯ рднреВрд╡реИрдЬреНрдЮрд╛рдирд┐рдХ рд╡реНрдпрд╛рдЦреНрдпрд╛ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫред рдЦрдгреНрдбрдорд╛ рд░реЗрдХрд░реНрдб рдЧрд░рд┐рдПрдХрд╛ рдореЗрдиреНрдбрд░рд╣рд░реВрд▓реЗ рдкреНрдпрд╛рд▓реЗрдУрдЪрдиреЗрд▓рд╣рд░реВ рдЪрд┐рддреНрд░рдг рдЧрд░реНрди рд╕рдореНрднрд╡ рдмрдирд╛рдЙрдБрджрдЫ, рдЬреБрди рдЬрд▓рд╛рд╢рдпрд╣рд░реВ рд╣реБрдиреЗ рд╕рдореНрднрд╛рд╡рдирд╛ рдмрдвреА рд╣реБрдиреНрдЫ рд░ рддреЗрд▓ рднрдгреНрдбрд╛рд░рд╣рд░реВ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫред рдпрд╕реНрддреЛ рдирджреА рдкреНрд░рдгрд╛рд▓реА рдХреЛ рдЖрдзреБрдирд┐рдХ analogues рдХреЛ рдЦреЛрдЬ рд░ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рд╣рд╛рдореАрд▓рд╛рдИ meanders рдХреЛ рд╕рдмреИ рднрдиреНрджрд╛ рдЖрд╢рд╛рдЬрдирдХ рднрд╛рдЧрд╣рд░реБ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫред рдЪреНрдпрд╛рдирд▓рд╣рд░реВ рдЖрдлреИрдВрдорд╛ рд░рд╛рдореНрд░рд░реА рдХреНрд░рдордмрджреНрдз рдмрд╛рд▓реБрд╡рд╛ рдвреБрдЩреНрдЧрд╛рдХреЛ рдмрд╛рдХреНрд▓реЛ рддрд╣рд╣рд░реВрджреНрд╡рд╛рд░рд╛ рд╡рд┐рд╢реЗрд╖рддрд╛ рд╣реБрдиреНрдЫрдиреН рд░ рддреЗрд▓рдХреЛ рд▓рд╛рдЧрд┐ рд░рд╛рдореНрд░реЛ рднрдгреНрдбрд╛рд░ рд╣реЛред "рд▓реЗрд╕" рд╡рд┐рд╕рдВрдЧрддрд┐рд╣рд░реВ рдмрд╛рд╣рд┐рд░рдХрд╛ рдХреНрд╖реЗрддреНрд░рд╣рд░реВ рдЖрдзреБрдирд┐рдХ рдлреНрд▓рдбрдкреНрд▓реЗрди рдирд┐рдХреНрд╖реЗрдкрд╣рд░реВ рдЬрд╕реНрддреИ рдЫрдиреНред рдлреНрд▓рдбрдкреНрд▓реЗрди рдирд┐рдХреНрд╖реЗрдкрд╣рд░реВ рдореБрдЦреНрдпрддрдпрд╛ рдорд╛рдЯреЛрдХреЛ рдЪрдЯреНрдЯрд╛рдирд╣рд░реВрд▓реЗ рдкреНрд░рддрд┐рдирд┐рдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ рд░ рдпреА рдХреНрд╖реЗрддреНрд░рд╣рд░реВрдорд╛ рдбреНрд░рд┐рд▓рд┐рдВрдЧ рдкреНрд░рднрд╛рд╡рдХрд╛рд░реА рд╣реБрдиреЗрдЫреИрдиред

рдбрд╛рдЯрд╛ рдХреНрдпреВрдмрдХреЛ RGB рдЯреБрдХреНрд░рд╛ред рдХреЗрдиреНрджреНрд░рдорд╛ (рдХреЗрдиреНрджреНрд░рдХреЛ рдЕрд▓рд┐рдХрддрд┐ рдмрд╛рдБрдпрд╛рдорд╛) рддрдкрд╛рдИрдВ рдШреБрдорд╛рдЙрд░реЛ рдирджреА рдЯреНрд░реЗрд╕ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫред
Geophysics рдорд╛ Wolfram Mathematica
рдбрд╛рдЯрд╛ рдХреНрдпреВрдмрдХреЛ RGB рдЯреБрдХреНрд░рд╛ред рдмрд╛рдпрд╛рдБ рдЫреЗрдЙрдорд╛ рддрдкрд╛рдИрдВ рдШреБрдорд╛рдЙрд░реЛ рдирджреА рдЯреНрд░реЗрд╕ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫред
Geophysics рдорд╛ Wolfram Mathematica

рдХреЗрд╣реА рдЕрд╡рд╕реНрдерд╛рдорд╛, рднреВрдХрдореНрдкреАрдп рдбреЗрдЯрд╛рдХреЛ рдЧреБрдгрд╕реНрддрд░рд▓реЗ рдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг рд░реВрдкрдорд╛ рд╕реНрдкрд╖реНрдЯ рдЫрд╡рд┐рд╣рд░реВрдХреЛ рд▓рд╛рдЧрд┐ рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫред рдпреЛ рдХреНрд╖реЗрддреНрд░реАрдп рдХрд╛рд░реНрдп рдкрджреНрдзрддрд┐рдорд╛ рдирд┐рд░реНрднрд░ рдЧрд░реНрджрдЫ, рдЖрд╡рд╛рдЬ рдШрдЯрд╛рдЙрдиреЗ рдПрд▓реНрдЧреЛрд░рд┐рдереНрдо рджреНрд╡рд╛рд░рд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдПрдХреЛ рдЙрдкрдХрд░рдгред рдпрд╕реНрддреЛ рдЕрд╡рд╕реНрдерд╛рдорд╛, рдирджреА рдкреНрд░рдгрд╛рд▓реАрдХрд╛ рдЯреБрдХреНрд░рд╛рд╣рд░реВ рдорд╛рддреНрд░ рджреЗрдЦрд┐рдБрджреИрди, рддрд░ рд╕рдореНрдкреВрд░реНрдг рд╡рд┐рд╕реНрддрд╛рд░рд┐рдд рдкреНрдпрд╛рд▓реЗрдУ-рдирджреАрд╣рд░реВ рдкрдирд┐ рджреЗрдЦрд┐рдиреНрдЫрдиреНред

рд╕рд┐рд╕реНрдорд┐рдХ рдбрд╛рдЯрд╛ рдХреНрдпреВрдм (рддреЗрд░реНрд╕реЛ рд╕реНрд▓рд╛рдЗрд╕) рдХреЛ рддреАрдирд╡рдЯрд╛ рдХрдореНрдкреЛрдиреЗрдиреНрдЯрд╣рд░реВрдХреЛ RGB рдорд┐рд╢реНрд░рдгред рдЧрд╣рд┐рд░рд╛рдИ рд▓рдЧрднрдЧ 2 рдХрд┐рдореАред
Geophysics рдорд╛ Wolfram Mathematica
рд╕реЗрд░рд╛рдЯреЛрдн рдирдЬрд┐рдХ рднреЛрд▓реНрдЧрд╛ рдирджреА рдХреЛ рдЙрдкрдЧреНрд░рд╣ рдЫрд╡рд┐
Geophysics рдорд╛ Wolfram Mathematica

рдирд┐рд╖реНрдХрд░реНрд╖рдорд╛

Wolfram Mathematica рд▓реЗ рднреВрдХрдореНрдкреАрдп рдбреЗрдЯрд╛рдХреЛ рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдЧрд░реНрди рд░ рдЦрдирд┐рдЬрд╣рд░реВрдХреЛ рдЦреЛрдЬреАрд╕рдБрдЧ рд╕рдореНрдмрдиреНрдзрд┐рдд рд▓рд╛рдЧреВ рд╕рдорд╕реНрдпрд╛рд╣рд░реВ рд╕рдорд╛рдзрд╛рди рдЧрд░реНрди рд╕рдХреНрдЫ, рд░ GeologyIO рдкреНрдпрд╛рдХреЗрдЬрд▓реЗ рдпреЛ рдкреНрд░рдХреНрд░рд┐рдпрд╛рд▓рд╛рдИ рдЕрдЭ рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рдмрдирд╛рдЙрдБрдЫред рднреВрдХрдореНрдкреАрдп рдбреЗрдЯрд╛рдХреЛ рд╕рдВрд░рдЪрдирд╛ рдпрд╕реНрддреЛ рдЫ рдХрд┐ рдЧрдгрдирд╛рдХреЛ рдЧрддрд┐ рдмрдврд╛рдЙрди рдирд┐рд░реНрдорд┐рдд рд╡рд┐рдзрд┐рд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ (рд╕рдорд╛рдирд╛рдиреНрддрд░рддрд╛рд▓рд┐рдХрд╛[], ParallelDo[],тАж) рдзреЗрд░реИ рдХреБрд╢рд▓ рдЫ рд░ рддрдкрд╛рдИрдВрд▓рд╛рдИ рдареВрд▓реЛ рдорд╛рддреНрд░рд╛рдорд╛ рдбрд╛рдЯрд╛ рдкреНрд░рд╢реЛрдзрди рдЧрд░реНрди рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫред рдзреЗрд░реИ рд╣рджрд╕рдореНрдо, рдпреЛ GeologyIO рдкреНрдпрд╛рдХреЗрдЬ рдХреЛ рдбрд╛рдЯрд╛ рднрдгреНрдбрд╛рд░рдг рд╕реБрд╡рд┐рдзрд╛рд╣рд░реВ рджреНрд╡рд╛рд░рд╛ рд╕реБрд╡рд┐рдзрд╛ рджрд┐рдЗрдПрдХреЛ рдЫред рд╡реИрд╕реЗ, рдкреНрдпрд╛рдХреЗрдЬ рд▓рд╛рдЧреВ рднреВрдХрдореНрдк рдЕрдиреНрд╡реЗрд╖рдг рдХреЛ рдХреНрд╖реЗрддреНрд░рдорд╛ рдорд╛рддреНрд░ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫред рд▓рдЧрднрдЧ рдЙрд╕реНрддреИ рдкреНрд░рдХрд╛рд░рдХрд╛ рдбрд╛рдЯрд╛рд╣рд░реВ рдЧреНрд░рд╛рдЙрдиреНрдб рдкреЗрдиреЗрдЯреНрд░реЗрдЯрд┐рдВрдЧ рд░рд╛рдбрд╛рд░ рд░ рд╕рд┐рд╕реНрдореЛрд▓рдЬреАрдорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫред рдпрджрд┐ рддрдкрд╛рдИрдВрд╕рдБрдЧ рдирддрд┐рдЬрд╛ рд╕реБрдзрд╛рд░ рдЧрд░реНрдиреЗ рдмрд╛рд░реЗ рд╕реБрдЭрд╛рд╡рд╣рд░реВ рдЫрдиреН рднрдиреЗ, рд╡реЛрд▓реНрдлреНрд░рд╛рдо рдореНрдпрд╛рдереЗрдореЗрдЯрд┐рдХрд╛ рдЖрд░реНрд╕реЗрдирд▓рдмрд╛рдЯ рдХреБрди рд╕рдВрдХреЗрдд рд╡рд┐рд╢реНрд▓реЗрд╖рдг рдПрд▓реНрдЧреЛрд░рд┐рджрдорд╣рд░реВ рддреНрдпрд╕реНрддрд╛ рдбрд╛рдЯрд╛рд╣рд░реВрдорд╛ рд▓рд╛рдЧреВ рд╣реБрдиреНрдЫрдиреН, рд╡рд╛ рддрдкрд╛рдИрдВрд╕рдБрдЧ рдХреБрдиреИ рдЖрд▓реЛрдЪрдирд╛рддреНрдордХ рдЯрд┐рдкреНрдкрдгреАрд╣рд░реВ рдЫрдиреН рднрдиреЗ, рдХреГрдкрдпрд╛ред рдПрдХ рдЯрд┐рдкреНрдкрдгреА рдЫреЛрдбреНрдиреБрд╣реЛрд╕реНред

рд╕реНрд░реЛрдд: www.habr.com

рдПрдХ рдЯрд┐рдкреНрдкрдгреА рдердкреНрди