
function []=RC(ratio,script_folder,hyCase)

% Summary:      Changes the splitratio for the liquid from the cold sep
% author:       Tor Anders Marvik

fid = fopen('\change_ratio.SCP', 'r+');      %opens the UPC for writing
fseek(fid, 62, 'bof');                                    %find symbol 148 
fwrite(fid, num2str(ratio,'%10.12e\n'));    %writes the number of stages before
                                                                %symbol 148
fclose(fid);                                       %closes change_stage.SCP

hyCase.Application.PlayScript([script_folder '\change_ratio.SCP'])
 %plays
                                                %change_stage.SCP in UniSim

end