User Portlet
Discussions |
---|
Hi everybody! I'm interessed in the behavior near zero of a function depending on a positive parameter"p": Cas2a[\[Phi]_] := Sqrt[-((p + (1 + p) (-1 + (1/(1 + p))^\[Phi]) \[Phi] PolyGamma[ 1, \[Phi]])/(p (1 + p)^2... |
Hello Ana Luiza, first, locate the maxima: f[x_, y_] := Exp[-y^2 - x^4/4 + x^2]; Plot3D[f[x, y], {x, -2.5`, 2.5`}, {y, -2.5`, 2.5`}] Zone = Polygon[{{-2.5, -2.5}, {-2.5, 2.5}, {2.5, 2.5}, {2.5, -2.5}}]; Sup1 = ArgMax[f[x, y],... |
Hello, this is a question about the transformation of a uniform distribution leading to a "standard" Pareto one. Here are two formulas A and B (densities) resulting from this transformation: A[v_] := (1/D[1/u^(1/a), u]) /. u -> 1/v^a... |
Hi Leonid, "assist" works under R installed on my machine: ![enter image description here][1] [1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Exemple.JPG&userId=422641 It seems the problem stems... |
Hello Alex, that's simple: just use the Quantile function Quantile[BetaDistribution[a, b], 0.05] |
Hi Henrik, the problem is that your data do not consist in an array. You could try to make an array of the same size (approximatively): f1 = Interpolation[t1] {xmin, xmax} = {300, 1600}; {ymin, ymax} = {320, 375}; and... |
Notice first that the problem can be simplified, since function[0, 0]=1, and one can compute K=NIntegrate[LKLH[x, y], {x, -100, 100}, {y, -100, 100}]. Now, we can define, with the same function: Truc[nth_] := nth Exp[-nth]; LKLH[x_, y_]... |
Ok, I see. Thanks a lot! |
Yes, this is strange! To eliminate complex solutions, you coud compute: Res = Solve[(1 + r)^81 == 1.45, r, Reals] Map[1.45 - (1 + r)^81 /. # &, Res] // Chop which gives r=-1 as a multiple solution and, finally, the correct one :... |
I think FindRoot is not the right option in your case. limit[tt_, gamma_] := Solve[((tt)^(1/2) (-250*((tt)^(-3/2) - t^(-3/2)) + 1/(10^3*t^(1/2))) == 1/gamma), {t}]; And then NIntegrate[ gamma*tprime,... |