SVG = (tag) -> document.createElementNS('http://www.w3.org/2000/svg', tag) effaceDessin = () -> dessin = $("#leSVG") dessin.empty() dessineSegment = (x1=0,y1=0,x2=1,y2=1,couleur='black') -> dessin = $("#leSVG") $(SVG('line')) .attr('x1',x1) .attr('y1',y1) .attr('x2',x2) .attr('y2',y2) .attr('stroke',couleur) .attr('stroke-width',1) .appendTo(dessin) dessineRectangle = (x=0,y=0,largeur=5,hauteur=40,couleur='blue') -> dessin = $("#leSVG") $(SVG('rect')) .attr('x',x) .attr('y',y) .attr('width',largeur) .attr('height',hauteur) .attr('fill',couleur) .attr('fill-opacity',0.4) .attr('stroke',couleur) .attr('stroke-width',1) .appendTo(dessin) dessineCercle = (cx=0,cy=0,r=5,couleur='red') -> dessin = $("#leSVG") $(SVG('circle')) .attr('cx',cx) .attr('cy',cy) .attr('r',r) .attr('fill',couleur) .attr('fill-opacity',0.4) .attr('stroke',couleur) .attr('stroke-width',1) .appendTo(dessin) dessinePolygone = (liste=[[0,0], [300,100],[100,300]], couleur='green', rempli=none) -> dessin = $("#leSVG") chemin = "M"+liste[0] chemin += " L"+liste[k] for k in [1...liste.length] chemin += " L"+liste[0] $(SVG('path')) .attr('d',chemin) .attr('stroke',couleur) .attr('stroke-width',1) .attr('fill',rempli) .attr('fill-opacity',0.4) .appendTo(dessin) dessineTexte = (texte,x=20,y=20,couleur='black') -> dessin = $("#leSVG") $(SVG('text')) .attr('x',x) .attr('y',y) .attr('fill',couleur) .text(texte) .appendTo(dessin) diagrammeBatons = (dico, ech=400) -> nombreBatons = (x for x of dico).length effaceDessin() dessineSegment 20, 440, 620, 440, 'black' abscisse = 40-600/nombreBatons for x of dico abscisse += 600/nombreBatons hauteur = 400/ech*dico[x] dessineRectangle abscisse, 440-hauteur, 5, hauteur, 'blue' dessineTexte x, abscisse, 460, 'black' $("#sortieSVG").text $("#graphique").html() diagrammeBatonsTrie = (dico, ech=400) -> nombreBatons = (x for x of dico).length dicotrie=(parseFloat x for x of dico).sort (x,y)->(y pas = (b-a)/N effaceDessin() dessineSegment 20, 440, 620, 440, 'black' abscisse = 20 for x in [a...b] by pas x = (Math.round 1000*x)/1000 abscisse += 500/N _s = 0 _s++ for i in [0..tableau.length] when x <= tableau[i] < x+pas hauteur = 400/ech*_s dessineRectangle abscisse, 440-hauteur, 500/N, hauteur, 'blue' dessineTexte x.toString().replace(".",","), abscisse, 460, 'black' $("#sortieSVG").text $("#graphique").html() arrOdg = (x,e) -> p10 = Math.pow 10, e arrondi(x*p10)/p10 arrInfOdg = (x,e) -> p10 = Math.pow 10, e troncature(x*p10)/p10 arrSupOdg = (x,e) -> p10 = Math.pow 10, e arrondiSup(x*p10)/p10 dessineAxeX = (xMin=0, xMax=1, couleur='black') -> dessineSegment 40, 440, 620, 440, couleur dessineSegment 620, 440, 610, 435, couleur dessineSegment 620, 440, 610, 445, couleur odg = 1 - arrondi ln(xMax-xMin)/Math.LN10 abscisse = 40 nombreSegments = arrSupOdg(xMax,odg)-arrInfOdg(xMin,odg) xGrad=arrInfOdg xMin, odg while xGrad <= arrSupOdg xMax, odg if arrOdg(xGrad,odg+1) is arrOdg(xGrad,odg) dessineTexte arrOdg(xGrad,odg).toString().replace(".",","), abscisse, 470, couleur dessineSegment abscisse, 440, abscisse, 450, couleur else if arrOdg(xGrad,odg+1).toString()[-1..] is "5" dessineSegment abscisse, 440, abscisse, 447, couleur else dessineSegment abscisse, 440, abscisse, 444, couleur xGrad += puissance 10, -odg-1 abscisse += 500/nombreSegments*(puissance 10, -odg-1) dessineAxeY = (yMin=0, yMax=1, couleur='black') -> dessineSegment 40, 440, 40, 20, couleur dessineSegment 40, 20, 35, 30, couleur dessineSegment 40, 20, 45, 30, couleur odg = 1 - arrondi ln(yMax-yMin)/Math.LN10 ordonnee = 440 nombreSegments = arrSupOdg(yMax,odg)-arrInfOdg(yMin,odg) yGrad=arrInfOdg yMin, odg while yGrad <= arrSupOdg yMax, odg if arrOdg(yGrad,odg+1) is arrOdg(yGrad,odg) dessineTexte arrOdg(yGrad,odg).toString().replace(".",","), 10, ordonnee, couleur dessineSegment 40, ordonnee, 30, ordonnee, couleur else if arrOdg(yGrad,odg+1).toString()[-1..] is "5" dessineSegment 40, ordonnee, 33, ordonnee, couleur else dessineSegment 40, ordonnee, 36, ordonnee, couleur yGrad += puissance 10, -odg-1 ordonnee -= 400/nombreSegments*(puissance 10, -odg-1) dessineAxes = (xMin=0, xMax=1, yMin=0, yMax=1, couleur='black') -> dessineAxeX xMin, xMax, couleur dessineAxeY yMin, yMax, couleur dessineFonction = (fonction,xMin=0,xMax=1,yMin=0, yMax=1, couleur='red') -> effaceDessin() dessineAxes xMin, xMax, yMin, yMax, 'black' odgX = 1 - arrondi ln(xMax-xMin)/Math.LN10 odgY = 2 - arrondi ln(yMax-yMin)/Math.LN10 xGrad = arrInfOdg xMin, odgX yGrad = arrInfOdg yMin, odgY echX = 50/(arrSupOdg(xMax,odgX)-arrInfOdg(xMin,odgX)) echY = 400/(arrSupOdg(yMax,odgY)-arrInfOdg(yMin,odgY)) [abscisse,ordonnee] = [40,440] while xGrad <= arrSupOdg xMax, odgX dessineSegment abscisse, 440+echY*yGrad-echY*fonction(xGrad), abscisse+echX, 440+echY*yGrad-echY*fonction(xGrad+puissance(10,odgX-1)), couleur xGrad += puissance 10, odgX-1 abscisse += echX $("#sortieSVG").text $("#graphique").html() dessineSuite = (suite=[1..20], N=20, yMin=-1, yMax=1, rayon=5, couleur='red') -> effaceDessin() dessineAxes 0, N, yMin, yMax, 'black' odgX = 1 - arrondi ln(N)/Math.LN10 odgY = 2 - arrondi ln(yMax-yMin)/Math.LN10 xGrad = 0 yGrad = arrInfOdg yMin, odgY echX = 500/arrSupOdg(N,odgX) echY = 400/(arrSupOdg(yMax,odgY)-arrInfOdg(yMin,odgY)) [abscisse,ordonnee] = [40,440] while xGrad <= arrSupOdg N, odgX dessineCercle abscisse, 440+echY*yGrad-echY*suite[xGrad], rayon, couleur xGrad++ abscisse += echX $("#sortieSVG").text $("#graphique").html()