base3.asv

我自己编的计算地质埋藏史用的一维回拨程序。

function H=base3(x)
h1=0;
fai0=0.69;
c=0.00039;
y1=3000;
y2=5000;
H=-x+h1+y2-y1-fai0/c*((exp(-c*y1))-exp(-c*y2)-exp(-c*h1)+exp(-c*x)); % 目标函数