Hallo,

Ich möchte in Mathematica das Gleichungssystem
r_x=1/R (sum(p_xy ^\a r_y ^(1-\a),y))^1\/\a, R=sum((sum(p_xy ^\a r_y ^(1-\a),y))^1\/\a,x)
r_y=1/R' (sum(p_xy ^\a r_x ^(1-\a),x))^1\/\a, R'=sum((sum(p_xy ^\a r_x ^(1-\a),x))^1\/\a,y)
lösen, wobei \a\in\ (0,1)\union\ (1,\inf) und p_xy>=0 mit sum(p_xy,xy)=1 gegeben sind. Gesucht sind die r_x und r_y , wobei x\in\ {1,...,n} und y\in\ {1,...,m} .
Für n=m=2 gibt das vier Gleichungen, die ich von Hand eingegeben habe und mit FindRoot sehr schnell gelöst werden konnten. Bei mehr Gleichungen wird das Eingeben von Hand natürlich sehr mühsam, kann ich das irgendwie automatisieren?

Vielen Dank,
traveller