-----BEGIN PGP SIGNED MESSAGE-----
In meiner Diplomarbeit erwähne ich Box-Splines... Diese lassen sich
leicht über Integrale berrechnen. Erzielt wird dies durch die
folgende B-Funktionen (max. 2 Richtungen).
In eine Richtung (test1) funktioniert das Programm ohne Probleme.
Wenn ich 2 Richtungen angebe (test2), so verweigert Mathematica V3.0
die Berrechnung. Dabei stürtzt nicht nur Mathemtaica, sondern sogar
NT4.0 (!) ab. Ich bitte um Hilfe. Vielleicht kann sogar jemand diese
Funktionen berrechnen und mir das Notebook übermitteln
B[{x_,y_},{}]:=If[And[-0.5<=x<=0.5,-0.5<=y<=0.5],1,0];
B[{x_,y_},{L_}]:=N[Integrate[B[{x,y}+t*L,{}],{t,-0.5,0.5}]];
B[{x_,y_},{L_,K_}]:=
N[Integrate[Integrate[B[{x,y}+t*L+u*K,{}],{t,-0.5,0.5}],{u,-
0.5,0.5}]];
CalcValue3D[{x1_,x2_},Funkt_]:=N[{x1,x2,Funkt /.{x->x1,y->x2}}];
Unterteile[StartPunkt_,EndPunkt_,Teile_,Funkt_]:=
Table[Line[{CalcValue3D[StartPunkt+(EndPunkt-
StartPunkt)*i/Teile,Funkt]
,CalcValue3D[StartPunkt+(EndPunkt-StartPunkt)*(i+1)/Teile,Funkt]}]
,{i,0,Teile-1}];
test1={{1,1}}
bsp1line1=Table[Unterteile[{-2,j},{2,j},4,B[{x,y},test1]],{j,-2,2}];
bsp1line2=Table[Unterteile[{j,-2},{j,2},4,B[{x,y},test1]],{j,-2,2}];
bsp1line3=Table[Unterteile[{j,-2},{2,-j},4,B[{x,y},test1]],{j,-2,1}];
bsp1line4=Table[Unterteile[{-2,j},{-j,2},4,B[{x,y},test1]],{j,-1,1}];
grid1 = Graphics3D[Join[bsp1line1,bsp1line2,bsp1line3,bsp1line4]];
Show[grid1]
graf1 = Plot3D[B[{x,y},test1],{x,-2,2},{y,-2,2}
,{PlotRange->{0,1},PlotPoints->80,Mesh->False}]
test2={{1,1},{1,0}}
bsp2line1=Table[Unterteile[{-
3,j+0.5},{3,j+0.5},60,B[{x,y},test2]],{j,-3,2}];
bsp2line2=Table[Unterteile[{j,-3},{j,3},60,B[{x,y},test2]],{j,-3,3}];
bsp2line3=Table[Unterteile[{j+0.5,-3},{3,-j-
0.5},60,B[{x,y},test2]],{j,-3,2}];
bsp2line4=Table[Unterteile[{-3,j+0.5},{-j-
0.5,3},60,B[{x,y},test2]],{j,-3,2}];
grid2 = Graphics3D[Join[bsp2line1,bsp2line2,bsp2line3,bsp2line4]];
Show[grid2]
graf2 = Plot3D[B[{x,y},test2],{x,-3,3},{y,-3,3}
,{PlotRange->{0,1},PlotPoints->60,Mesh->False}]
mfg
Alexander Stromberger-Wissiak
P.S.:
- -------- a message from ----------
Alexander Stromberger-Wissiak (alias Obelix)
Uteweg 35
9020 Klagenfurt
Austria
Tel. +43-463-419227
Pager 0669-9032222
e-mail: astrombe@XXXXXXX.at
W3: http://www.edu.uni-klu.ac.at/~astrombe
BBS: Obelix on karanet.edu.uni-klu.ac.at
- ------------- PGP Public Keys --------------
User ID: Alexander Stromberger-Wissiak <astrombe@XXXXXXX.at>
Key Type: RSA
Key fingerprint = 1DFF C5CA F89B 7AC6 4F45 2336 3EA1 6985
Key Type: DSS/Diffie-Hellman
Key fingerprint = D128 9EC7 107C 7355 29FC D73E 4EAF 957E 4D38 34FE
- ----------------------
-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv
iQEVAwUBNG2eRfIbwLcFhtQ1AQGv6Qf+Mx8IE7NPgAEKEOwlz8SLToFHbj6zyLS1
cQLZfKk17wp/Y7NMfGB6eBPfnUizxbg1rdPmQfTR+rggOkGwLXxvze1UZ8XLrr5p
tYxxNW8gQxBopgKcsL9iV2GPRWRHvNA/q383M1OuGznCuPOGxDPNXjKYpO1LgIsc
CTdKMTcSls+aIELKSZbbRCEGGVQDEgb7XO40i6zsPyNNw5pt8Y14RiCLzWdgbkxM
UfV23pNI6RvScKCR5vhQ/9JoXeOAxrhO0yJrT8lTbe4aaQEP40/7ff/ajzeGSXku
1jwtLl6CQd6MPwMnVo8fyafdsI2UqmIevvDiP3Dn9MUyPyGApWjWOQ==
=GTbS
-----END PGP SIGNATURE-----
|