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}]