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

cleardevice();

moveto(0, 240);

setcolor(6);

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

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

lineto(wt, Ql+240);

}

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

getch();

cleardevice();

restorecrtmode();

break;

case '2':

checkgr();

setlinestyle(0, 1, 3);

rectangle(80, 80, 560, 400);

bar(150, 55, 250, 105);

setcolor(0);

line(325, 80, 475, 80);

line(80, 200, 80, 300);

setcolor(15);

arc(340, 80, 0, 180, 15);

arc(370, 80, 0, 180, 15);

arc(400, 80, 0, 180, 15);

arc(430, 80, 0, 180, 15);