User Portlet
| Discussions |
|---|
| k1 = {{{1, 1}, {1, 1}}, {}} ; k11 = {{{1, 1}}, {{0, 1}}}; g = (1 + 10^(15/10)); out = Abs[Hfunction[k1, k11, g, 2000] ]; Print[out]; (** gives 3.5152 **) (**************) and N[Log[1 + 10^(15/10)]] (** gives 3.48501 **) |