ContextMenu[CurrentContext][Queries]
Get
get procedure associated with query
Calling Sequence
Parameters
Description
Examples of Queries[Get]
Queries[Get](nm)
nm
-
string; name of query in context menu module
The Queries[Get] command returns the procedure associated with the query named nm in the context menu module. This command may be used to examine the procedure associated with nm, or to apply this procedure directly to some object, for example, to map over a list.
with(ContextMenu[CurrentContext]):
Get the procedure associated with the query named "Variables".
q := Queries[Get]("Variables");
q:=proclocal_x,t,i,j,rgs,inds,mask,T;globalCM_GenVars;descriptionreturn variables present in the expression;ifnargs=1andtypeargs[1],'rtable'and`type/rtable/AcceleratedTable`[args[1],has_name]=falsethenreturnelifnargs=1andtypeargs[1],'function'andStandardContext:-Queries:-RunMapleNonMathFunction,argsthenreturnend if;mask:=1;mask:='mask';t:='Not''name','specindex''anything',mask,'specindex''anything',`?`,_rtable;rgs:=args;inds:=indetsargs,specfuncidentical'`%id`'='integer','Array','Matrix','Vector','VectorCalculus:-Vector','Student:-VectorCalculus:-Vector','Vector[column]','Vector[row]','VectorCalculus:-Vector[column]','VectorCalculus:-Vector[row]','Student:-VectorCalculus:-Vector[column]','Student:-VectorCalculus:-Vector[row]';ifinds<>theninds:=seqi=Matrix'`%id`'=op1,2,i,i=inds;ifhasinds,'_rtable'thenerrorinvalid rtable referenceend if;rgs:=subsinds,rgsend if;foritonopsrgsdoiftypergs[i],'rtable'andStandardContext:-Queries:-RunConstantRTable,rgs[i]thenrgs:=subsopi=mask[0],rgsend ifend do;inds:=indetsrgs,'rtable';inds:=selecta→StandardContext:-Queries:-RunConstantRTable,a,inds;ifinds<>thenrgs:=subsseqinds[i]=mask[−i],i=1..nopsinds,rgsend if;inds:=indetsrgs,'specfunc''GRAPHLN';ifinds<>thenrgs:=subsseqinds[i]=mask[i],i=1..nopsinds,rgsend if;t:=tunion'And''symbol','suffixed''`Graph `';inds:=indetsrgs,'specfunc''RootOf';foritonopsindsdoj:=indetsopi,1,inds,'name';if1<nopsopi,indsandtypeopi,2,inds,`=`andtypeopi,2,1,inds,'name'thenj:=jminusopi,2,1,inds;rgs:=subsinds[i]=mask[i,j],rgselifnopsj=1thenrgs:=subsinds[i]=mask[i,],rgsend ifend do;inds:=indetsrgs,'table';foritonopsindsdorgs:=subsinds[i]=Tseqj=inds[i][opj],j=indicesinds[i],rgsend do;try_x:=remove'type',indetsrgsminus'`...`','otherwise'unioniftypeCM_GenVars,'set',CM_GenVars,,t;_x:=sortconvert_x,'list';_x:=selectvar,expr→dependsexpr,varandtypevar,'last_name_eval'ornotassignedvar,_x,rgs;inds:=selecttype,_x,'specfunc''piecewise';ifinds<>thent:=indetsseqseqop2*j − 1,i,j=1..iquonopsi,2,iininds;_x:=removemember,_x,tend if;t:=indetsargs,'specfunc':-Units:-Unit,:-Unit;t:=indetsmapop,t;_x:=removemember,_x,t;_x:=removetype,_x,'RandomVariable';_x:=seqi,sprintf%a,i,i=_x;_x:=sort_x,proca,blocalta;ta:=typea[1],'indexed';ifta=typeb[1],'indexed'thenlexordera[2],b[2]elsenottaend ifend proc;_x:=map2op,1,_x;_xcatch:end tryend proc
Map this procedure over a list.
map(q, [1, x, x*y*z^2]);
,x,x,y,z
See Also
ContextMenu
Queries/Add
Queries/List
Queries/Run
Download Help Document
