|
| 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 |
| |