|
D.12.1.4 wurzel
Procedure from library aksaka.lib (see aksaka_lib).
- Usage:
- wurzel(r);
- Assume:
- characteristic of basering is 0, r>=0
- Return:
- number, square root of r
Example:
| LIB "aksaka.lib";
ring R = 0,x,dp;
wurzel(7629412809180100);
==> 6883255456506864684920246597795190329323071015098860239643007750747986003\
90182946404812945810080840648012617803165947407931/7880401239278895842455\
8080200287227631288133096501076508010806854050675363758546037779405250512\
20740674571323129192
|
|