AT_04_Vienna.m

function AT_04_Vienna
  
  
  %%example
Wall=[  1.2000e-001  1.3000e-001  2.0000e+002;
       1.0000e-003  2.3000e+000  1.5000e+006;
        4.0000e-002  3.5700e-002  2.0000e+000;
      2.2000e-001  3.5700e-002  2.0000e+000;
      4.0000e-002  3.5700e-002  2.0000e+000;
       3.0000e-002  1.3000e-001  2.0000e+002;
       5.0000e-002  2.8000e-001  3.2000e-001;
       3.0000e-002  1.3000e-001  2.0000e+002];
      
%BC=[20,.50,0,.20;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    10,.80,-10,.30;
%    5, 1, -10, .5];
BC=BoundaryConditions('weather_files/AUT_Vienna.Schwechat.110360_IWEC.epw');
    dl=0.001;
Rs=[0.04, 0.13];



glaser_method(Wall,BC,Rs,dl)
  
endfunction