Parising NASA thermodynamic data

Objective: clear all close all clc % Universal gas constant (J/K.mol) R = 8.314 ; % Reading header from given file f1 = fopen(\'THERMO.dat\',\'r\'); Header = fgetl(f1); % Reading global temperatures A = fscanf(f1,\'%f \\n\',[1 3]); global_low_temp = A(1); global_mid_temp = A(2); global_high_temp = A(3); % skipping first 3 lines of…