Message
par lambdalpha » 05 mars 2010 19:33
with(LibraryTools);
[ActivationModule, AddFromDirectory, Author, Browse, BuildFromDirectory,
ConvertVersion, Create, Delete, FindLibrary, PrefixMatch, Priority, Save,
ShowContents, Timestamp, UpdateFromDirectory, WriteMode]
savelibname := "//Library/Frameworks/Maple.framework/Versions/13/lib/elementsolaire.lib";
"//Library/Frameworks/Maple.framework/Versions/13/lib/elementsolaire.lib"
elemsolaires:=table();
elemsolaires[MHoraire]:= proc(t)
local h,H;
h:=Pi*((t/12)-1);
H:=matrix([[-cos(h),-sin(h),0],[sin(h),-cos(h),0],[0,0,1]]);
RETURN(H);
end;
proc(t) ... end;
elemsolaires[MLatitude]:=phi->matrix([[sin(phi),0,-cos(phi)],[0,1,0],[cos(phi),0,sin(phi)]]);
[sin(phi) 0 -cos(phi)]
[ ]
phi -> [ 0 1 0 ]
[ ]
[cos(phi) 0 sin(phi) ]
elemsolaires[MSecli]:=theta -> matrix([[cos(theta),-sin(theta),0],[sin(theta),cos(theta),0],[0,0,1]]);
[cos(theta) -sin(theta) 0]
[ ]
theta -> [sin(theta) cos(theta) 0]
[ ]
[ 0 0 1]
elemsolaires[MIncli]:=i -> matrix([[sin(i),0,cos(i)],[0,1,0],[-cos(i),0,sin(i)]]);
[sin(i) 0 cos(i)]
[ ]
i -> [ 0 1 0 ]
[ ]
[-cos(i) 0 sin(i)]
elemsolaires[cadran]:=omicron -> plot3d(0,x=-omicron..omicron,y=-omicron..omicron);
omicron -> plot3d(0, x = -omicron .. omicron, y = -omicron .. omicron)
elemsolaires[raysol] := delta -> vector([cos(delta),0,-sin(delta)]);
delta -> [cos(delta), 0, -sin(delta)]
savelib(elemsolaires);
Error, could not open `//Library/Frameworks/Maple.framework/Versions/13/lib/elementsolaire.lib/elemsolaires.m` for writing
restart;
with(LibraryTools);
[ActivationModule, AddFromDirectory, Author, Browse, BuildFromDirectory,
ConvertVersion, Create, Delete, FindLibrary, PrefixMatch, Priority, Save,
ShowContents, Timestamp, UpdateFromDirectory, WriteMode]
with("\Program Files\Maple 9/lib\elementsolaire.lib");
Error, invalid input: with expects its 1st argument, pname, to be of type {`module`, package}, but received Program FilesMaple 9/liblementsolaire.lib