Question: fsovle no result

Could any one see what maybe the problems pls?

 

restart; eq1 := sqrt((p-pa)^2+((R*q)/((1+alpha-alpha/cos(beta))))^2)-R*(d+pa*tan(beta))=0; (1/2) / 2 2 \ | 2 R q | |(p - pa) + ------------------------| - R (d + pa tan(beta)) = 0 | 2| | / alpha \ | | |1 + alpha - ---------| | \ \ cos(beta)/ / eq2:=p =(q-d)/(tan(beta)); q - d p = --------- tan(beta) > PA:=[ 3.407687107, 12.57613702, 28.33501187, 49.31002438, 72.79424702 ]; [3.407687107, 12.57613702, 28.33501187, 49.31002438, 72.79424702] RR:=[ 0.345379977, 0.468885097, 0.519095736, 0.598834311, 0.695598695]; [0.345379977, 0.468885097, 0.519095736, 0.598834311, 0.695598695] B:=[70/180*3.141,70/180*3.141,70/180*3.141,70/180*3.141,70/180*3.141]; [1.221500000, 1.221500000, 1.221500000, 1.221500000, 1.221500000] D1:=[0.23400982, 0.461156422, 0.851842304, 1.491642099, 2.497375975]; [0.23400982, 0.461156422, 0.851842304, 1.491642099, 2.497375975] A:=[0.02,0.02,0.02,0.02,0.02]; [0.02, 0.02, 0.02, 0.02, 0.02] > for i to 5 do pa:=PA[i]; R:=RR[i]; beta:=B[i]; d:=D1[i]; alpha:=A[i]; print(i,fsolve({eq1,eq2},{p=0..infinity,q=0..infinity})) od: 1, {p = 3.270541946, q = 9.213310232} / / (1/2) |{ / 2 2\ 2, fsolve\ \\(p - 12.57613702) + 0.2377821524 q / - 16.40584239 = 0, \ } p = 0.3642312648 q - 0.1679675869/ , {p, q}, \ | {p = 0 .. infinity, q = 0 .. infinity}/ / / (1/2) |{ / 2 2\ 3, fsolve\ \\(p - 28.33501187) + 0.2914347388 q / - 40.82472831 = 0, \ } p = 0.3642312648 q - 0.3102675998/ , {p, q}, \ | {p = 0 .. infinity, q = 0 .. infinity}/ / / (1/2) |{ / 2 2\ 4, fsolve\ \\(p - 49.31002438) + 0.3878463841 q / - 81.96408613 = 0, \ } p = 0.3642312648 q - 0.5433026883/ , {p, q}, \ | {p = 0 .. infinity, q = 0 .. infinity}/ / / (1/2) |{ / 2 2\ 5, fsolve\ \\(p - 72.79424702) + 0.5233158784 q / - 140.7575910 = 0, \ } p = 0.3642312648 q - 0.9096224101/ , {p, q}, \ | {p = 0 .. infinity, q = 0 .. infinity}/ >

Please Wait...