Additional algorithm 90.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. # -->
<!-- #                                                                                                                            # -->
<!-- ############################################################################################################################## -->

<canvas id="bio" height="300" width="1100"></canvas>

<script>

// CHAOS

var s = 100;

Chart(system(0.62342375475, s), '#ff0000','n');
Chart(system(0.62342375474, s), '#000000', 'n');

function system(x0, s){
    var x1 = 0;
    var r = 0;
    
    for(var i=1; i<s; i++){

        x1 = 4 * x0 * (1 - x0);
        x0 = x1 + noise();
        
        r+=x1 + ",";
    }
    return r;
}

// insert noise

function noise(){
    var interact = [0.00000000000001,-0.0000000000001];
    var n = interact[Math.floor(Math.random()*interact.length)];
    return n;
}


// The same chart as before

function Chart(q,c,e) {
    
    var s = q.split(",");
    var mx = Math.max.apply(null, s);

    var canvas = document.getElementById('bio');

    var w = canvas.width;
    var h = canvas.height;
    
    if (canvas.getContext) {

        var ctx = canvas.getContext('2d');

        if(e=='y'){ctx.clearRect(0, 0, w, h);}
        
        ctx.moveTo(0, 0);
        ctx.beginPath();
        
        for (var i=0; i<=s.length-1; i++)
        {
            var y = h - ((h / mx) * s[i]);
            var x = (w / s.length) * i;
            
            ctx.lineTo(x, y);
        }
        ctx.lineWidth = 2;
        ctx.strokeStyle = c;
        ctx.stroke();
    }
}

</script>