Additional algorithm 75.html

<!-- ############################################################################################################################## -->
<!-- #  John Wiley & Sons, Inc.                                                                                                   # -->
<!-- #                                                                                                                            # -->
<!-- #  Book:   Algorithms in Bioinformatics: Theory and Implementation                                                           # -->
<!-- #  Author: Dr. Paul A. Gagniuc                                                                                               # -->
<!-- #                                                                                                                            # -->
<!-- #  Institution:                                                                                                              # -->
<!-- #    University Politehnica of Bucharest                                                                                     # -->
<!-- #    Faculty of Engineering in Foreign Languages                                                                             # -->
<!-- #    Department of Engineering in Foreign Languages                                                                          # -->
<!-- #                                                                                                                            # -->
<!-- #  Area:   European Union                                                                                                    # -->
<!-- #  Date:   04/01/2021                                                                                                        # -->
<!-- #                                                                                                                            # -->
<!-- #  Cite this work as:                                                                                                        # -->
<!-- #    Paul A. Gagniuc. Algorithms in Bioinformatics: Theory and Implementation. John Wiley & Sons, 2021, ISBN: 9781119697961. # -->
<!-- #                                                                                                                            # -->
<!-- ############################################################################################################################## -->

<script>

// MAIN SEQUENCE
var z = 'GCTACGGCCGCGCATTCGATCGCGAT';

var c = '|(L)\tA\tC\tG\tT' +
        '|A\t-56.15\t1\t0\t-0.42' +
        '|C\t-0.38\t0\t0.68\t-1.93' +
        '|G\t56.15\t0.53\t-0.77\t-0.38' +
        '|T\t-0.18\t0.37\t1.87\t-1.35';

var n = [];
var m = [];
var p = [];

m = c.split('|');

// LOAD LLM
for(var i=1; i<m.length; i++) {
    p[i-1]=[];
    n = m[i].split('\t');
    for(var j=0; j<n.length; j++){
        p[i-1][j]=n[j]
    }
}

// SCANNER
var signal = '';
var wl = 12;
var w = '';

var u = z.length - wl + 1;

for(var r=0; r<u; r++) {
    w = z.substr(r, wl);
    signal += SW(w).toFixed(2) + ',';
}

document.write('Signal:<br>'+signal);

function SW(s){

    var l = [];
    var f=0;

    l[0]="";
    l[1]="";

    for(var u=0; u<s.length; u++){

        l[0] = s.substr(u, 1);
        l[1] = s.substr(u + 1, 1);

        for(var i=0; i<p.length; i++){
            for(var j=0; j<p[i].length; j++){
                if(p[i][0]==l[0] && p[0][j]==l[1]){
                    f+=Number(p[i][j]);
                }
            }
        }
    }

    return f;
}

</script>