AEROGENERADOR

AEROGENERADOR

1)BASE 1

function [] = base_1(a,b)

x=[a-6;a-6;a+6;a+6;a-6];%base1

y=[b;b+2;b+2;b;b];

fill(x,y,[0,0,1])

end

2)BASE 2

function [] = base_2(a,b)

x=[a-3;a-2;a+2;a+3;a-3];%base2

y=[b+2;b+4;b+4;b+2;b+2];

fill(x,y,[0,0,1])

end

3)SEGURO 1

function [] = seguro_1(a,b)

x=[a-5.5;a-5.5;a-3.5;a-3.5;a-4;a-4;a-5;a-5;a-5.5];%seguro1

y=[b+2;b+3;b+3;b+2;b+2;b-4;b-4;b+2;b+2];

fill(x,y,[0,0,1])

end

4)SEGURO 2

function [] = seguro_2(a,b)

x=[a+3.5;a+3.5;a+5.5;a+5.5;a+5;a+5;a+4;a+4;a+3.5];%seguro2

y=[b+2;b+3;b+3;b+2;b+2;b-4;b-4;b+2;b+2];

fill(x,y,[0,0,1])

end

5)TORRE

function [] = torre( a,b )

x=[a-2;a-1;a+1;a+2;a-2];%torre

y=[b+4;b+28;b+28;b+4;b+4];

fill(x,y,[0,0,1])

end

                       

6)CAJA

function [] = caja( a,b )

x=[a-3;a-4;a-4;a-3;a+5;a+6;a+6;a+5;a-3];

y=[b+28;b+29;b+33;b+34;b+34;b+33;b+29;b+28;b+28];

fill(x,y,[0,0,1])

end

7)ROTOR

function [] = rotor_1(a,b)

x=[a-4;a-6;a-6;a-8;a-8;a-6;a-6;a-4;a-4];

y=[b+31.5;b+31.5;b+30.5;b+30.5;b+33.5;b+33.5;b+32.5;b+32.5;b+31.5];

fill(x,y,[0,0,1])

end

8)PALA 1 (PERFIL)

function [] = pala_1( a,b)

x=[a-0.4-7;a-0.6-7;a-7;a+0.6-7;a+0.4-7;a-0.1-7];

y=[b+30.5;b+23.5;b+15.5;b+23.5;b+30.5;b+30.5];

fill(x,y,[0,0,1])

end

9)PALA 2 (PERFIL)

function [] = pala_2(a,b)

x=[a-0.4-7;a-0.6-7;a-7;a+0.6-7;a+0.4-7;a-0.1-7];

y=[b+33.5;b+40.5;b+45.5;b+40.5;b+33.5;b+33.5];

fill(x,y,[0,0,1])

end

10)PALA (FRONTAL)

function [] = palas_1( a,b)

y=[b+31-1.5*sind(10),b+31-1.017949192,b+31-19.5*sind(30),b+31-4.482050808,b+31-1.5*sind(50)];

x1=[a-1.5*cosd(10),a-3.453738644,a-19.5*cosd(30),a-1.453738644,a-1.5*cosd(50)];

fill(x1,y,[0,0,1])

end

11)CIRCULO

function [] = circulo(a,b,r)

t=linspace(0,2*pi,100);

x=a+r*cos(t);

y=b+r*sin(t);

fill(x,y,[0,0,1]);

end

12)PALA

function [] = palas_2( a,b )

y1=[b+31+sqrt(2),b+31+5.5,b+31+19.5,b+31+5.5,b+31+sqrt(2)];

x2=[a-0.5,a-2,a,a+2,a+0.5];

fill(x2,y1,[0,0,1])

end

13)PALA

function [] = palas_3(a,b)

x=[a+1.5*cosd(10),a+3.453738644,a+19.5*cosd(30),a+1.453738644,a+1.5*cosd(50)];

y=[b+31-1.5*sind(10),b+31-1.017949192,b+31-19.5*sind(30),b+31-4.482050808,b+31-1.5*sind(50)];

fill(x,y,[0,0,1])

end

14)AEROGENERADOR FRONTAL

function[]=aerogenerador_f(a,b)

base_1(a,b)

hold on

base_2(a,b)

torre(a,b)

seguro_1(a,b)

seguro_2(a,b)

circulo(a,b+31,3)

circulo(a,b+31,1.5)

palas_1(a,b)

palas_2(a,b)

palas_3(a,b)

axis equal

end

15) AEROGENERADOR DE PERFIL

function[]=aerogenerador_p1(a,b)

base_1(a,b)

hold on

base_2(a,b)

torre(a,b)

seguro_1(a,b)

seguro_2(a,b)

caja(a,b)

rotor_1(a,b)

pala_1(a,b)

pala_2(a,b)

axis equal

end

16) AEROGENERADOR

function [] = aerogenerador()

subplot(1,2,1),aerogenerador_f(0,0),title('Aerogenerador frontal')

subplot(1,2,2),aerogenerador_p1(0,0),title('Aerogenerador de perfil')

end