Listato in Java e filmato senza audio

E' un video che mostra alcune immagini simili a quelle che si possono ottenere con il listato che vedete qui sotto. Inizialmente questa pagina ospitava un applet con la quale si poteva interagire, ma purtroppo per questioni di sicurezza non è più possibile utilizzare questi piccoli programmi.
Naturalmente se avete installato Java sul vostro computer potete copiare il listato e farlo girare come applet o trasformarlo in una classe, oppure potete utilizzarne l'algoritmo e realizzare un programma nel linguaggio che preferite

Listato dell'applet.

import java.awt.Stroke;

import javax.swing.*;

import java.awt.*;

import java.awt.event.*;

import javax.swing.event.*;

import java.awt.image.*;

import java.awt.geom.*;

import java.awt.Point;

import static java.lang.Math.*;

/**

* Class  RArmonografo1b

* @author (Sergio Savoldelli.-  wwww.savoldelli.net)

* @version (number 1. - 01/2017 )

* Il programma offre una scelta tra 70 opzioni che permettono di realizzare migliaia di immagini.

* Personalmente consiglio un applet formato da 620 X 490 pixels

*   L'utilizzo di questo listato è libero, ma la pubblicazione della fonte sarebbe gradita.

public class RArmonografo1b extends JApplet

implements MouseListener, MouseMotionListener  {

public  int  mov1,mov2,mov3,mov4,n4=91,n1=43, n2=81,n3= 61, n5=4, nux1,nuy1,nux2,nuy2,b,cox,w,h,colz, pieno,bb,cc,dd,ee,b1,c1,d1,e1,qq,dist;

public double a,aa,hh,xe2,ye2,i,pi2= PI*2, a2,z,zb,yz,yzb,

sdr,sdi,zr,zi,nx,ny,nz,lato,latoa,latob,pr2,pr1,x2,y2,

k1,k2,k3,k4,k5,k6,k7,k1b,k2b,k3b,k4b,k5b,k6b,k7b, x1,x3,x4,x5,x6,x7,x8,y1,y3,y4,y5,y6,y7,y8,xini,yini;

public int vertx[][],  verty[][];

Scrollbar scrolls1, scrolls2, scrolls3, scrolls4, scrolls5;

private boolean movingCircleOut = false;

Panel controlPanel;

Font font;

String numColore;

Color colore,colore1,colore2,colore3;

String sliderTextR = "a = (1 - 70): ";

String sliderTextr = "b = (2 - 360): ";

String sliderTextn = "c = (1 - 360 ) ";

String sliderTextO = "d =(1 - 360): ";

String sliderTextcin = "e=  (1 - 360 ) ";

String sliderTextC = " Solo Pixels ?  ";

Label sliderLabel1, sliderLabel2, sliderLabel3,  sliderLabel4, sliderLabel5, sliderLabelC,  titleLabel;

Checkbox insideCheckbox, outsideCheckbox;

public void init() {

controlPanel = new Panel();

controlPanel.setBackground(Color.black);

controlPanel.setLayout(new GridLayout(19,1));

add("East", controlPanel);

addMouseListener(this);

addMouseMotionListener(this);

titleLabel = new Label(" Armonografo  ", 1);

font = new Font("Helvetica", Font.BOLD, 17);

titleLabel.setFont(font);

titleLabel.setBackground(Color.black);

titleLabel.setForeground(Color.red);

controlPanel.add(titleLabel);

controlPanel.add(new Label(" "));

sliderLabel1 = new Label(sliderTextR + Integer.toString (n1));

font = new Font("Helvetica", Font.PLAIN, 12);

sliderLabel1.setFont(font);

sliderLabel1.setBackground(Color.black);

sliderLabel1.setForeground(Color.white);

controlPanel.add(sliderLabel1);

scrolls1 = new Scrollbar(Scrollbar.HORIZONTAL, n1, 1, 1, 71);

scrolls1.setBackground(Color.blue);

controlPanel.add(scrolls1);

sliderLabel2 = new Label(sliderTextr + Integer.toString(n2));

font = new Font("Helvetica", Font.PLAIN, 12);

sliderLabel2.setFont(font);

sliderLabel2.setBackground(Color.black);

sliderLabel2.setForeground(Color.white);

controlPanel.add(sliderLabel2);

scrolls2 = new Scrollbar(Scrollbar.HORIZONTAL, n2, 1,1, 361);

scrolls2.setBackground(Color.blue);

controlPanel.add(scrolls2);

sliderLabel3 = new Label(sliderTextn + Integer.toString(n3));

font = new Font("Helvetica", Font.PLAIN, 12);

sliderLabel3.setFont(font);

sliderLabel3.setBackground(Color.black);

sliderLabel3.setForeground(Color.white);

controlPanel.add(sliderLabel3);

scrolls3 = new Scrollbar(Scrollbar.HORIZONTAL, n3, 1,1, 361);

scrolls3.setBackground(Color.blue);

controlPanel.add(scrolls3);

sliderLabel4 = new Label(sliderTextO + Integer.toString(n4));

font = new Font("Helvetica", Font.PLAIN, 12);

sliderLabel4.setFont(font);

sliderLabel4.setBackground(Color.black);

sliderLabel4.setForeground(Color.white);

controlPanel.add(sliderLabel4);

scrolls4 = new Scrollbar(Scrollbar.HORIZONTAL,n4, 1, 1, 361);

scrolls4.setBackground(Color.blue);

controlPanel.add(scrolls4);

sliderLabel5 = new Label(sliderTextcin  + Integer.toString(n5));

font = new Font("Helvetica", Font.PLAIN, 12);

sliderLabel5.setFont(font);

sliderLabel5.setBackground(Color.black);

sliderLabel5.setForeground(Color.white);

controlPanel.add(sliderLabel5);

scrolls5 = new Scrollbar(Scrollbar.HORIZONTAL,n5, 1, 1, 361);

scrolls5.setBackground(Color.blue);

controlPanel.add(scrolls5);

controlPanel.add(new Label("  "));

sliderLabelC = new Label(sliderTextC);

font = new Font("Helvetica", Font.BOLD, 18);

sliderLabelC.setFont(font);

sliderLabelC.setBackground(Color.black);

sliderLabelC.setForeground(Color.white);

controlPanel.add(sliderLabelC);

CheckboxGroup CircleInOutGroup = new CheckboxGroup ();

insideCheckbox = new Checkbox(" no linee",  CircleInOutGroup, !movingCircleOut);

outsideCheckbox = new Checkbox("si", CircleInOutGroup, movingCircleOut);

insideCheckbox.setForeground(Color.green);

outsideCheckbox.setForeground(Color.red);

font = new Font("Helvetica", Font.BOLD, 12);

insideCheckbox.setFont(font);

outsideCheckbox.setFont(font);

controlPanel.add(insideCheckbox);

controlPanel.add(outsideCheckbox);

vertx = new int[3700][760];  verty =new int [3700][760];

}

public boolean handleEvent(Event ev)

{

if (ev.target instanceof Scrollbar) {

int value = ((Scrollbar)ev.target).getValue();

if (ev.target == scrolls2) {

sliderLabel2.setText(sliderTextr + Integer.toString(value));

n2 = value;

} else if (ev.target == scrolls3) {

sliderLabel3.setText(sliderTextn + Integer.toString(value));

n3 = value;

} else if (ev.target == scrolls1) {

sliderLabel1.setText(sliderTextR + Integer.toString(value));

n1 = value;

} else if (ev.target == scrolls4) {

sliderLabel4.setText(sliderTextO +  Integer.toString(value));

n4 = value;

} else if (ev.target == scrolls5) {

sliderLabel5.setText(sliderTextcin + Integer.toString(value));

n5 = value;

}

repaint();

}

if (   ev.target == insideCheckbox || ev.target == outsideCheckbox ) {

repaint();

}

return true;

}

public void paint(Graphics g) {

w = getSize().width -130;  h = getSize().height;

Graphics2D g2 = (Graphics2D)g;

BufferedImage bufimage;

Graphics2D bufimagegraf,bufimagegrafb,bufimagegraff ;

if (outsideCheckbox.getState()){

dist=100;

colz= 10000;

}

if (insideCheckbox.getState()){

colz=10;

dist=1;

}

bufimage = new BufferedImage(w, h, BufferedImage.TYPE_4BYTE_ABGR);

bufimagegraf= bufimage.createGraphics();

bufimagegraf.setRenderingHint(RenderingHints.KEY_ANTIALIASING, RenderingHints.VALUE_ANTIALIAS_ON);

bufimagegraf.setStroke(new BasicStroke(1.4f));

bufimagegraf.setColor(new Color(0,255,0));

bufimagegraf.setFont( new Font("Helvetica", Font.PLAIN, 15));

bufimagegrafb= bufimage.createGraphics();

bufimagegrafb.setRenderingHint(RenderingHints.KEY_ANTIALIASING, RenderingHints.VALUE_ANTIALIAS_ON);

bufimagegrafb.setStroke(new BasicStroke(1.2f));

bufimagegrafb.setFont( new Font("Helvetica", Font.PLAIN, 18));

bufimagegrafb.setColor(new Color(255,255,0));

bufimagegraf.clearRect(0,0,w, h);

bufimagegraff= bufimage.createGraphics();

bufimagegraff.setRenderingHint(RenderingHints.KEY_ANTIALIASING, RenderingHints.VALUE_ANTIALIAS_ON);

bufimagegraff.setStroke(new BasicStroke(1.4f));

bufimagegraff.setFont( new Font("Helvetica", Font.BOLD, 15));

bufimagegraff.setColor(new Color(255,0,0));

switch(n1){

//     laterale  3D e stereo usata per sito

case 1:

b1=1;

z=0.01;

yz= 0.01;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI*2)){

e1=0;

for(k4= 0; k4<= PI*2; k4=k4+(PI/1620)){

nz=n4;

xe2= (cos(n3*k4+zb+0.125))* atan2(PI*1.5,k4b)*(nz);

ye2 = (sin(n2*k4+yzb+0.125))* atan2(PI*1.5,k4b)*(nz);

x3= (cos(n3*k4+zb))* atan2(PI*1.5,k4b)*(nz);

y3 = (sin(n2*k4+yzb))* atan2(PI*1.5,k4b)*(nz);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

nux2= (int)(w/2+5+x3)+colz;

nuy2= (int) (h/2+5+y3)+colz;

if (colz > 1000)  bufimagegraf.setColor(new Color(255,255,0));

bufimagegraf.drawLine( nux1, nuy1  ,  nux1,nuy1);

bufimagegraff.drawLine(nux2, nuy2  ,  nux2,  nuy2);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b  Laterale = 2 pendoli - 3D e stereo   ",  10,h-32);

break;

case 2:

z=0.01;

yz= 0.01;

for(k4b= 0 ;k4b <=PI;k4b=k4b+PI/(12)){

e1= 0;

for(k4= 0;k4 <=PI*2 ;k4 = k4+pi2/(2600)){

// rotatoria 3D e stereo usata per foto sito

x1= (n4*sin(k4*n3))*tanh(k4b/n5);

y1 = (n4*cos(k4*n3))*tanh(k4b/n5);

x2= (n4*sin(k4*n3))*tanh(k4b/n5);

y2 = (n4*cos(k4*n3))*tanh(k4b/n5);

x3=  (n4)*(cos(n2*k4+zb)*x1);

y3 = (n4)* (sin(n2*k4+yzb)* y1);

x4=  (n4)*(cos(n2*k4+0.15+zb)*x2);

y4 = (n4)* (sin(n2*k4+0.15+yzb)* y2);

nux1= (int)(w/2+x3);

nuy1= (int) (h/2+y3);

nux2= (int)(w/2+5+x4)+colz;

nuy2= (int) (h/2+5+y4)+colz;

if (colz > 1000)  bufimagegraf.setColor(new Color(255,255,0));

bufimagegraf.drawLine( nux1, nuy1  ,  nux1,nuy1);

bufimagegraff.drawLine(nux2, nuy2  ,  nux2,  nuy2);

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b,  Rotatoria = 3pendoli - 3D  e stereo ",  10,h-32);

break;

case 3:

z=0.01;

yz= 0.01;

for(k4b= 0.01; k4b<= PI*2+0.01; k4b=k4b+(PI*4)){

for(k4= 0.01; k4<= PI*2+0.01; k4=k4+(PI/1600)){

//nz=n4*0.01;

x3= n4*(cos(n2*k4+zb+0.125)*(cos(k4b+0.0125)));

y3 = n4*(sin(n3*k4+yzb)*(cos(k4b)));

xe2= n4*(cos(n2*k4+zb)*(cos(k4b)));

ye2 = n4*(sin(n3*k4+yzb)*(cos(k4b)));

nux1= (int)(w/2+x3);

nuy1= (int) (h/2+y3);

nux2= (int)(w/2+5+xe2)+colz;

nuy2= (int) (h/2+5+ye2)+colz;

qq= (int)(abs( (k4*10)));

if (colz > 1000)  bufimagegraf.setColor(new Color(255,255,0));

bufimagegraf.drawLine(nux1, nuy1  ,  nux1,  nuy1);

bufimagegraff.drawLine(nux2, nuy2  ,  nux2,  nuy2);

x2=nux1;y2 = nuy1;

x3=nux2;y3 = nuy2;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b,   curve di Lissajous  - 3D  e stereo ",  10,h-32);

break;

case 4:

z= z+0.0002;

yz= yz+0.0002;

b1=1;

for(k4b= 0+abs(zb); k4b<= pi2+abs(zb); k4b=k4b+(PI/12)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/360)){

x3= (n4*0.1*sin(k4*n3))*n5*sin(k4b)* atan2(1.4142,k4b);

y3 =(n4*0.1*cos(k4*n3))*n5*sin(k4b)* atan2(1.4142,k4b);

xe2=   (n4)*( cos(k4*n2)+x3)+w/2;

ye2 = (n4)*(sin(k4*n2) +y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*140)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4)%255,(int)(40*k4)%255));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(40*k4)%255,(int)(40*k4)%255,(int)(90)));

break;

case 4:

colore1= (new Color((int)(100+15*k4b)%255,(int)(30*k4)%255,(int)(27*k4)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4)%255,(int)(30*k4+40)%255,(int)(27*k4b+50)%255));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40)%255,(int)(27*k4+50)%255));

break;

case 7:

colore1 =   (new Color((int)(40*k4)%255,(int)(80*k4b)%255,(int)(90)));

break;

default:

colore1 =   (new Color((int)(30*k4)%255,(int)(40*k4)%255,(int)(60)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 5:

b1=0;

z= z+0.0001;

yz= yz+0.0001;

for(k4b= 0+abs(zb) ;k4b <=pi2+abs(zb);k4b=k4b+pi2/(8)){

e1= 0;

for(k4= 0;k4 <=pi2;k4 = k4+pi2/(720)){

x3= (0.01*n4*sin(k4*n3))*n4*cos(k4b)* atan2(1.4142,k4b);

y3 = (0.01*n4*cos(k4*n3))*n4*cos(k4b)* atan2(1.4142,k4b);

xe2=  (n4)*cos(n2*k4)+x3;

ye2 = (n4)* sin(n2*k4)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4)%255,(int)(40*k4)%255));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(40*k4)%255,(int)(40*k4)%255,(int)(90)));

break;

case 4:

colore1= (new Color((int)(100+15*k4b)%255,(int)(30*k4)%255,(int)(27*k4)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4)%255,(int)(30*k4+40)%255,(int)(27*k4b+50)%255));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40)%255,(int)(27*k4+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4)%255,(int)(80*k4b)%255,(int)(90)));

break;

default:

colore1 =   (new Color((int)(30*k4)%255,(int)(40*k4)%255,(int)(60)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 6:

b1=0;

z= z+0.00001;

yz= yz+0.00001;

for(k4b=0+abs(zb) ;k4b <=pi2+abs(zb);k4b=k4b+pi2/(8)){

e1= 0;

for(k4= 0;k4 <=pi2;k4 = k4+pi2/(720)){

x3= (0.1*n4*(sin(k4*n3)))*cos(k4b*n5);

y3 = (0.1*n4* (cos(k4*n3)))*cos(k4b*n5);

xe2=   (n4+n5)*( cos(k4*n2)-x3)+w/2;

ye2 = (n4+n5)*(sin(k4*n2)-y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =          (new Color((int)(40*k4)%255,(int)(40*k4)%255,(int)(90)));

break;

case 4:

colore1= (new Color((int)(100+15*k4b)%255,(int)(30*k4)%255,(int)(27*k4)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4)%255,(int)(30*k4+40)%255,(int)(27*k4b+50)%255));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40)%255,(int)(27*k4+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4)%255,(int)(80*k4b)%255,(int)(90)));

break;

default:

colore1 =   (new Color((int)(30*k4)%255,(int)(40*k4)%255,(int)(60)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 7:

z= z+0.0001;

yz= yz+0.0001;

b1=0;

for(k4b=0 ;k4b <=pi2;k4b=k4b+PI/2){

e1= 0;

for(k4= 0;k4 <=pi2;k4 = k4+(PI/600)){

x3 = (0.01*n4*sin(k4*n2+zb+k4b)*acos(k4b));

y3 = (0.01* n4* cos(k4*n2+yzb+k4b)* acos(k4b));

xe2=  (n5)*(cos(n3*k4+zb)-x3);

ye2 = (n5)* (sin(n3*k4+yzb)- y3);

nux1= (int)(xe2+w/2);

nuy1= (int) (ye2+h/2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =   (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 8:

b1=0;

z= z+0.0001;

yz= yz+ 0.0001;

for(k4b= 0;k4b <=pi2;k4b = k4b+pi2/10){

e1= 0;

b1=1;

for(k4= 0;k4 <=pi2;k4 = k4+(PI/720)){

x3 = (0.1*n4*sin(k4*n2+zb+k4b)*cos(k4b));

y3 = (0.1* n4* cos(k4*n2+yzb+k4b)* cos(k4b));

xe2=  (n5)*(cos(n3*k4+zb)+x3);

ye2 = (n5)* (sin(n3*k4+yzb)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (e1*70)));

bufimagegrafb.setColor(new Color((int)200,(int)255,0));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}

bufimagegraff.setColor(new Color(255,255,255));

bufimagegraff.drawString ( "a=" +n1 + "   b= "+n2 + "    c= "+n3+ "      d= " +n4+ "     e= "+ n5, 5,h-15);

bufimagegraff.drawString ( "RArmonografo1b",  10,h-32);

break;

case 9:

z= z+0.0001;

yz= yz+0.0001;

for(k4b= 0;k4b <=16;k4b = k4b+2){

e1= 0;

b1=1;

for(k4= -PI;k4 <=PI;k4 = k4+(PI/720)){

x3 = (n5*cos(k4b))*(sin(k4*n3));

y3 = (n5*cos(k4b))* (cos(k4*n3));

xe2=  (n4*sin(k4b+zb))*cos(n2*k4+zb)+x3;

ye2 = (n4*sin(k4b+yzb))* sin(n2*k4+yzb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (e1*70)));

bufimagegrafb.setColor(new Color((int)200,(int)255,0));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}

bufimagegraff.setColor(new Color(255,255,255));

bufimagegraff.drawString ( "a=" +n1 + "   b= "+n2 + "    c= "+n3+ "      d= " +n4+ "     e= "+ n5, 5,h-15);

bufimagegraff.drawString ( "RArmonografo1b",  10,h-32);

break;

case 10:

b1=1;

z= z+0.001;

yz= yz+0.001;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/2)){

e1=0;

for(k4=0; k4<= PI*2; k4=k4+(PI/n2)){

x3= (e1*0.001*n4)*(1/tanh(k4b*0.01+yzb));

y3 = (e1*0.001*n4)*(1/tanh(k4b*0.01+yzb));

xe2=  (e1*0.01*n5)*( sin(n3*k4+zb)*x3);

ye2 =  (e1*0.01*n5)*(cos(n3*k4+zb)* y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =   (new Color((int)(0),(int)(255),(int)(0)));

break;

}

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo2",  10,h-32);

break;

case 11:

z= z+0.004;

yz= yz+ 0.004;

b1=1;

for(k4b= 0; k4b <= pi2; k4b=k4b+(PI/8)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/360)){

x3=(7)*(sin(k4*n2))*cos(k4b*(n4/PI));

y3 =(7)*(cos(k4*n2))* cos(k4b*(n4/PI));

xe2= (25)*( cos(n3*k4+zb)+x3);

ye2 = (25)*(sin(n3*k4+yzb)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =   (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 12:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/9)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4)*(sin(k4*n2)*cos(k4b*2.9));

y3 =(n4)*(cos(k4*n2)*cos(k4b*2.9));

xe2=  (n5)*( cos(k4*n3+zb)*x3);

ye2 =  (n5)*(sin(k4*n3+yzb)* y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =   (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 13:

z= z+0.0001;

yz= yz+0.0001;

b1=0;

for(k4b=0 ;k4b <=PI/36;k4b=k4b+PI/(180)){

e1= 0;

for(k4= 0;k4 <=pi2;k4 = k4+(PI/720)){

x3 = n4*(sin(k4*n2)*cos(k4b*18+zb));

y3 = n4* (cos(k4*n2)*cos(k4b*18+zb));

xe2=  n5*k4b*180*cos(n3*k4+yzb)+x3;

ye2 = n5*k4b*180* sin(n3*k4+yzb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =   (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 14:

z= z+0.0001;

yz=yz+ 0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/(5))){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/600)){

x3= (n4)*(sin(k4*n3)* cos(k4b));

y3 = (n4)* (cos(k4*n3)*cos(k4b));

xe2= (n5*10)*( cos(n2*k4+zb)-y3);

ye2 = (n5*10)*(sin(n2*k4+yzb) +x3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =   (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 15:

z= z+0.0001;

yz=yz+ 0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/4)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/720)){

x3= (5*n4)*(sin(k4*n3)*atan2(pi2/n5,k4b));

y3 = (5*n4)* (cos(k4*n3)*atan2(pi2/n5,k4b));

xe2= (n4*( cos(k4*n2+zb)))+x3;

ye2 = (n4*(sin(k4*n2+yzb))) +y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =    (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 16:

z= z+0.0001;

yz=yz+ 0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/4)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4)*(cos(k4*n3)*atan2(pi2*0.2,k4b));

y3 = (n4)* (sin(k4*n3)*atan2(pi2*0.2,k4b));

xe2= n5*0.1*( cos(n2*k4+zb)* x3);

ye2 = n5*0.1*(sin(n2*k4+yzb)* y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =    (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 17:

z= z+0.0001;

yz=yz+ 0.0001;

b1=1;

for(k4b=0; k4b<= pi2; k4b=k4b+(PI/8)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4*1.25)*(cos(k4*n2)*tanh(k4b*0.01));

y3 = (n4*1.25)*(sin(k4*n2)*tanh(k4b*0.01));

xe2= (n4)*( sin(n3*k4+zb)+x3);

ye2 = (n4)*(cos(n3*k4+yzb)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1 =    (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 18:

z= z+0.0001;

yz= yz+ 0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(pi2/4)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/720)){

x3= n5*(cos(k4*n2))*0.01/tanh(k4b+0.1);

y3 = n5*(sin(k4*n2))*0.01/tanh(k4b+0.1);

xe2=  n4*(e1*0.1)*(cos(n3*k4+zb))*x3;

ye2 = n4*(e1*0.1)*(sin(n3*k4+yzb))*y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

case 8:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 9:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

default:

colore1 =    (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 19:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<=PI; k4b=k4b+(PI/6)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/720)){

x3= (n5*0.001*(sin((k4+k4b)*n3)))/atan2(PI/8/k4b, k4b);

y3 = (n5*0.001 *(cos((k4+k4b)*n3)))/atan2(PI/8/k4b, k4b);

xe2=   (n4*n4*n4)*( cos((k4)*n2+zb)+x3)+w/2;

ye2 = (n4*n4*n4)*(sin((k4)*n2+yzb) +y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if  (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

case 8:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 9:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

default:

colore1 =    (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 20:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/8)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/720)){

x3= ((n5)*sin(k4*n2))*tanh(k4b*0.001);

y3 = ((n5)*cos(k4*n2))*tanh(k4b*0.001);

xe2= n4*( cos(n3*k4+zb)+x3);

ye2 = n4*(sin(n3*k4+yzb)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

case 8:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 9:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 21:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/8)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4*(sin(k4*n3)))* 0.1*atan2(PI*n5*0.1,k4b);

y3 = (n4* (cos(k4*n3)))*0.1*atan2(PI*n5*0.1,k4b);

xe2=   (n4)*( cos(k4*n2+zb)*x3)+w/2;

ye2 = (n4)*(sin(k4*n2+yzb) *y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

case 8:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 9:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 22:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/8)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

///*

x3= ((sin((k4+k4b)*n3)))* 0.01/atan2(n5*0.01, k4b);

y3 = ((cos((k4+k4b)*n3)))*0.01/atan2(n5*0.01, k4b);

xe2=   (n4)*( cos((k4)*n2+zb)+x3)+w/2;

ye2 = (n4)*(sin((k4)*n2+yzb) +y3)+h/2;

//*/

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

