Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
28
Task/Vector/Maple/vector-1.maple
Normal file
28
Task/Vector/Maple/vector-1.maple
Normal file
|
|
@ -0,0 +1,28 @@
|
|||
module MyVector()
|
||||
option object;
|
||||
local value := Vector();
|
||||
|
||||
export ModuleApply::static := proc( )
|
||||
Object( MyVector, _passed );
|
||||
end proc;
|
||||
|
||||
export ModuleCopy::static := proc( mv::MyVector, proto::MyVector, v::Vector, $ )
|
||||
mv:-value := v;
|
||||
end proc;
|
||||
|
||||
export ModulePrint::static := proc(mv::MyVector, $ )
|
||||
mv:-value;
|
||||
end proc;
|
||||
|
||||
|
||||
# operations:
|
||||
export `+`::static := proc( v1::MyVector, v2::MyVector )
|
||||
MyVector( v1:-value + v2:-value );
|
||||
end proc;
|
||||
|
||||
export `*`::static := proc( v::MyVector, scalar_val::numeric)
|
||||
MyVector( v:-value * scalar_val);
|
||||
end proc;
|
||||
|
||||
|
||||
end module:
|
||||
7
Task/Vector/Maple/vector-2.maple
Normal file
7
Task/Vector/Maple/vector-2.maple
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
a := MyVector(<3|4>):
|
||||
b := MyVector(<5|4>):
|
||||
|
||||
a + b;
|
||||
a - b;
|
||||
a * 5;
|
||||
a / 5;
|
||||
Loading…
Add table
Add a link
Reference in a new issue