NASA Thermodynamic data

Objective: %input R = 8.314; %universal gas constant %skipping f = fopen(\'Thermo.dat\',\'r\'); Header = fgetl(f); global_temp_range = fgetl(f); global_temp_range = str2num(global_temp_range); %comments line1 = fgetl(f); line2 = fgetl(f); line3 = fgetl(f); %creating loop for all elements for i = 1:53 line0 =fgetl(f); chemical_element…