case 8:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 9:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo2",  10,h-32);

break;

case 23:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/8)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (1*(sin((k4)*n3)))* 1/hypot(n5*0.01,k4b*0.2);

y3 = (1*(cos((k4)*n3)))*1/hypot(n5*0.01,k4b*0.2);

xe2=   (n4*n4)*( cos(k4*n2+zb)+x3);

ye2 = (n4*n4)*(sin(k4*n2+yzb)+ y3);

nux1= (int)(xe2)+w/2;

nuy1= (int) (ye2)+h/2;

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

case 8:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 9:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 24:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/12)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/360)){

x3= (5*(sin(k4*n3+zb)))* 0.01*atan2(n5*0.01,k4b);

y3 = (5*(cos(k4*n3+yzb)))*0.01*atan2(n5*0.01,k4b);

xe2=   (n4*n4)*( cos(k4*n2)*x3);

ye2 = (n4*n4)*(sin(k4*n2)* y3);

nux1= (int)(xe2)+w/2;

nuy1= (int) (ye2)+h/2;

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

case 8:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 9:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 25:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/12)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (5*(sin((k4-k4b)*n3)))* 0.1*atan2(PI*0.1*n5,k4b);

y3 = (5* (cos((k4-k4b)*n3)))*0.1*atan2(PI*0.1*n5,k4b);

