Minor fixes

Author: gvanuxem

Diff for: README.md

@@ -24,8 +24,7 @@ If you want to visualize your data using Julia, small support is provided using
 
 If you want to use [jFriCAS](https://jfricas.readthedocs.io/en/latest/) i.e. Jupyter support for FriCAS built with SBCL, make sure [hunchentoot](https://edicl.github.io/hunchentoot/) is installed. On a Debian like system you can add `hunchentoot` with <code>sudo apt install cl-hunchentoot</code> and issue, for example, <code>./configure --enable-gmp --enable-julia --enable-hunchentoot</code>.
 
-To know which categories/domains/packages are added to FriCAS issue in the
-FriCAS interpreter <code>)what things julia</code> and/or <code>)what things nemo</code> or use HyperDoc. Another source of information can be found in HTML format [here](https://gvanuxem.github.io/jlfricas.documentation/).
+A source of information can be found in HTML format [here](https://gvanuxem.github.io/jlfricas.documentation/).
 Take into account that this is absolutely not the official documentation even though it is highly based on the official FriCAS web site which can be built from the FriCAS source code (thanks to Ralf Hemmecke and Kurt Pagani for their amazing work). 
 
 If you want to build and install the HTML documentation,

Diff for: src/algebra/jnpadic.spad

@@ -110,8 +110,9 @@ ExtendedNMPadicInteger(p : NMInteger, prec : NMInteger) : Exports == Implementat
     ++ 0() creates the default Big-oh from domain parameters.
     O : () -> %
     ++ 0() returns the default Big-oh from domain parameters.
-    prime : () -> NMInteger
-    ++
+    prime : % -> NMInteger
+    ++ prime(x) returns the modulus used for x.
+    ++ Convenience function.
     precision : % -> NMInteger
     ++ 
   Implementation ==> add
@@ -149,7 +150,7 @@ ExtendedNMPadicInteger(p : NMInteger, prec : NMInteger) : Exports == Implementat
 
     --euclideanSize(x) == order(retract x)
 
-    prime() == p
+    prime(x) == p
     precision(x) == prec
     sqrt(x) == junfunc("sqrt",x)
     valuation(x) == junfunc("valuation",x)

Diff for: src/algebra/jwsexpr.spad

@@ -126,6 +126,8 @@ JLWSExpression() : Exports == Implementation where
     sphericalHankelH2 : (% , %)-> %
     ++ sphericalHankelH2(n,z) computes the spherical Hankel
     ++ of the second kind of z.
+    weberE : (%, %, %) -> %
+    ++ weberE(v,n,z) is the associated Weber E function.
     dirichletL : (%, %, %) ->  %
     ++ dirichletL(k,j,s) returns Dirichlet L-function of s, modulus k,
     ++ index j.
@@ -1264,6 +1266,8 @@ JLWSExpression() : Exports == Implementation where
     sphericalHankelH2(n,z) == jbinfunc("W_"SphericalHankelH2_"(", n,z)
     struveH(n,z) == jbinfunc("W_"StruveH_"(", n,z)
     struveL(n,z) == jbinfunc("W_"StruveL_"(", n,z)
+    weberE(n,z) == jbinfunc("W_"WeberE_"(", n,z)
+    weberE(v,n,z) == jterfunc("W_"WeberE_"(", v,n,z)
 
     -- Check k > s ?
     dirichletL(k,j,s) == jterfunc("W_"DirichletL_"(", k,j,s)
@@ -1831,7 +1835,7 @@ JLWSExpression() : Exports == Implementation where
       sexpr := toString(expr, jWSExpr concat("PageWidth -> ", pagew))
       str : String := jlEvalString(concat(["replace(_"", sexpr,
         "_", '[' => '(', ']' => ')', _"ArcS_" => _"as_", _"ArcC_" => _"ac_",",
-        " _"ArcT_" => _"at_" , r_"\b[A-Z][a-z]{3}_" => x -> lowercase(x))"]))
-      l := split(sexpr, newline())
+        " _"ArcT_" => _"at_" , r_"\b[A-Z][a-z]{2}_" => x -> lowercase(x))"]))
+      l := split(str, newline())
       #l > 1 => pile(append([""],l) pretend List(OutputForm))
       str pretend OutputForm

Diff for: src/algebra/jwsnsf.spad

@@ -69,6 +69,8 @@ JLWSNumericalSpecialFunctions(R : JLWSNumber) : Exports ==Implementation where
         ++ angerJ(v, z) is the Anger J function.
     weberE : (R, R) -> R
         ++ weberE(v, z) is the Weber E function.
+    weberE : (R, R, R) -> R
+        ++ weberE(v, n, z) is the associated Weber E function.
     struveH : (R, R) -> R
         ++ struveH(v, z) is the Struve H function.
     struveL : (R, R) -> R
@@ -745,6 +747,10 @@ JLWSNumericalSpecialFunctions(R : JLWSNumber) : Exports ==Implementation where
       ret : R := jterfunc("W_"WhittakerW_"(", k,m,z)
       jtypeassert(z,ret)
       ret
+    weberE(v,n,z) ==
+      ret : R := jterfunc("W_"WeberE_"(",v,n,z)
+      jtypeassert(z,ret)
+      ret
     parabolicCylinderD(v,z) ==
       ret : R := jbinfunc("W_"ParabolicCylinderD_"(", v, z)
       jtypeassert(z,ret)