MaplePrimes - Questions and Posts tagged with module

Objects in Maple 16

gwpatrick — Tue, 15 May 2012 16:08:19 Z

(1) Does ModuleCopy, when automatically called from Object, really get the a shallow copy of the object

as the first parameter in its parameter list? See below, which is copied directly from ?object,create. The

ModuleCopy has first argument new::Dollar but ModuleApply only passes its two arguments not three. I

couldn't find a reference to this feature in the docs.

Remove package module

Christopher2222 — Tue, 21 Feb 2012 23:50:02 Z

I converted the package,module to a worksheet then executed the example before realizing it all executes at once.

MyPackage := module()
        export f1, f2;
        local   loc1;
        option package;
        f1 := proc() loc1 end proc;
        f2 := proc( v ...

Error, invalid input: with expects its 1st argument, pname

marram — Mon, 13 Feb 2012 07:46:17 Z

http://www-igm.univ-mlv.fr/~gauthier/HYPERG.html

> Read("D:/Feb2012/HYPERG.mw"); with(HYPERG);
Error, invalid input: with expects its 1st argument, pname, to be of type {`module`, package}, but received HYPERG

HYPERGLIB := "D:/Feb2012/";
libname := libname, HYPERGLIB:

both methods above.

after typing PolyRecSol(H...

no result in Maple 15, just return similar command, no equation return.

Bug in CodeTools:-EncodeName / DecodeName?

IanLisle — Fri, 10 Feb 2012 07:11:56 Z

Is there a bug in the CodeTools:-EncodeName / DecodeName pair?

Consider the following minimal example:

with(CodeTools):
M := module() option package; export f; f := proc() end proc; end module;
EncodeName(M:-f);
DecodeName(%);

The EncodeName gives answer:

_Inert_ASSIGNEDLOCALNAME("f", "PROC", 0, _Inert_ATTRIBUTE(_Inert_NAME("protected", _Inert_ATTRIBUTE(_Inert_NAME("protected")))))

But applying...

Overloading the * operator (for nested functions)

Garlando — Sat, 05 Nov 2011 10:33:33 Z

I have a module to overload the * operator for the function f such that:

a*f(b,c,d) = f(a*b,a*c,a*d)

FPackage := module()option package; export `*`; `*` := overload ( [ proc(a::algebraic, b::specfunc(anything, f)) option overload; map2(:-`*`, a, b...

Dual numbers, dual quaternions, attempting to define basic algebra

khrcak — Mon, 05 Sep 2011 15:21:49 Z

Hello,

I would like to write some functions and algebra that work with dual numbers.

http://en.wikipedia.org/wiki/Dual_number

http://en.wikipedia.org/wiki/Dual_quaternion

I have not found a library that supports this.

The basis of dual numbers it is epsilon^2=0, similar to i,j,k in complex algebra where i^2=-1,i*j=-1 etc.

interface(verboseproc=3) doesn't allow seing module source code...

lu4 — Tue, 12 Jul 2011 08:44:27 Z

I know Maple has/had opensource ideas behind it, that's why

interface(verboseproc=3)

print(sum)

allows seing source code for function sum, but what if I want to see the source code for local procedures in Statistics module,

for example

print(Statistics[Distribution])

>proc() local T; try if type(args[1],':-ProbabilityDistribution') then if nargs=1 then return eval(args[1...

Changes in sqrt for Maple 15 — procedure versus module

fbackelj — Thu, 26 May 2011 09:33:49 Z

Hello all,

I've noticed that something has changed to the type of sqrt in Maple 15, which breaks backward compatibility...

In Maple 14, we have

> type(sqrt,procedure);          true
> type(sqrt,`module`);          false

> eval(sqrt);          proc(x::algebraic, f::identical(symbolic))  ...  end proc

while in Maple 15, we have

> type(sqrt,procedure);          false
> type(sqrt,`module`);          true

Get the module of a export

Rex Pan — Wed, 18 May 2011 08:30:10 Z

How could we get module which contain this export, for example

I have

m1 := module export a; end module;

temp := m:-a;

evalb(temp = a);
# false
evalb(temp = m:-a);
# true

but how could I get back the module like this

temp2 := getModule(temp);

temp2;

# m

evalb(temp2 = m) ;

# true

Debugging a module

Budgie — Mon, 02 May 2011 08:46:36 Z

I'm trying to debug my module, but cannot find the problem! The problem areas are marked with red. Can you help?

Modul.mw

User friendly package

Budgie — Wed, 27 Apr 2011 06:15:57 Z

Hello

I'm working on a project, where I need to create some user friendly proc/modules. I need it to ask for the variables e.i.

'Enter equation'

'Define range'

etc. but I have no idea how to do so. Can you describe a method of doing so?

Problem returning a value from an exported object of a module

edvanderplug — Sun, 13 Mar 2011 17:02:28 Z

When a procedure is called that is nested inside of a module, it returns its own name rather than the value it calculates. E.g. here is a very simple package:

somePackage := module ()

export someproc;

someproc := proc (yr)

return (2010);

end proc

end module;

That compiles fine. But when this is executed:

somePackage[someproc];

The...

Custom lib can't call other libs

hanswurst — Sun, 12 Sep 2010 14:27:22 Z

Hi there,

i've wirtten a library for maple12, say "MyLib", which is given by the files "MyLib.ind" and "MyLib.lib".

I've done this via

> restart;
> march('create', "<path>/MyLib.lib", 1);
>
> read "functions.txt";
>
> savelibname:="<path>";
> savelib( `MyLib` );

where "functions.txt" is given as

MyLib:= module()

sequence of export variables in a module matter

mscheer — Wed, 01 Sep 2010 08:32:29 Z

hi all,

swapping variables in the export line of a module changes its behavior.

First Example (works fine):

restart;
mp:= module() option package;
export mult, f2;
mult:=proc(v) return(3*v) end proc;
f2 :=proc(v) mult(v); end proc;
end module;

savelibname:="E:\\tmp";
savelib('mp');

restart;
libname := libname, "E:\\tmp";

with(mp);
mp:-f2(5);
mp:-mult(4);

# Output: [f2,mult], 15, 12

How to extract restriction of numerical solution of PDE?

hirnyk — Tue, 20 Jul 2010 14:58:50 Z

The numerical solution of PDE with IBC is given as a module: Download PDE1.mw . How to extract u(0.5,t) and u'_t(0.5,t) from this solution? Thanks in advance.