xe2=   (n4*n4)*( cos((k4)*n2+zb)*x3);

ye2 = (n4*n4)*(sin((k4)*n2+yzb) *y3);

nux1= (int)(xe2)+w/2;

nuy1= (int) (ye2)+h/2;

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 8:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 9:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 26:

b1=1;

z=z+ 0.0001;

yz=yz+ 0.0001;

for(k4b= 0; k4b<= pi2/2; k4b=k4b+(PI/16)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4*(sin((k4-k4b)*n3))*0.1)* cos((k4b)*n5);

y3 = (n4*(cos((k4-k4b)*n3))*0.1)*cos((k4b)*n5);

xe2=   (n4*n4)*( cos((k4+k4b*2)*n2+yzb)+x3);

ye2 = (n4*n4)*(sin((k4+k4b*2)*n2+zb)+y3);

nux1= (int)(xe2)+w/2;

nuy1= (int) (ye2)+h/2;

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo2",  10,h-32);

break;

case 27:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/18)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4*n5*(sin(k4b*n3+yzb+k4)))* 0.01*atan2(PI*0.2,k4b);

y3 = (n4*n5*(cos(k4b*n3+yzb+k4)))*0.01*atan2(PI*0.2,k4b);

xe2=   (n4*n4)*( cos(k4*n2+yzb)*x3)+w/2;

