[Date Index] [Thread Index] [Author Index]

Solve

• To: mathgroup at smc.vnet.net
• Subject: [mg18831] Solve
• From: steffenz at server2.fo.FH-Koeln.DE
• Date: Thu, 22 Jul 1999 08:19:41 -0400
• Sender: owner-wri-mathgroup at wolfram.com

Hi !

I try to use solve but mathematica neads houers eating up all memory 
but did not finish.
Is there any mistake in my programming or is this problem to 
complicate?

bye

Steffen


Einheits[vec_]:=vec/Sqrt[vec.vec];
Wink[vec1_,vec2_]:=ArcCos[Einheits[vec1].Einheits[vec2]];

v[alp_,bet_]:=Einheits[{Tan[bet],Tan[alp],1}];
vlam[alp1_,bet1_,alp2_,bet2_]:=Einheits[-v[alp1,bet1]+v[alp2,bet2]];
quell[vec_,fac_:1.3]:=Einheits[vec*{1,1,1/fac}];

Solve[{Evaluate[Wink[v[a12,b12],v[a22,b22]]==Wink[v[a11,b11],v[a21,b21
]]],
Evaluate[vlam[a12,b12,a22,b22]==quell[vlam[a11,b11,a21,b21]]]},{a11,b1
1,a21,
    b21}]