Subversion Repositories wimsdev

Rev

Rev 2071 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2071 Rev 4761
Line 29... Line 29...
29 
 !endif
 29 
 !endif
30 
!endif
 30 
!endif
31 
result=!exec pari eq=$fml; a=polcoeff(eq,1,x); print(a);\
 31 
result=!exec pari eq=$fml; a=polcoeff(eq,1,x); print(a);\
32 
	b=polcoeff(eq,1,y); print(b);\
 32 
	b=polcoeff(eq,1,y); print(b);\
33 
	c=polcoeff(polcoeff(eq,0,x),0,y); print(c);\
 33 
	c=polcoeff(polcoeff(eq,0,x),0,y); print(c);\
34 
	print(sqrt(a^2+b^2));
 34 
	print(truncate(sqrt(a^2+b^2)));
35 
result=!nonempty lines $result
 35 
result=!nonempty lines $result
36 
!distribute lines $result into a,b,c,n
 36 
!distribute lines $result into a,b,c,n
37 
m=$[abs($c)/$n]
 37 
m=$[abs($c)/$n]
38 
cnt=!linecnt $result
 38 
cnt=!linecnt $result
39 
!ifval $cnt!=4 or $n=0 or NaN isin $m or Inf isin $m
 39 
!ifval $cnt!=4 or $n=0 or NaN isin $m or Inf isin $m