|
20, 2 | zeros () |
|
end end get env | env_index (i) |
|
| num_res_env (res_index(i), env_index(i)) |
|
| if (env_index(i)==1) if(env_index(j) |
|
i, j, : | pair () |
|
end else | if (env_index(j)==1) %c-s core_surf(ai |
|
id | beta () |
|
surf_surf | pre_fill_dfire () |
|
| surf_surf (i, j,:) |
|
| surf_core (i, j,:) |
|
| core_surf (i, j,:) |
|
| core_core (i, j,:) |
|
| if (i!=j) surf_surf(j |
|
| surf_core (j, i,:) |
|
| core_surf (j, i,:) |
|
| core_core (j, i,:) |
|
| N (ai, r) |
|
| N (r) |
|
| P (r) |
|
| N (aa) |
|
id | i: (i Sum_r_surf_surf) |
|
| sr_surf_core (i,:)/ |
|
| sr_core_surf (i,:)/ |
|
| sr_core_core (i,:)/ |
|
cal i j if | exist ("ii", "var") % ii %else % ii |
|
| score (1:cutoff)=0 |
|
| score_w (1:cutoff)=0 |
|
| score_w2 (1:cutoff)=0 |
|
| score_w3 (1:cutoff)=0 |
|
end | score_w2 (25:30)=0 |
|
draw | subplot (4, 5, jj) |
|
| axis ([0 25 -1.5 1]) %set(h(2) |
|
| set (h(3), "linewidth", 2) %t |
|
| text (2, score(10), t) |
|
| fprintf (fp_pair, "PAIR: %s %s ", reslist(ii,:), reslist(jj,:)) |
|
| fprintf (fp_pair, "%.2f %.2f ", 0.25, 0.25+(range *2-1) *0.5) |
|
| fprintf (fp_pair, "%d ", length(y2)) |
|
end | fprintf (fp_pair, "\n") |
|
end end | fprintf (fp_pair, "# END\n") |
|
| fclose (fp_pair) |
|
|
| cutoff =2 |
|
| range =12 |
|
| reslist |
|
| CYS |
|
| ASP |
|
| GLU |
|
| PHE |
|
| GLY |
|
| HIS |
|
| ILE |
|
| LYS |
|
| LEU |
|
| MET |
|
| ASN |
|
| PRO |
|
| GLN |
|
| ARG |
|
| SER |
|
| THR |
|
| VAL |
|
| TRP |
|
| TYR |
|
mark each table column row | res_index = zeros(40,1) |
|
residue index | env_index = zeros(40,1) |
|
env | __pad0__ |
|
residue number for surf &core for | i |
|
| break |
|
end split x4 | surf_surf =zeros(20,20,30) |
|
| surf_core =zeros(20,20,30) |
|
| core_surf =zeros(20,20,30) |
|
| core_core =zeros(20,20,30) |
|
for | j |
|
end else | aj |
|
smooth data | L =5 |
|
| CONV1 = gausswin(2*L+1, 4) |
|
| smoothed = conv(squeeze(surf_core(i,j,:)), CONV1) |
|
| __pad1__ |
|
| __pad2__ |
|
end end end sum | aa_aa = (surf_surf+surf_core+core_surf+core_core) |
|
to | pair_counts_symm = aa_aa |
|
init | pair_sums_aan = squeeze(sum(pair_counts_symm)) |
|
| N |
|
| sr_surf_core = squeeze(sum(surf_core, 2)) |
|
| sr_core_surf = squeeze(sum(core_surf, 2)) |
|
| sr_core_core = squeeze(sum(core_core, 2)) |
|
| Sum_r_surf_surf = squeeze(sum(sr_surf_surf,2)) |
|
| Sum_r_surf_core = squeeze(sum(sr_surf_core,2)) |
|
| Sum_r_core_surf = squeeze(sum(sr_core_surf,2)) |
|
| Sum_r_core_core = squeeze(sum(sr_core_core,2)) |
|
| Nr_surf_surf = sum(sr_surf_surf) |
|
| Nr_core_surf = sum(sr_core_surf) |
|
| Nr_surf_core = sum(sr_surf_core) |
|
| Nr_core_core = sum(sr_core_core) |
|
for | ii |
|
| P_ii_jj = squeeze(pair_counts_symm(ii,jj,:)) ./ sum_ij |
|
| P_ii = pair_sums_aan(ii, :) / sum_r_aa(ii) |
|
| P_jj = pair_sums_aan(jj, :) / sum_r_aa(jj) |
|
be careful | ! wi = num_res_env(ii,1)/sum(num_res_env(ii,:)) |
|
| wj = num_res_env(jj,1)/sum(num_res_env(jj,:)) |
|
| P_ii_w = calc_Pi_sc(sr_surf_surf(ii,:), sr_surf_core(ii,:), sr_core_surf(ii,:), sr_core_core(ii,:), wi, wj) |
|
| P_jj_w = calc_Pi_sc(sr_surf_surf(jj,:), sr_surf_core(jj,:), sr_core_surf(jj,:), sr_core_core(jj,:), wj, wi) |
|
| P = P_ii_jj' .* P_r ./ (P_ii .* P_jj) |
|
| Pr_w = calc_Pi_sc(Nr_surf_surf, Nr_surf_core, Nr_core_surf, Nr_core_core, num_res_env(ii,1)/sum(num_res_env(ii,:)), num_res_env(jj,1)/sum(num_res_env(jj,:))) |
|
| P_w = P_ii_jj' .* P_r ./ (P_ii_w .* P_jj_w) |
|
| P_w2 = P_ii_jj' .* Pr_w ./ (P_ii_w .* P_jj_w) |
|
| P_w3 = P_ii_jj' ./ (P_ii_w .* P_jj_w) .* Pr_w .* Pr_w ./ P_r |
|
score | score = -log(P) |
|
| score_w = -log(P_w) |
|
| score_w2 = -log(P_w2) |
|
| score_w3 = -log(P_w3) |
|
shift the tail for | kk |
|
| h =plot(1:30, score, 'r', 1:30, score_w, 'b', 1:30, score_w2, 'g', 1:30, score_w3) |
|
| linewidth |
|
output | y2 = score_w2(1:range*2) |
|
for | k |
|