089

89

Współpraca z plikami zewnętrznymi

% kasowanie zmiennej t_eval elear t_eval;

% przypisanie nazwy pliku do zmiennej nazwa_pliku nazwa_pliku=fname;

% otwarcie pliku o podanej nazwie do zapisu tekstowego fid = fopen(nazwa_pliku, 'wt');

%pozbycie sie rozszerzenia *.m w nazwie pliku for j = 1: findstr (nazwa_pliku,    1

nazwa_pliku2(j) = nazwa_pliku(j); end

%zapis do pliku

fprintf(fid,'function [parwyl,parwy2]=%s',nazwa_pliku2);

fprintf(fid, '\n%% linia HI');

fprintf(fid,'\n%% opis funkcji');

fprintf(fid,¹\n%% ciało funkcji');

fprintf(fid, ’\n return\n') ;

%zamkniecie pliku o podanej nazwie

felose(fid);

return

Po wywołaniu funkcji zapis pokazuje się okno dialogowe pozwalające na wybór katalogu oraz podanie nazwy w-pliku, w którym zostanie zapisana funkcja o domyślnej nazwie funkcjal.

Treść zapisanego /n-pliku może być wyświetlona na ekranie za pomocą polecenia type ścieżka nadana_nazwa_pliku, np.

type funkcjal.m

function [parwyl,parwy2]=FUNKCJA1 % linia HI % opis funkcji % ciało funkcji return

Zasady współpracy z plikami tekstowymi czytanymi i zapisywanymi na dysku twardym zilustrowano na przykładzie obliczania prądów zwarciowych w sieci elektroenergetycznej .

Przykład

Przeprowadzić analizę zwarć symetrycznych w sieci elektroenergetycznej odpowiadającej zasilaniu potrzeb własnych w elektrowni połączonej z siecią przesyłową 220 kV. Sieć zawiera generator i dwa duże silniki indukcyjne. Na rysunku 8.1 pokazano schemat ideowy analizowanej sieci, a na rysunku 8.2 - schemat zastępczy sieci do obliczania prądu zwarcia 3-fazowego.