echo off
%load PRECH01
clc
clg

Unf=110e3*1.1/sqrt(3)
UnN=[Unf Unf*A^2 Unf*A]

PlotXY=UporN
PlotX1=[0, real(PlotXY(1)), 0, real(PlotXY(2)), 0, real(PlotXY(3))]
PlotY1=[0, imag(PlotXY(1)), 0, imag(PlotXY(2)), 0, imag(PlotXY(3))]

PlotXY=Ut1N
PlotX2=[0, real(PlotXY(1)), 0, real(PlotXY(2)), 0, real(PlotXY(3))]
PlotY2=[0, imag(PlotXY(1)), 0, imag(PlotXY(2)), 0, imag(PlotXY(3))]

PlotXY=UgN
PlotX3=[0, real(PlotXY(1)), 0, real(PlotXY(2)), 0, real(PlotXY(3))]
PlotY3=[0, imag(PlotXY(1)), 0, imag(PlotXY(2)), 0, imag(PlotXY(3))]

PlotXY=UnN
PlotX4=[0, real(PlotXY(1)), 0, real(PlotXY(2)), 0, real(PlotXY(3))]
PlotY4=[0, imag(PlotXY(1)), 0, imag(PlotXY(2)), 0, imag(PlotXY(3))]

plot(PlotX1,PlotY1,'+',PlotX1,PlotY1,'-', ...
     PlotX2,PlotY2,'+',PlotX2,PlotY2,'-', ...
     PlotX3,PlotY3,'+',PlotX3,PlotY3,'-', ... 
     PlotX4,PlotY4,'+',PlotX4,PlotY4,'-')
title('Napeti v miste poruchy, u Transf.1 a u Gener.')
xlabel('V poradi zelena, zluta, fialova, seda')
grid

pause


