Hi everybody. I have an impicit function that I want to solve numerically in mathematica it looks like:(adsbygoogle = window.adsbygoogle || []).push({});

(It's my first time doing something like this so if the code does not work, please say so)Code (Text):f[x] == b1 \!\(

\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(L\)]\(c[

x, \[Alpha]] f[\[Alpha]]

SuperscriptBox[\(E\), \(-\(

\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Alpha]\)]f[\[Eta]] \

\[DifferentialD]\[Eta]\)\)] \[DifferentialD]\[Alpha]\)\) + b2 \!\(

\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(L\)]\(c[

x, \[Alpha]] \[Rho][\[Alpha]] \(

\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Alpha]\)]f[\[Xi]]

SuperscriptBox[\(E\), \(\(-\(

\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Xi]\)]f[\[Eta]] \

\[DifferentialD]\[Eta]\)\) -

\*SubsuperscriptBox[\(\[Integral]\), \(\[Xi]\), \(\[Alpha]\)]\[Rho][\

\[Eta]] \[DifferentialD]\[Eta]\)] \[DifferentialD]\[Xi] \

\[DifferentialD]\[Alpha]\)\)\)

When I put it in mathematica f will be the only unknown. For simplicity it can be assumed at first that c is constant (This one is already solvable for me, next it will probably be a step function, not continuous) and rho is constant (it will be some smooth function)

This is for me a rather hard cookie to crack. I hope there is someone who reads this who can tell me how to do this. Sorry I don't have all the functions yet.

Edit: I use mathematica version 7.0.1.0

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Difficult implicit function in mathematica.

**Physics Forums | Science Articles, Homework Help, Discussion**