|
| постоянный участник
|
Зарегистрирован: 29.10.08
Рейтинг:
1
|
|
Отправлено: 07.11.08 12:08. Заголовок: Модели предлогаемые Красильниковым для теригенного разреза
parameters <Параметры обработки> 1 0.1 //сопротивление пластовой воды 2 300 //dT глин 3 0.35 //W глин 4 600 //dT жидкости end model <Глинистый песчаник> equations 1/50 : АК = par[4]*Кп + par[2]*Кгл + 182*(1-Кп-Кгл) 1/0.05 : W = Кп*Кв + Кп*(1-Кв) + Кгл*par[3]+(1-Кп-Кгл)*0.03 1/0.2 : Апс = 0.7 - Кгл /(Кгл + Кп) 1/0.2 : lg(УЭС) = lg(par[1])-2*lg(Кп) - 2*lg(Кв) in АК,W,УЭС,Апс out Кп : [0.001,0.5] Кгл : [0.001,1] Кв : [0.001,1] end program <Интерпретация> parameters <Параметры обработки> //определение подсчетных параметров if (ЛИТ = 1) then Optimization('Глинистый песчаник', 200, 0.0001) SetDescription(Кп, 'POR') SetDescription(Кгл, 'VCL') SetDescription(Кв, 'SW') //определение теоретических значений геофизических характеристик АКт = par[4]*Кп + par[2]*Кгл + 182*(1-Кп-Кгл) Wт = Кп*Кв + Кп*(1-Кв) + Кгл*par[3] + (1-Кп-Кгл)*0.03 УЭСт = parameter[1]*Кп^(-2)*Кв^( - 2) Апст = 0.7 - Кгл /(Кгл + Кп) SetDescription(АКт, 'DTP') SetDescription(Wт, 'NGP') SetDescription(УЭСт, 'RT') //определение сомпонентов объемной модели Кск = 1 - Кгл - Кп if Кск < 0 then Кск = 0 Кв_об = Кп * Кв if Кв_об < 0 then Кв_об = 0 Кн_об = Кп * (1 - Кв) SetDescription(Кск, 'COMP') SetDescription(Кв_об, 'VSW') SetDescription(Кн_об, 'VOIL') Кн = 1-Кв endif if (лит <> 1) or (Number(Rп_ик) = 0) then Кгл = '--' Кв = '--' Кп = '--' Кск = '--' Кв_об = '--' Кн_об = '--' Кн = '--' endif end
|