fprintf(id_vsp, ' array< double > Rho;\n');
fprintf(id_vsp, ' Rho.push_back( %.5f );\n',AIRCRAFT.rho);
fprintf(id_vsp, ' SetDoubleAnalysisInput( analysis_name, "Rho", Rho, 0 );\n\n');
fprintf(id_vsp, ' array< double > Vinf;\n');
fprintf(id_vsp, ' Vinf.push_back( %.2f );\n',AIRCRAFT.V_s);
fprintf(id_vsp, ' SetDoubleAnalysisInput( analysis_name, "Vinf", Vinf, 0 );\n\n');
fprintf(id_vsp, ' Update();\n\n')
fprintf(id_vsp, ' Print("Recomputing DegenGeom for updated Xcg...");\n');
fprintf(id_vsp, ' string compgeom_name = "VSPAEROComputeGeometry";\n');
fprintf(id_vsp, ' SetAnalysisInputDefaults(compgeom_name);\n');
fprintf(id_vsp, ' Update();\n');
fprintf(id_vsp, ' string compgeom_resid = ExecAnalysis(compgeom_name);\n');
fprintf(id_vsp, ' PrintResults(compgeom_resid);\n\n');
fprintf(id_vsp, ' Print("Running VSPAERO Sweep Analysis...");\n');
fprintf(id_vsp, ' string rid = ExecAnalysis(analysis_name);\n');
fprintf(id_vsp, ' PrintResults(rid);\n');
fprintf(id_vsp, ' Print("VSPAERO Sweep COMPLETE");\n');
fprintf(id_vsp, '}');
fclose(id_vsp);
cmd_sys = sprintf('%svsp.exe -script %s ','.\OpenVSP-3.46.0-win64\','QTR_VSP.vspscript');
[status,cmdout] = system(cmd_sys);
pause(5.0);
id_out1 = fopen('QTR_VSP.history', 'r');
case_num = 0;
analysis_result = [];
while ~feof(id_out1)
line = fgetl(id_out1);
if contains(line, 'Iter')
disp(case_num)
for i = 1:19
fgetl(id_out1);
end
line = fgetl(id_out1); disp(line)
result = str2double(split(line))';
analysis_result = [analysis_result; result(1:end)];
case_num = case_num + 1;
end
if case_num == alphanpts
break
end
end
fclose(id_out1);
end