Графічне відображення схеми та хвильових діаграм струму, напруги та потужності в колі змінного струму з активним опором та індуктивністю

puts("Input r:");

scanf("%f", &r);

Z=sqrt(r*r+Xl*Xl);

cos_fi=r/Z;

sin_fi=Xl/Z;

checkgr();

moveto(0, 240);

setcolor(6);

for(wt=0; wt<640; wt+=3)

{ Ua=Um*cos_fi*sin(wt);

lineto(wt, Ua+240);

}

outtextxy(0, 10, "Graph of function Ua(wt):");

getch();

cleardevice();

moveto(0, 240);

setcolor(4);

for(wt=0; wt<640; wt+=3)

{ Ul=Um*cos_fi*sin(wt)+Um*sin_fi*sin(wt+PI/2);

lineto(wt, Ul+240);

}

outtextxy(0, 10, "Graph of function Ul(wt):");

getch();

cleardevice();

moveto(0, 240);