|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
% for the given period T, get the index for the constants
period = [0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.075, 0.09, 0.1, 0.12, 0.15, 0.17, 0.2, 0.24, 0.3, 0.36, 0.4, 0.46, 0.5, 0.6, 0.75, 0.85, 1, 1.5, 2, 3, 4, 5];
if (length(find(period == T)) == 0)
index_low = sum(period<T);
T_low = period(index_low);
T_hi = period(index_low+1);
[sa_low, sigma_low] = AS_1997_horiz(M, r_rup, T_low, is_soil, fault_type, HW, arb);
[sa_hi, sigma_hi] = AS_1997_horiz(M, r_rup, T_hi, is_soil, fault_type, HW, arb);
x = [T_low T_hi];
Y_sa = [log(sa_low) log(sa_hi)];
Y_sigma = [sigma_low sigma_hi];
sa = exp(interp1(x,Y_sa,T));
sigma = interp1(x,Y_sigma,T);
else
index = find(period == T);
|
|