plot_velocity_triangle.m

function [  ] = plot_velocity_triangle( velocity_triangle )
    
    T = velocity_triangle;
    
    A = [0,T.v1A];
    
    B1 = [T.v1T,0];
    
    C1 = [T.w1T,0];
    
    B2 = [T.v2T,0];
    
    C2 = [T.w2T,0];
    
    %figure(ff); ff = ff+1;
    
    %% entrata rotore
    %sub_index = sub_index + 1;
    %subplot(row,col,sub_index);
    figure
    axis equal
    hold on
    
    plot([-1.5*abs(C1(1)) 1.5*abs(B1(1))],[A(2) A(2)], 'k--')
    plot([-1.5*abs(C1(1)) 1.5*abs(B1(1))],[0 0], 'k--')
    plot([0 0],[-0.5*A(2) 1.5*A(2)], 'k--')
    
    v1 = '\leftarrow v_1';
    w1 = '\leftarrow w_1';
    u1 = '\uparrow u';
    text([A(1)+B1(1)]/2,[A(2)+B1(2)]/2,v1)
    text([C1(1)+A(1)]/2,[C1(2)+A(2)]/2,w1)
    text([B1(1)+C1(1)]/2,[B1(2)+C1(2)]/2,u1)
    
    plot([A(1),B1(1),C1(1),A(1)], [A(2),B1(2),C1(2),A(2)],'LineWidth',2.5)
    
    %% uscita rotore
    %subplot(row,col,sub_index); sub_index = sub_index + 1;
    plot([-1.5*abs(C2(1)) 1.5*abs(B2(1))],[A(2) A(2)], 'k--')
    plot([-1.5*abs(C2(1)) 1.5*abs(B2(1))],[0 0], 'k--')
    plot([0 0],[-0.5*A(2) 1.5*A(2)], 'k--')
    
    v1 = '\leftarrow v_2';
    w1 = '\leftarrow w_2';
    u1 = '\uparrow u';
    text([A(1)+B2(1)]/2,[A(2)+B2(2)]/2,v1)
    text([C2(1)+A(1)]/2,[C2(2)+A(2)]/2,w1)
    text([B2(1)+C2(1)]/2,[B2(2)+C2(2)]/2,u1)
    
    plot([A(1),B2(1),C2(1),A(1)], [A(2),B2(2),C2(2),A(2)],'LineWidth',1.5)
    %legend(legend_text(sub_index,:))
    set(gca, 'xdir','reverse')
    
end