Hi,

I havent used Mathematica earlier, so I apologise for my blatant lack of knowledge.

Ive been trying to find a solution to a problem (duh!). I need to find a function that comes very close to these points: {{0.1,30},{0.5,1},{0.95,0.1}}, but which also resembles in its shape the left-and-a-little-bit-of-the-right slice of a cotangent plot (in that it first drops in a steep way, almost levels itself and then starts dropping again; but not in a symmetrical way the first drop is steeper than the second one). The domain of the function would be (0,1].

First I tried to tackle this by solving a system of equations. I decided that the (0,0.8*Pi] slice of the cotangent plot should be a good start, and so I went with this general idea for the form of the function:

C* (cot[A * 0.8 * Pi * x] + B)

where C would be the vertical scale, B for shifting vertically and A would widen/tighten the horizontal shape of the function.

Thus, I go to this:

Solve[c*(cot[a*Pi*0.8*0.1]+b)==30&&c*(cot[a*Pi*0.8*0.5]+b)==1&&c*(cot[a*Pi*0.8*0.95]+b)==0.9,{a,b,c}]

Then NSolve and FindRoot, as the attempt was fruitless.

So then I tried NonlinearModelFit with the general form above. But even with heavily upped MaxIterations, the results werent even remotely useful (in fact, the more iterations it took, the more wrong the numbers were).

So
Im kinda stuck. Any ideas for further action?