ye2 = (n4*n4)*(sin(k4*n2+zb) *y3)+h/2;

//  */

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 28:

z= 0.0001;

yz= 0.0001;

b1=1;

for(k4b= 0; k4b<= PI/10; k4b=k4b+(PI/100)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4*0.1*(sin((k4-k4b)*n3)))* sin((k4-k4b-zb)*n5);

y3 = (n4*0.1*(cos((k4-k4b)*n3)))*sin((k4-k4b-zb)*n5);

xe2=   (n4*n4)*( cos(k4*n2+zb)-x3)+w/2;

ye2 = (n4*n4)*(sin(k4*n2+zb) -y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 2:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 3:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 4:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 5:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =     (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 29:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/24)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4*0.5*(sin((k4-k4b)*n3)))* cos((k4-k4b+zb)*n5);

y3 = (n4*0.5*(cos((k4-k4b)*n3)))*cos((k4-k4b+zb)*n5);

xe2=   (n4*n4)*( cos((k4-k4b)*n2+zb)+x3)+w/2;

ye2 = (n4*n4)*(sin((k4-k4b)*n2+yzb) +y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =   (new Color((int)(255),(int)(255),(int)(abs(qq-dist)%255)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 30:

z= z+0.001;

yz= yz+0.001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/12)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4*(sin((k4+k4b)*n3)))*atan2(PI/n5,k4b);

y3 = (n4*(cos((k4+k4b)*n3)))*atan2(PI/n5,k4b);

xe2=   (n4*n4)*( cos(k4*n2+zb)*x3)+w/2;

ye2 = (n4*n4)*(sin(k4*n2+yzb) *y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 31:

z= z+0.001;

yz= yz+0.001;

b1=1;

for(k4b= 0; k4b<= PI/2; k4b=k4b+(PI/24)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4*2.5*(sin((k4-k4b)*n3)))*atan2(pi2/n5,k4b);//molto bello

y3 = (n4*2.5*(cos((k4-k4b)*n3)))*atan2(pi2/n5,k4b);

xe2=   (n4*n4)*tanh( cos(k4*n2+zb)+x3)+w/2;

ye2 = (n4*n4)*tanh(sin(k4*n2+yzb) +y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 32:

z= z+0.001;

yz= yz+0.001;

b1=1;

for(k4b= 0; k4b<= PI*1.5; k4b=k4b+(PI/18)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n5*0.25*(sin((k4)*n3)))*atan2(2,k4b);

y3 = (n5*0.25*(cos((k4)*n3)))*atan2(2,k4b);

xe2=   (n4)*( cos((k4-k4b+zb)*n2)+x3)+w/2;

ye2 = (n4)*(sin((k4-k4b+yzb)*n2) +y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color((int)(100+(qq%155)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 2:

colore1 = (new Color((int)(200+(qq%55)),(int)(160+abs(qq-dist)%95),(int)(abs(qq-dist)%155)));

break;

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 33:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= PI/2; k4b=k4b+(PI/28)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n4-n5)*(sin((k4)*n3))*0.1* atan2(0.6,k4b);

y3 = (n4-n5)*(cos((k4)*n3))*0.1

*atan2(0.6,k4b);

xe2=   (n4)*(cos((k4-k4b+zb)*n2)+x3)+w/2;

ye2 = (n4)*(sin((k4-k4b)*n2) +y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 34:

b1=0;

z= z+0.0001;

yz= yz+ 0.0001;

for(k4b= 0 ;k4b <=pi2;k4b=k4b+pi2/(8)){

e1= 0;

for(k4= 0;k4 <=pi2;k4 = k4+pi2/(1980)){

x3= (3*n4*sin(k4*n3))*1* atan2(PI*0.125,k4b);

y3 = (3*n4*cos(k4*n3))*1* atan2(PI*0.125,k4b);

xe2=  (n5)*cos(n2*k4+zb)+x3;

ye2 = (n5)* sin(n2*k4+yzb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 4:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 5:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 6:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 7:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 35:

z= z+0.0002;

yz= yz+0.0002;

b1=1;

for(k4b= 0+zb; k4b <= pi2+zb; k4b=k4b+(PI/n5)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/360)){

x3=(7)*(sin(k4*n2))*cos(k4b*(PI/n4));

y3 =(7)*(cos(k4*n2))* cos(k4b*(PI/n4));//0.5

xe2= (25)*( cos(n3*k4)+x3);

ye2 = (25)*(sin(n3*k4)- y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 =     (new Color((int)(160+(qq%95)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 2:

colore1 =   (new Color((int)(180+(qq%75)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

case 3:

colore1=  (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 4:

colore1= (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%155)));

break;

case 5:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

default:

colore1 =   (new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 36:

z= 0.02;

yz= 0.02;

b1=1;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/16)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/720)){

x3= 5*(sin(k4*n2))*(sin(k4b*PI/n5+zb)); //super toro

y3 = 5*(cos(k4*n2))*(sin(k4b*PI/n5+zb));

xe2= n4*( cos(n3*k4)+x3);

ye2 = n4*(sin(n3*k4)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 =          (new Color((int)(30*k4),(int)(39*k4),(int)(60)));

break;

case 2:

colore1= (new Color((int)(100+15*k4),(int)(35*k4),(int)(37*k4)));

break;

case 3:

colore1=  (new Color((int)(100+15*k4),(int)(30+40),(int)(27*k4+50)));

break;

case 4:

colore1= (new Color((int)(10),(int)(204),(int)(27*k4+50)%255));

break;

case 5:

colore1 =          (new Color((int)(39*k4b),(int)(36*k4),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*128)%100),(int)(155+abs(k4b*127)%100),(int)0));

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo2",  10,h-32);

break;

case 37:

z= z+0.0001;

yz= yz+ 0.0001;

b1=1;

for(k4b= 0; k4b<= PI*2; k4b=k4b+(PI/8)){

e1=0;

for(k4= 0; k4<= PI*2; k4=k4+(PI/720)){

x3= (sin(k4*n2+yzb))*(1-cos(k4b*n5-yzb)); //super toro2

y3 = (cos(k4*n2+yzb))*(1+sin(k4b*n5-yzb));

xe2= n4*( cos(n3*k4-zb)+y3);

ye2 = n4*(sin(n3*k4-zb)+x3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =          (new Color((int)(30*k4),(int)(39*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(35*k4),(int)(37*k4)));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4b+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(10),(int)(30*k4b+40),(int)(27*k4+50)%255));

break;

case 7:

colore1 =          (new Color((int)(39*k4b),(int)(36*k4),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*128)%100),(int)(155+abs(k4b*127)%100),(int)0));

}

bufimagegrafb.setColor(new Color((int)(200+(qq%55)),(int)(190+(qq%55)),(int)(e1%55)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo2",  10,h-32);

break;

case 38:

z= z+0.001;

yz= yz+ 0.001;

b1=1;

for(k4b= 0+zb; k4b <= pi2+zb; k4b=k4b+(PI/8)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/360)){

x3=(7)*(sin(k4*n2))*cos(k4b*(PI/n4));

y3 =(7)*(cos(k4*n2))* cos(k4b*(PI/n4));//0.5

xe2= (25)*( cos(n3*k4)-x3);

ye2 = (25)*(sin(n3*k4)- y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*128)%100),(int)(155+abs(k4b*127)%100),(int)0));

}

bufimagegrafb.setColor(new Color((int)(200+(qq%55)),(int)(190+(qq%55)),(int)(e1%55)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 39:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= -PI/4; k4b<= 0; k4b=k4b+(PI/1)){

e1=0;

for(k4=0; k4<= PI*2; k4=k4+(PI/n4)){

x3= (e1*0.01)*(1/tanh(k4b*n2*0.01));

y3 = (e1*0.01)*(1/tanh(k4b*n2*0.01));

xe2=  (e1*0.01)*( sin(n3*k4+yzb)*x3)*n5;

ye2 =  (e1*0.01)*(cos(n3*k4+yzb) *y3)*n5;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= e1;

bufimagegrafb.setColor(new Color((int)(200+(qq%55)),(int)(190+abs(qq-dist)%55),(int)(abs(qq-dist)%255)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 40:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

e1=0;

for(k4b=-PI; k4b<= PI; k4b=k4b+(PI*(n2-0.5))){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/n4)){

x3= (e1*0.1)*(cos(k4*n3+zb)*tanh(k4b/n2));

y3 = (e1*0.1)*(sin(k4*n3+zb)*tanh(k4b/n2));

xe2= n5*((e1*0.1)*( sin(k4+zb)+y3))*0.1;

ye2 = n5*((e1*0.1)*(cos(k4+zb)+ x3))*0.1;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= e1;

bufimagegrafb.setColor(new Color((int)(200+(qq%55)),(int)(190+(qq%55)),(int)(e1%55)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}b1= b1+1; } ;

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 41:

b1=1;

z= z+0.001;

yz= yz+0.001;

for(k4b= -PI; k4b<= PI; k4b=k4b+(PI/4)){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/360)){

x3= n5*(hypot(k4,k4b)+cos(k4*n2+zb));

y3 = n5*(hypot(k4,k4b)+cos(k4*n2+yzb));

xe2=  (n4)*(sin(n3*k4+zb)*x3);

ye2 = (n4)*(cos(n3*k4+yzb)*y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs(27* (k4)));

colore1= (new Color((int)  abs((255-k4b*3)%255),(int)abs((255-4*k4b)%255),(int)(25)));

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 42:

b1=0;

z= z+0.0001;

yz= yz+0.0001;

for(k4b= 0 ;k4b <=pi2;k4b=k4b+pi2/(8)){

e1= 0;

for(k4= 0;k4 <=pi2;k4 = k4+pi2/3600){

x3= (n4*sin(k4*n3+zb))*1* atan2(PI*0.125,k4b);

y3 = (n4*cos(k4*n3+yzb))*1* atan2(PI*0.125,k4b);

xe2=  (n5)*cos(n2*k4+zb)+x3;

ye2 = (n5)* sin(n2*k4+yzb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 3:

colore1 =          (new Color((int)(40*k4),(int)(40*k4),(int)(90)));

break;

case 4:

colore1= (new Color((int)(100+15*k4b),(int)(30*k4),(int)(27*k4)));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4b+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 7:

colore1 =          (new Color((int)(40*k4),(int)(80*k4b),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*128)%100),(int)(155+abs(k4b*127)%100),(int)0));

}

colore1= (new Color((int)  abs((255-k4b*3)%255),(int)abs((255-4*k4b)%255),(int)(25)));

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 43:

b1=1;

z= 0.004;

yz= 0.004;

b1=1;

for(k4b= 0+zb; k4b <= pi2+zb; k4b=k4b+(PI/8)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/1360)){

x3=(n5)*(sin(k4*n2))*cos(k4b*0.1*n4);

y3 =(n5)*(cos(k4*n2))* cos(k4b*0.1*n4);

xe2= (25+n5)*( cos(n3*k4)+x3);

ye2 = (25+n5)*(sin(n3*k4)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(abs(100+15*k4b)%255),(int)(abs(30*k4b+40)%255),(int)(0)));

break;

case 6:

colore1= (new Color((int)(100),(int)(abs(30*k4b+40)%255),(int)abs(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)abs(40*k4b)%255,(int)abs((40*k4b)%255),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*128)%100),(int)(155+abs(k4b*127)%100),(int)0));

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 44:

z= 0.004;

yz= 0.004;

b1=1;

for(k4b= 0+zb; k4b <= pi2+zb; k4b=k4b+(PI/8)){

e1=0;

for(k4= 0; k4<= pi2; k4=k4+(PI/1360)){

x3=(7)*(sin(k4*n2))*cos(k4b*(n4/PI));

y3 =(7)*(cos(k4*n2))* cos(k4b*(n4/PI));

xe2= (25)*( cos(n3*k4)+x3);

ye2 = (25)*(sin(n3*k4)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(abs(100+15*k4b)%255),(int)(abs(30*k4b+40)%255),(int)(0)));

break;

case 6:

colore1= (new Color((int)(100),(int)(abs(30*k4b+40)%255),(int)abs(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)abs(40*k4b)%255,(int)abs((40*k4b)%255),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*128)%100),(int)(155+abs(k4b*127)%100),(int)0));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 45:

z= z+0.001;

yz= yz+ 0.001;

b1=0;

for(k4b=-PI ;k4b <=PI;k4b=k4b+PI/(6)){

e1= 0;

for(k4= 0;k4 <=PI*2;k4 = k4+(PI/1720)){

x3 = 100*(sin(k4*n2)*cos(k4b*8+zb));

y3 = 100* (cos(k4*n2)*cos(k4b*8+zb));

xe2=  3*k4b*n4*cos(n3*k4)+x3;

ye2 = 3*k4b*n4* sin(n3*k4)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(abs(100+15*k4b)%255),(int)(abs(30*k4b+40)%255),(int)(0)));

break;

case 6:

colore1= (new Color((int)(100),(int)(abs(30*k4b+40)%255),(int)abs(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)abs(40*k4b)%255,(int)abs((40*k4b)%255),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*28)%100),(int)(155+abs(k4b*27)%100),(int)0));

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo2",  10,h-32);

break;

case 46:

z=z+0.001;

yz=yz+0.001;

b1=0;

for(k4b=0 ;k4b <=PI/24;k4b=k4b+PI/(600)){

e1= 0;

for(k4= 0;k4 <=PI*2;k4 = k4+(PI/720)){

x3 = (n5)*(sin(k4*n2)*cos(1/k4b*8+zb));

y3 = (n5)* (cos(k4*n2)*cos(1/k4b*8+zb));

xe2=  n4*cos(n3*k4+yzb)+x3;

ye2 = n4* sin(n3*k4+yzb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs(n4+ (k4)));

bufimagegrafb.setColor(new Color((int)(10+(2334*k4b)%245),(int)((k4b*12000)%225),(int)(220+(5335*k4b)%34)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 47:

z= z+0.0001;

yz= yz+0.0001;

b1=0;

for(k4b=0 ;k4b <=PI/24;k4b=k4b+PI/(600)){

e1= 0;

for(k4= 0;k4 <=PI*2;k4 = k4+(PI/720)){

x3 =3*k4b*n5*(sin(k4*n2)*cos(k4b*8+zb));

y3 = 3*k4b*n5*(cos(k4*n2)*cos(k4b*8+zb));

xe2=  3*k4b*n4*cos(n3*k4)+x3;

ye2 = 3*k4b*n4* sin(n3*k4)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)(40*k4b)%255,(int)(40*k4),(int)(90)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo2",  10,h-32);

break;

case 48:

z=z*0.00001;

yz=yz*0.001;

b1=1;

for(k4b= 0+z; k4b<= PI+z; k4b=k4b+(PI/8)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/1080)){

x3= (n4*(sin((k4/k4b)*n3)))*0.01* atan2(PI*0.18,k4b);

y3 = (n4*(cos((k4/k4b)*n3)))*0.01*atan2(PI*0.18,k4b);

xe2=   (n4)*( cos((k4/k4b)*n2)+y3)+w/2;

ye2 = (n4)*(sin((k4/k4b)*n2) +x3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(40*k4),(int)(40*k4),(int)(90)));

break;

case 4:

colore1= (new Color((int)(100+15*k4b),(int)(30*k4),(int)(27*k4)));

break;

case 5:

colore1=  (new Color((int)(100+15*k4),(int)(30*k4+40),(int)(27*k4b+50)));

break;

case 6:

colore1= (new Color((int)(100),(int)(30*k4+40),(int)(27*k4+50)));

break;

case 7:

colore1 =  (new Color((int)(40*k4),(int)(160*k4b)%255,(int)(k4b)));

break;

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 49:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/4)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)){

x3= (n5*(sin(k4/k4b*n3+zb)* (atan2(1.4142,k4b))));

y3 = (n5*(cos(k4/k4b*n3+yzb)*(atan2(1.4142,k4b))));

xe2=   (n4)*(cos((k4/k4b*n2))+x3)+w/2;

ye2 = (n4)*(sin((k4/k4b*n2)) +y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*140)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(abs(100+15*k4b)%255),(int)(abs(30*k4b+40)%255),(int)(0)));

break;

case 6:

colore1= (new Color((int)(100),(int)(abs(30*k4b+40)%255),(int)abs(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)abs(40*k4b)%255,(int)abs((40*k4b)%255),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*28)%100),(int)(155+abs(k4b*27)%100),(int)0));

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 50:

z=z+0.001;

yz=yz+0.001;

b1=0;

for(k4b=0 ;k4b <=PI/24;k4b=k4b+PI/(240)){

e1= 0;

for(k4= 0;k4 <=PI*2;k4 = k4+(PI/600)){

x3 = (100)*(sin(k4*n2)*cos(k4b*n5+zb));

y3 = (100)* (cos(k4*n2)*cos(k4b*n5+zb));

xe2=  n4*cos(n3*k4)+x3;

ye2 = n4* sin(n3*k4)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.setColor(new Color((int)(abs(190+30*k4)%255),(int)255,(int)(abs(30*k4+190)%255)));

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 51:

z= z+0.001;

yz= yz+ 0.001;

b1=0;

for(k4b=0 ;k4b <=PI*2;k4b=k4b+PI/(6)){

e1= 0;

for(k4= 0;k4 <=PI*2;k4 = k4+(PI/1720)){

x3 =3*k4b*n5*(sin(k4*n2)*sin(k4b*8+zb));

y3 = 3*k4b*n5*(cos(k4*n2)*sin(k4b*8+zb));

xe2=  3*k4b*n4*cos(n3*k4)+x3;

ye2 = 3*k4b*n4* sin(n3*k4)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

case 5:

colore1=  (new Color((int)(abs(100+15*k4b)%255),(int)(abs(30*k4b+40)%255),(int)(0)));

break;

case 6:

colore1= (new Color((int)(100),(int)(abs(30*k4b+40)%255),(int)abs(27*k4b+50)%255));

break;

case 7:

colore1 =          (new Color((int)abs(40*k4b)%255,(int)abs((40*k4b)%255),(int)(90)));

break;

default:

colore1= (new Color((int)(150+abs(k4b*28)%100),(int)(155+abs(k4b*27)%100),(int)0));

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 52:

z=z+0.0001;

yz=yz+0.0001;

b1=1;

for(k4b= -PI; k4b<= PI; k4b=k4b+(PI/0.5)){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/n4)){

x3= (e1*n5)*(cos(k4*n2)/tanh(k4b));

y3 = (e1*n5)*(sin(k4*n2)/tanh(k4b));

xe2= (cos(n3*k4+zb)*x3);

ye2 = (sin(n3*k4+yzb)* y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.setColor(new Color((int)(abs(190+30*k4)%255),(int)255,(int)(abs(30*k4+190)%255)));

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 53:

z=z+0.0001;

yz=yz+0.001;

b1=1;

for(k4b= -0; k4b<= PI; k4b=k4b+(PI/n3)){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/n4)){

x3= (e1*0.1)*(cos(k4*n2)*cos(k4b ));

y3 = (e1*0.1)*(sin(k4*n2)*cos(k4b));

xe2=  (6)*( sin(k4+zb)*x3);

ye2 =  (6)*(cos(k4+yzb)* y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.setColor(new Color((int)(abs(190+30*k4)%255),(int)255,(int)(abs(30*k4+190)%255)));

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 54:

z=z+0.0001;

yz=yz+0.0001;

b1=1;

for(k4b= -0; k4b<= PI; k4b=k4b+(PI*2)){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/(n4*4))){

x3= (1*cos(k4*n2))*1/atan2(k4b,k4);

y3 = (1*sin(k4*n2))*1/atan2(k4b,k4);

xe2=  n5*((e1*0.2)*(cos(n3*k4+yzb)+x3));

ye2 = n5*((e1*0.2)*(sin(n3*k4+yzb)+y3));

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

bufimagegrafb.setColor(new Color(255-(e1%154+1),(int)(255-((dist+e1)%154)),(int)255));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 55:

z=z+0.0001;

yz=yz+0.0001;

b1=0;

for(k4b=-PI ;k4b <=PI;k4b=k4b+pi2/(6)){

e1= 0;

for(k4= -PI;k4 <=PI;k4 = k4+pi2/(720)){

x3= (n5*sin(k4*n3))*cos(1/k4b);

y3 = (n5*cos(k4*n3))*cos(1/+k4b);

xe2=  n4*cos(n2*k4+yzb)+x3;

ye2 = n4* sin(n2*k4+yzb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+(ye2));

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (e1)));

bufimagegrafb.setColor(new Color((int)155+((qq)%100),(int)155+((qq*dist)%100),100+(int)((qq)%155)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 56:

z=z+0.0001;

yz=yz+0.0001;

b1=0;

for(k4b=-0 ;k4b <=pi2;k4b=k4b+PI*4){

e1= 0;

for(k4= -PI;k4 <=PI;k4 = k4+(PI/600)){

x3 = (n4*0.5)*(sin(k4*n2)*atan2(PI,n5*abs(k4*0.1)));

y3 = (n4*0.5)* (cos(k4*n2)*atan2(PI,n5*abs(k4*0.1)));

xe2=  n4*cos(n3*k4+zb)+x3;

ye2 = n4* sin(n3*k4+zb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (e1*10)));

colore1=  (new Color((int)((180+10*abs(k4))%255),(int)(55*abs(k4b)%255),(int)((150+15*abs(k4))%255)));

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 57:

z=z+0.0001;

yz=yz+0.0001;

b1=1;

for(k4b= -0; k4b<= PI/4; k4b=k4b+(PI/n4)){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/100)){

x3= (e1*0.075)*(cos(1/k4b*n2));

y3 = (e1*0.05)*(sin(1/k4b*n2));

xe2=  (e1*0.1)*( sin(k4*n3+zb)+x3);

ye2 =  (e1*0.08)*(cos(k4*n3+yzb)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*5)));

bufimagegrafb.setColor(new Color((int)155+((qq*dist)%100),(int)155+((qq)%100),140+(int)((qq)%115)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 58:

z=z+0.0001;

yz=yz+0.0001;

b1=1;

for(k4b= 0; k4b<= pi2; k4b=k4b+(PI/4)){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/360)){

x3= (n5*0.5)*(sin(k4*n2)*cos(k4b*n4*0.01+zb*0.01));

y3 =(n5*0.5)*(cos(k4*n2)*cos(k4b*n4*0.01+zb*0.01));

xe2=  (n5*2.25)*( cos(k4*n3+yzb)+x3);

ye2 =  (n5*2.25)*(sin(k4*n3+yzb)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs(n4+ (k4)));

colore1=  (new Color((int)((180+10*abs(k4b))%255),(int)(55*abs(k4b)%255),(int)((150+15*abs(k4b))%255)));

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 59:

z=z+0.0001;

yz=yz+0.0001;

b1=1;

for(k4b= -PI; k4b<= PI; k4b=k4b+(PI/10)){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/720)){

x3= (e1*0.01)*(cos(k4*n3+k4b));

y3 = (e1*0.01)*(sin(k4*n3+k4b));

xe2=  (e1*0.01)*( sin(n2*0.1*k4+zb)+x3*n4);

ye2 =  (e1*0.01)*(cos(n2*0.1*k4+yzb)+ y3*n4);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

y2= verty[e1-1][b1];

bufimagegrafb.setColor(new Color((int)(abs(190+30*k4)%255),(int)255,(int)(abs(30*k4+190)%255)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "    Numero 19     b= 27    c= 1 ,   d= 3 ",  10,680);

break;

case 60:

b1=0;

z=z+0.0001;

yz=yz+0.0001;

for(k4b=PI/1 ;k4b <=pi2;k4b=k4b+PI*4){

e1= 0;

for(k4= -PI;k4 <=PI;k4 = k4+(PI/1600)){

x3 = (n5)*(sin(k4*n2)*atan2(PI/2,k4));

y3 = (n5)* (cos(k4*n2)*atan2(PI/2,k4));

xe2=  n4*cos(n3*k4+zb)+x3;

ye2 = n4* sin(n3*k4+yzb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (e1*31)));

bufimagegrafb.setColor(new Color((int)(abs(190+30*k4)%255),(int)255,(int)(abs(30*k4+190)%255)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 61:

z=z+0.0001;

yz=yz+0.0001;

b1=1;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/24)){

e1=0;

for(k4=0; k4<= pi2; k4=k4+(PI/720)+0.01){

x3= (n4*(sin(k4*n3+zb)))* 0.01/atan2(PI*1.9,k4b);

y3 = (n4*(cos(k4*n3+yzb)))*0.01/atan2(PI*1.9,k4b);

xe2=   (n4*n4)*( cos(k4*n2)*x3)+w/2;

ye2 = (n4*n4)*(sin(k4*n2)* y3)+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*140)));

bufimagegrafb.setColor(new Color((int)(255-k4b*25),(int)(255-k4*15),(int)(250-k4b*5)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 62:

z=z+0.0001;

yz=yz+0.0001;

b1=1;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/15)){

e1=0;

for(k4=-0; k4<= PI*2; k4=k4+(PI/360)){

x3=(n5)*(sin(k4*n2))*tanh(cos(k4b*0.01*n4+zb));

y3 =(n5)*(cos(k4*n2))* tanh(cos(k4b*0.01*n4+zb));

xe2= (n5)*( cos(n3*k4)+x3);

ye2 = (n5)*(sin(n3*k4)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+50+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*20)));

bufimagegrafb.setColor(new Color((int)155+((qq)%100),(int)155+((qq*dist)%100),155+(int)((qq)%100)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 63:

colz=1;

z=z+0.0001;

yz=yz+0.0001;

b1=1;

for(k4b= -PI; k4b<= PI; k4b=k4b+(PI/9)){

e1=0;

colz= colz+1;

for(k4=-PI; k4<= PI; k4=k4+(PI/360)){

x3= (13)*(sin(k4*n2)*cos(k4b*n4*0.1+zb));

y3 =(13)*(cos(k4*n2)*cos(k4b*n4*0.1+zb));

xe2=  (13)*( cos(k4*n3+yzb)+x3);

ye2 =  (13)*(sin(k4*n3+yzb)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs(n4+ (k4)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)abs(4*k4)%255,(int)abs(40*k4)%255));

break;

case 2:

colore1 = (new Color((int)((qq)%255),(int)+((qq)%100),(int)((qq)%255)));

break;

case 3:

colore1 =   (new Color((int)(abs(40*k4)%255),(int)(abs(40*k4)%255),(int)(90)));

break;

case 4:

colore1= (new Color((int)(abs(80+10*colz)%255),(int)(abs(30*k4)%255),(int)(abs(17*colz)%255)));

break;

case 5:

colore1=  (new Color((int)(abs(140+12*colz)%255),(int)(abs(3*k4+40)%255),(int)(abs(15*colz+150)%255)));

break;

case 6:

colore1= (new Color((int)(abs(15*k4+130)%255),(int)(abs(15*colz)%255),(int)(abs(14*k4+150)%255)));

break;

case 7:

colore1 =  (new Color((int)(abs(16*colz)%255),(int)(abs(3*k4)%255),(int)(abs(15*colz)%255)));

break;

default:

colore1 =  (new Color((int)(254),(int)(255),(int)(0)));

}

colore1=  (new Color((int)(abs(10+n5*k4b)%255),(int)(abs(25*abs(k4)+40)%255),(int)(abs(10*k4b+n5)%255)));

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 64:

b1=1;

z= z+0.0001;

yz= yz+0.0001;

e1= 0;

for(k4b= 1;k4b <=7;k4b = k4b+2){

b1=1;

e1= 0;

for(k4= -PI+n5;k4 <=PI+n5;k4 = k4+(PI/720)){

x3 = (n5-k4b)*(sin(k4*n2));

y3 = (n5-k4b)* (cos(k4*n2));

xe2=  (n4-k4b)*cos(n3*k4+zb)+x3;

ye2 = (n4-k4b)* sin(n3*k4+yzb)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

//qq= (int)(abs( (e1*70)));

bufimagegrafb.setColor(new Color((int)155+((qq*dist)%100),(int)155+((qq)%100),100+(int)((qq)%155)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}

bufimagegraff.setColor(new Color(255,255,255));

bufimagegraff.drawString ( "a=" +n1 + "   b= "+n2 + "    c= "+n3+ "      d= " +n4+ "     e= "+ n5, 5,h-15);

bufimagegraff.drawString ( "RArmonografo1b",  10,h-32);

break;

case 65:

b1=1;

z=0.02;

yz= 0.02;

e1= 0;

for(k4b= 1;k4b <=7;k4b = k4b+2){

b1=1;

e1= 0;

for(k4= -PI;k4 <=PI;k4 = k4+(PI/720)){

x3 = (n5+k4b)*(sin(k4*n2));

y3 = (n5+k4b)* (cos(k4*n2));

xe2=  (n4+k4b)*cos(n3*k4+zb)-x3;

ye2 = (n4+k4b)* sin(n3*k4+yzb)- y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (e1*70)));

bufimagegrafb.setColor(new Color((int)155+((qq*dist)%100),(int)155+((qq)%100),100+(int)((qq)%155)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 66:

b1=1;

z= z+0.0002;

yz= yz+0.0002;

e1= 0;

for(k4b= 1;k4b <=17;k4b = k4b+1){

b1=1;

e1= 0;

for(k4= -PI;k4 <=PI;k4 = k4+(PI/720)){

x3 = (150-n4)*(sin(k4*n2));

y3 = (150-n4)* (cos(k4*n2));

xe2=  ((n4+k4b*sqrt(k4b*1.4142))*cos(n3*k4+n5*0.01+zb)-x3)*0.85;

ye2 = ((n4+k4b*sqrt(k4b*1.4142))* sin(n3*k4-n5*0.01+yzb)- y3)*0.85;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

qq= (int)(150+ e1);

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

switch(n5){

case 1:

colore1 = (new Color(5,(int)abs(4*k4)%255,(int)abs(40*k4)%255));

break;

case 2:

colore1 = (new Color((int)((qq)%255),(int)+((qq)%100),(int)((qq)%255)));

break;

case 3:

colore1 =   (new Color((int)(abs(40*k4)%255),(int)(abs(40*k4)%255),(int)(90)));

break;

case 4:

colore1= (new Color((int)(abs(80+10*k4b)%255),(int)(abs(30*k4)%255),(int)(abs(17*k4b)%255)));

break;

case 5:

colore1=  (new Color((int)(abs(40+12*k4b)%255),(int)(abs(3*k4+40)%255),(int)(abs(15*k4b)%255)));

break;

case 6:

colore1= (new Color((int)(abs(15*k4+130)%255),(int)(abs(15*k4b)%255),(int)(abs(14*k4+150)%255)));

break;

case 7:

colore1 =  (new Color((int)(abs(16*k4b)%255),(int)(abs(3*k4)%255),(int)(abs(15*k4b)%255)));

break;

default:

colore1 =  (new Color((int)(254),(int)(255),(int)(0)));

}

colore1=  (new Color((int)(abs(40+12*k4b)%255),(int)(abs(30*abs(k4)+40)%255),(int)(abs(15*k4b)%255)));

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b", 10,h-32);

break;

case 67:

b1=1;

z=0.02;

yz= 0.02;

e1= 0;

for(k4b= 1;k4b <=17;k4b = k4b+1){

b1=1;

e1= 0;

k5b=0;

for(k4= -PI;k4 <=PI;k4 = k4+(PI/720)){

x3 = (150-n4)*(sin(k4*n2));

y3 = (150-n4)* (cos(k4*n2));

xe2=  (n4+k4b-pow(1.4142,k4b))*cos(n3*k4+zb)-x3;

ye2 = (n4+k4b-pow(1.4142,k4b))* sin(n3*k4+yzb)- y3;

//*/

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

qq= (int)(150+ e1);

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

switch(n5){

case 1:

colore1 =   (new Color((int)(abs(40*k4)%255),(int)(abs(40*k4)%255),(int)(90)));

break;

case 2:

colore1= (new Color((int)(abs(80+10*k4b)%255),(int)(abs(30*k4)%255),(int)(abs(17*k4b)%255)));

break;

case 3:

colore1=  (new Color((int)(abs(40+12*k4b)%255),(int)(abs(3*k4+40)%255),(int)(abs(15*k4b)%255)));

break;

case 4:

colore1= (new Color((int)(abs(15*k4+130)%255),(int)(abs(15*k4b)%255),(int)(abs(14*k4+150)%255)));

break;

case 5:

colore1 =  (new Color((int)(abs(16*k4b)%255),(int)(abs(3*k4)%255),(int)(abs(15*k4b)%255)));

break;

default:

colore1 =  (new Color((int)(254),(int)(255),(int)(0)));

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b", 10,h-32);

break;

case 68:

z= z+0.0001;

yz= yz+0.0001;

b1=0;

for(k4b=-PI ;k4b <=PI;k4b=k4b+PI/(6)){

e1= 0;

for(k4= 0;k4 <=PI*2;k4 = k4+(PI/720)){

x3 = 100*(sin(k4*n2)*cos(k4b*8+zb));

y3 = 100* (cos(k4*n2)*cos(k4b*8+zb));

xe2=  3*k4b*n4*cos(n3*k4)+x3;

ye2 = 3*k4b*n4* sin(n3*k4)+ y3;

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] = (int)nux1;

verty[e1][b1]= (int) nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*1)));

switch(n5){

case 1:

colore1 = (new Color(5,(int)(40*k4),(int)(40*k4)));

break;

case 2:

colore1 = (new Color((int)155+((qq)%100),(int)155+((qq)%100),155+(int)((qq*dist)%100)));

break;

case 3:

colore1 =          (new Color((int)(30*k4),(int)(40*k4),(int)(60)));

break;

case 4:

colore1= (new Color((int)(100+15*k4),(int)(40*k4),(int)(27*k4b)%255));

break;

default:

colore1= (new Color((int)(150+abs(k4b*28)%100),(int)(100+abs(k4b*27)%100),(int)0));

}

numColore =  (String) "colore1" ;

bufimagegrafb.setColor (colore1);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

case 69:

z= z+0.0001;

yz= yz+0.0001;

b1=1;

for(k4b= 0; k4b<= PI; k4b=k4b+(PI/n4)){

e1=0;

for(k4=-PI; k4<= PI; k4=k4+(PI/360)){

xe2=   (n5)*( cos(k4*n3+zb)*k4b*2)+w/2;

ye2 = (n5)*(sin(k4*n2+yzb)*k4b*1.5 )+h/2;

nux1= (int)(xe2);

nuy1= (int) (ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

qq= (int)(abs( (k4*140)));

bufimagegrafb.setColor(new Color((int)( abs(k4b*50+75)),(int)(abs(k4b*50+80)),(int)(0)));

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

default:

b1=1;

z= z+0.0001;

yz= yz+0.0001;

e1=0;

for(k4=-PI+abs(zb); k4<= PI+abs(zb); k4=k4+(pi2/(n4*2))){

x3= (e1*0.1)*sin(k4*n2)*n5*0.1;

y3 = (e1*0.1)*cos(k4*n2)*n5*0.1;

xe2= e1*0.1*( cos(n3*k4)+x3);

ye2 = e1*0.1*(sin(n3*k4)+ y3);

nux1= (int)(w/2+xe2);

nuy1= (int) (h/2+ye2);

vertx[e1][b1] =nux1;

verty[e1][b1]= nuy1;

e1=e1+1;

if (e1 <=1){

x2= vertx[e1-1][b1];

y2= verty[e1-1][b1];

}

colore = (new Color(255,(int)((50+e1*dist)%255),(int)255-((e1)%255)));

bufimagegrafb.setColor (colore);

if(dist >40){ x2=nux1;y2=nuy1;}

bufimagegrafb.drawLine( (int)x2, (int)y2  ,nux1,nuy1);

x2=nux1;y2 = nuy1;

}    b1=b1+1;//}

bufimagegrafb.drawString ( "a=   " +n1 + "     b= "+n2 + "      c= "+n3+ "        d= " +n4+ "       e= "+ n5, 10,h-15);

bufimagegrafb.drawString ( "RArmonografo1b",  10,h-32);

break;

}

g2.drawImage(bufimage,0,0, this);

}

public void mouseClicked(MouseEvent et) {

Object source = et.getSource();

int aaaa=  et.getButton();

if(aaaa == MouseEvent.BUTTON3){

int startx = et.getX();

int starty = et.getY();

if (startx >= 425) {

cox=cox+1;}

if (cox >= 71)cox=71;

if (startx < 280) {

cox= cox-1;

if (cox <= 1)cox=1;

}

repaint();

}

public void mousePressed(MouseEvent e) {

mov2 = e.getX();  int mov3 = e.getY();

}

public void mouseReleased(MouseEvent e){}

public void mouseEntered(MouseEvent e) {}

public void mouseExited(MouseEvent e)  {}

public void mouseMoved(MouseEvent e) {}

public void mouseDragged(MouseEvent e) {

mov1 = e.getX();   mov4 = e.getY();

zb=(zb+z*(mov1-mov2));mov2=mov1;

yzb= (yzb+yz* (mov4-mov3));mov3=mov4;

repaint();

e.consume();

}

Questa è la scheda numero 8

HOME Menù di grafica

Listato in Java e filmato senza audio

Listato dell'applet.

img. 1

img. 2

img. 3

img. 4

img. 5

img. 6

Queste immagini le potete ottenere utilizzando il listato che vedete qui sopra

Sono esempi per chi non vuole o non può usare gli applet.

Queste ultime 6 immagini sono state aggiunte per il loro valore estetico. Naturalmente immagini come queste non si possono ottenere con un armonografo normale, perchè ovviamente non si può

cambiare il colore della penna durante l'oscillazione dei pendoli, solo con una simulazione al computer si possono avere curve con vari colori. Nella prossima pagina vedremo più dettagliatamente le figure dell'armonografo a due pendoli.

Questa è la scheda numero 8

HOME Menù di grafica

HOME Menù di grafica

Listato in Java e filmato senza audio

Listato dell'applet.

img. 1

img. 2

img. 3

img. 4

img. 5

img. 6

Queste immagini le potete ottenere utilizzando il listato che vedete qui sopra Sono esempi per chi non vuole o non può usare gli applet.

Queste ultime 6 immagini sono state aggiunte per il loro valore estetico. Naturalmente immagini come queste non si possono ottenere con un armonografo normale, perchè ovviamente non si può

cambiare il colore della penna durante l'oscillazione dei pendoli, solo con una simulazione al computer si possono avere curve con vari colori. Nella prossima pagina vedremo più dettagliatamente le figure dell'armonografo a due pendoli.

Questa è la scheda numero 8 HOME Menù di grafica

HOME Menù di grafica

Queste immagini le potete ottenere utilizzando il listato che vedete qui sopra

Sono esempi per chi non vuole o non può usare gli applet.

Questa è la scheda numero 8

HOME Menù di grafica