Реферат: Теория Попова

while(!done){ // Нахождение точки касания прямой Попова

// и модифицированного годографа

time=time+0.0001;

PXo=(*Fx1)(time); // Проекция w на Р

QXo=(*Fx2)(time); // Проекция w на wQ

PrXo=((*Fx2)(time)-(*Fx2)(time-h))/((*Fx1)(time)-(*Fx1)(time-h));

otv=PrXo*(Xo-PXo)+QXo-Yo;

if ((otv>=-0.001)&&(otv<=0.001)) done=1;

if (time==pr2) done=1;

putpixel(xmax/2+Xmas*(*Fx1)(time),ymax/2+Ymas*(*Fx2)(time),13);

gotoxy(2,2);

printf("PXo %3.4f",PXo);

gotoxy(2,3);

printf("QYo %3.4f",-QXo);

printf("\nOtvet %f",otv);

gotoxy(2,5);

printf("w %2.3f",time);

}

gotoxy(2,6);

printf(" Угол равен %2.2f", -atan(QXo/PXo)*180/3.14);// Угол касательной

rectangle(0,0,150,90); // к Р

for (kol=-1.5; kol<=1.5; kol=kol+0.001){

Y=PrXo*(kol-Xo)+Yo;

putpixel(xmax/2+Xmas*(kol),ymax/2+Ymas*Y,10); // Прямая Попова

}

}

...