The R Project SVN R

Rev

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

Rev 81944 Rev 85252
Line 41... Line 41...
41
> for (n1 in 1:7)
41
> for (n1 in 1:7)
42
+     print(zapsmall(polyroot(1:n1), digits = 10))
42
+     print(zapsmall(polyroot(1:n1), digits = 10))
43
complex(0)
43
complex(0)
44
[1] -0.5+0i
44
[1] -0.5+0i
45
[1] -0.3333333+0.4714045i -0.3333333-0.4714045i
45
[1] -0.3333333+0.4714045i -0.3333333-0.4714045i
46
[1] -0.0720852+0.6383267i -0.6058296+0.0000000i -0.0720852-0.6383267i
46
[1] -0.07208521+0.6383267i -0.60582959+0.0000000i -0.07208521-0.6383267i
47
[1]  0.1378323+0.6781544i -0.5378323+0.3582847i -0.5378323-0.3582847i
47
[1]  0.1378323+0.6781544i -0.5378323+0.3582847i -0.5378323-0.3582847i
48
[4]  0.1378323-0.6781544i
48
[4]  0.1378323-0.6781544i
49
[1]  0.2941946+0.6683671i -0.3756952+0.5701752i -0.3756952-0.5701752i
49
[1]  0.2941946+0.6683671i -0.3756952+0.5701752i -0.3756952-0.5701752i
50
[4]  0.2941946-0.6683671i -0.6703320+0.0000000i
50
[4]  0.2941946-0.6683671i -0.6703320+0.0000000i
51
[1]  0.4106842+0.6398894i -0.6341119+0.2876550i -0.2051437-0.6837970i
51
[1]  0.4106842+0.6398894i -0.6341119+0.2876550i -0.2051437-0.6837970i