转换成C代码 IFN1EQ2 GOTO 8888 IFNE34IIEQ4 THEN IFDABSALX2-ALX1GEEPSORDABSXX4-XX3GEEPS THEN IFDABSALX2-ALX1LTEPSANDDABSXX4-XX3GEEPS THEN AK34=YY4-YY3XX4-XX3

if(N1==2) goto 8888; if(NE34(II)==4){ if(fabs(ALX2-ALX1)>=EPS || fabs(XX[3]-XX[2])>=EPS){ if(fabs(ALX2-ALX1)<EPS && fabs(XX[3]-XX[2])>=EPS){ AK34=(YY[3]-YY[2])/(XX[3]-XX[2]); B34=YY[2]-AK34XX[2]; XX31=ALX1; YY31=AK34XX31+B34; VALUE1=(YY31-YY[3])(YY31-YY[2]); VALUE2=(YY31-ALY1)(YY31-ALY2); VALUE3=(XX31-XX[3])(XX31-XX[2]); if(VALUE1<=0 && VALUE2<=0 && VALUE3<=0){ N1=N1+1; B[N1][0]=XX31; B[N1][1]=YY31; } } if(fabs(ALX2-ALX1)>=EPS && fabs(XX[3]-XX[2])<EPS){ AK=(ALY2-ALY1)/(ALX2-ALX1); BB=ALY1-AKALX1; XX32=XX[2]; YY32=AKXX32+BB; VALUE1=(YY32-YY[3])(YY32-YY[2]); VALUE2=(YY32-ALY1)(YY32-ALY2); VALUE3=(XX32-ALX1)(XX32-ALX2); if(VALUE1<=0 && VALUE2<=0 && VALUE3<=0){ N1=N1+1; B[N1][0]=XX32; B[N1][1]=YY32; } } if(fabs(ALX2-ALX1)>=EPS && fabs(XX[3]-XX[2])>=EPS){ AK34=(YY[3]-YY[2])/(XX[3]-XX[2]); AK=(ALY2-ALY1)/(ALX2-ALX1); if(fabs(AK34-AK)>=EPS){ B34=YY[2]-AK34XX[2]; BB=ALY1-AKALX1; XX33=(BB-B34)/(AK34-AK); T=XX33; YY33=AKT+BB; VALUE1=(XX33-XX[3])(XX33-XX[2]); VALUE2=(YY33-ALY1)(YY33-ALY2); VALUE3=(XX33-ALX1)(XX33-ALX2); if(VALUE1<=0 && VALUE2<=0 && VALUE3<=0){ N1=N1+1; B[N1][0]=XX33; B[N1][1]=YY33; } } } } if(N1==2){ TTT21=B[0][0]; TTT22=B[1][0]; TTT23=B[0][1]; TTT24=B[1][1]; if(TTT21==TTT22 && TTT23==TTT24) N1=1; } if(N1==2) goto 8888; } if(fabs(ALX2-ALX1)>=EPS || fabs(XX[3]-XX[0])>=EPS){ if(fabs(ALX2-ALX1)<EPS && fabs(XX[3]-XX[0])>=EPS){ AK41=(YY[0]-YY[3])/(XX[0]-XX[3]); B41=YY[3]-AK41XX[3]; XX41=ALX1; YY41=AK41XX41+B41; VALUE1=(YY41-YY[0])(YY41-YY[3]); VALUE2=(YY41-ALY1)(YY41-ALY2); VALUE3=(XX41-XX[0])(XX41-XX[3]); if(VALUE1<=0 && VALUE2<=0 && VALUE3<=0){ N1=N1+1; B[N1][0]=XX41; B[N1][1]=YY41; } } if(fabs(ALX2-ALX1)>=EPS && fabs(XX[3]-XX[0])<EPS){ AK=(ALY2-ALY1)/(ALX2-ALX1); BB=ALY1-AKALX1; XX42=XX[3]; YY42=AKXX42+BB; VALUE1=(YY42-YY[0])(YY42-YY[3]); VALUE2=(YY42-ALY1)(YY42-ALY2); VALUE3=(XX42-ALX1)(XX42-ALX2); if(VALUE1<=0 && VALUE2<=0 && VALUE3<=0){ N1=N1+1; B[N1][0]=XX42; B[N1][1]=YY42; } } if(fabs(ALX2-ALX1)>=EPS && fabs(XX[3]-XX[0])>=EPS){ AK41=(YY[0]-YY[3])/(XX[0]-XX[3]); AK=(ALY2-ALY1)/(ALX2-ALX1); if(fabs(AK41-AK)>=EPS){ B41=YY[3]-AK41XX[3]; BB=ALY1-AKALX1; XX43=(BB-B41)/(AK41-AK); T=XX43; YY43=AKT+BB; VALUE1=(YY43-YY[0])(YY43-YY[3]); VALUE2=(YY43-ALY1)(YY43-ALY2); VALUE3=(XX43-ALX1)(XX43-ALX2); if(VALUE1<=0 && VALUE2<=0 && VALUE3<=0){ N1=N1+1; B[N1][0]=XX43; B[N1][1]=YY43; } } } } if(N1==2){ TTT21=B[0][0]; TTT22=B[1][0]; TTT23=B[0][1]; TTT24=B[1][1]; if(TTT21==TTT22 && TTT23==TTT24) N1=1; } 8888: