Ronan

How to setup special type check in a pr...

Asked: Ronan 1401 Product: Maple 2024

November 09 2024

1 2

About 2 years ago I asked this question Application of how to test types in a module? - MaplePrimes on type checking and @CarlLove provided a great answer for inputs to a procedure in that package.

In the package I have a procdure to plot/draw lines. They require sorting out when there is a list of them The procedure recognises the different possible input formats. Could the types be defined in the procdure body. It would make sorting out a lot easier. I could possibly add them to Module load at the start of the package.

>

restart

>

>	# Line type #type _TNL1 expression type {`+`,`*`,`=`, `symbol`,procedure} 2D line or any expression function equation

>	#type _TNL2 listlist [[a,b],[c,d]] or [[a,b,c],[d,e,f]] 2D line just draws a line between the 2 points

>	#type _TNL4 listlist [[a,b,c],[d,e,f]] 3D line just draws a line between the 2 points

>	#type _TNL4 list of list & vector 2D [[a,b],<c,d>] or possibly [<c,d>,[a,b]] 2D generates line Ax+By+C

>	#type _TNL5 list of list & vector 3D [[a,b,c],<d,e,f>] or possibly [<d,e,f>,[a,b,c]] 3D line <a+alphad, b+alphae, c+alpha*f>

>	#type _TNL6 vector 3D <a+alphad, b+alphae, c+alphaf> 3D line <a+alphad, b+alphae, c+alphaf> checks indets to know

>	#type _TNL7 list of vector[row] and vector[row] [<a\|b\|c>, <d\|e\|f>] projective points are converted to [a/c,b/c] and [d/f,e/f] and line drawn between the points

>

sorts:=proc(l1::{list,set,Vector[column],`+`,`*`,`=`, `symbol`,procedure},
{range::list:=[-5,5,-4,4]},
{vars::list:=[':-x',':-y']},
{rangep::list:=[-3,3]},
{plopts::list:=[':-colour'=':-blue,magenta']})

description " sort the list of line formats and converts to plotable format ";

local i,n,Listsystem,subplt, subL, tmp, vv,ll,subpltemp;

      #single line;
if l1::{'Vector[column]',`+`,`*`,`=`, `symbol`,procedure} then
   n:=1;
   subplt:=[{}];
   if l1::'Vector[column]'(3) and indets(l1)={} then
      subL:=[l1[1]*vars[1]+l1[2]*vars[2]+l1[3]];
    else
      subL:=[l1];
   end if;
elif l1::list and nops(l1)= 2 and not(hastype(l1,set))then
    #for j to 2 do
    #   if l1[j][1]::listlist or l1[j][2]::listlist then

                                                        # this section not finished supposed
                                                        # to detect is the list is two line without extra plopts, range, rangexy
   #   end if;
   # end do;
   n:=1;
   subplt:=[{}];
    #print("here now");
   if hastype(l1,'Vector[column]'(3)) and hastype(l1,list) then
      #print("in here");
      vv:=(select(type,l1,('Vector[column]'(3)))[]);
      ll:=select(type,l1,list)[];
      #print("vv " ,vv, "ll",ll);
      subL:=[ll+~alpha*vv];
    elif hastype(l1,'Vector[column]'(2)) and hastype(l1,list) then
      vv:=(select(type,l1,('Vector[column]'(2)))[]);
      ll:=select(type,l1,list)[];
      subL:=[ (ll[2] - vars[2])*vv[1] - vv[2]*(ll[1] - vars[1])];
    else
      subL:=[l1];
  end if;

      #single line with own sub-options plopts range rangep bundled as a set
elif l1::set then
   n:=1;
   subpltemp,tmp:=selectremove(has,l1,{':-rangep',':-range',':-plopts',':-rangep'});
   #print("00",subpltemp,tmp);
   subplt:=`if`(has(subpltemp,{':-plopts',':-range',':-rangep'}),[subpltemp],[{}]);
   tmp:=op(tmp);
   #print("TMP ",tmp ,nops(tmp));
   if tmp::{'Vector[column]',`+`,`*`,`=`, `symbol`,procedure} then

     if tmp::'Vector[column]'(3) and indets(tmp)={} then
        subL:=[tmp[1]*vars[1]+tmp[2]*vars[2]+tmp[3]];
      elif hastype(tmp,'Vector[column]'(2)) and hastype(tmp,list) then
        vv:=select(type,tmp,'Vector[column]'(2))[];
        ll:=select(type,tmp,list)[];
        subL:= [(ll[2] - vars[2])*vv[1] - vv[2]*(ll[1] - vars[1])];
     else
       subL:=[tmp];
   end if;
elif nops(tmp)= 2 then
   #print("0th nops(tmp)",nops(tmp),tmp);
   # print("here here now");
   if hastype(tmp,'Vector[column]'(3)) and hastype(tmp,list) then
      #print("in here here");
      vv:=(select(type,tmp,('Vector[column]'(3)))[]);
      ll:=select(type,tmp,list)[];
      #print("vv " ,vv, "ll",ll);
      subL:=[ll+~alpha*vv];
     elif hastype(tmp,'Vector[column]'(2)) and hastype(tmp,list) then
      vv:=(select(type,tmp,('Vector[column]'(2)))[]);
      ll:=select(type,tmp,list)[];
      subL:=[ (ll[2] - vars[2])*vv[1] - vv[2]*(ll[1] - vars[1])];
    else
      subL:=[tmp];
   end if;
   end if;

    #a list of lines with possible sub-options if
else
   n:=nops(l1);
   subplt:=[];
   subL:=[];
   for i to n do
     subpltemp:=select(has,l1[i],{':-plopts',':-range',':-rangep'});
     #print("subpltemp",subpltemp);
     #print("subpltemp",has(subpltemp,{':-plopts',':-range',':-rangep'}));
     if has(subpltemp,{':-plopts',':-range',':-rangep'})then subplt:= [subplt[],subpltemp]else subplt:=[subplt[],{}] end if;
     tmp:=select(not(has),l1[i],{':-plopts',':-range',':-rangep'});
     if type(tmp,set)then tmp:=op(tmp)end if;
     #print("TMP ",tmp ,nops(tmp));
     #print("1st nops(tmp)",nops(tmp),tmp);
     if tmp::{'Vector[column]',`+`,`*`,`=`, `symbol`,procedure} then

     if tmp::'Vector[column]'(3) and indets(tmp)={} then
        subL:=[subL[],tmp[1]*vars[1]+tmp[2]*vars[2]+tmp[3]];
      else
        subL:=[subL[],tmp];
     end if;
elif nops(tmp)= 2 then
   #print("nops(tmp)",nops(tmp),tmp);
   #print("2nd here here now");
   if hastype(tmp,'Vector[column]'(3)) and hastype(tmp,list) then
      #print("in here here");
      vv:=(select(type,tmp,('Vector[column]'(3)))[]);
      ll:=select(type,tmp,list)[];
      #print(tmp,"vv " ,vv, "ll",ll);
      subL:=[subL[],ll+~alpha*vv];
    elif hastype(tmp,'Vector[column]'(2)) and hastype(tmp,list) then
      vv:=(select(type,tmp,('Vector[column]'(2)))[]);
      ll:=select(type,tmp,list)[];
      #print(tmp,"vv " ,vv, "ll",ll);
      subL:= [subL[],(ll[2] - vars[2])*vv[1] - vv[2]*(ll[1] - vars[1])];
    else
      subL:=[subL[],tmp];
  end if;
end if;

end do;
end if:
return subplt, subL, n
end proc:

>

L1:=2*x+3*y-4;
L1ext:={L1, range=[-5,2,-4,4],plopts=[colour=red ,linestyle=dot] };
L2:=<5,-1,3>:
L2ext:={L2,plopts=[linestyle=dash, thickness=4]}:
L3:=[[2,1],[4,-5]]:
L3ext:={L3,plopts=[color=red,thickness=1]}:
L4:=[[2,1,-3],[4,-5,-2]]:
L4ext:={L4,plopts=[color=green]}:
L5:=[[2,3],<-1,4>]:
L5ext:={L5,plopts=[color=green,thickness=2],range=[-6,6,-6,6]}:
L6:=[[1,2,-3],<-3,1,4>]:
L6ext:={L6,rangep=[-4,1],plopts[linestyle=dash]}:
L7:=<1+3*alpha,4-1*alpha,-1+2*alpha>:
L7ext:={L7,rangep=[-4,1],plopts=[colour=purlpe,thickness=3]}:
L8:=[<2|3|1>,<4|7|2>]:
L8ext:={L8,plopts=[colour=red]}:

(1)

>

>	Lst:=[L1,L1ext,L2,L2ext,L3,L3ext,x^2+2y^2+3-4x*y,L4,L4ext,L5,L5ext,L6,L6ext,L7,L7ext,L8,L8ext]:

>	A,B,c:=sorts(Lst):

>	for i to c do print(i," A= ",A[i]," B= ",B[i]); end do

$7, " A= ", {}, " B= ", x^2-4*x*y+2*y^2+3$

(2)

Download 2024-11-09_A_Line_Type.mw

Font size and pixels...

Asked: Ronan 1401 Product: Maple 2024

October 18 2024

1 2

What is the relationship between font size and screen pixels on plots? My screen are 2560 x1440 and 1920 x1200. Is for exanple size 12 font 12 pixels high?

Also when a diplay plot is say 800 x 600 pixels in size does the plot does it use the max horizontal or vertical number of pixels? I know it may not fill the plot area in both directions. Or are some pixels trimmed of around the sides. Is it that the bounding box is the 800 x 600? I know when a caption is added the plot area is reduced in size vertically.

Angled textplot. Can angle be scaled wit...

Asked: Ronan 1401 Product: Maple 2024

October 15 2024

1 7

I have angled some test to be parallel to the slope of a line. It tuns out that the text is only parallel if scaling = constrained is used. That is not necasserily pratical for many plots. In prcttice I have a nice proedure for this. Is there any way to pickup the plot x-y scaling factor that maple decides on so I could built that into the procedure. I have manually rescaled her to demonstrate.

mmm...I see the website viewer does not rotate the text.

>

restart

>	with(plots):

>	P1:=[1,2]:P2:=[5/2,3]:

>	vec:=P2-P1

(1)

>	ang:=arctan(vec[2],vec[1])

(2)

>	plt1:=textplot([((P1+P2+[.2,.2])/2)[],"parallel piece of text",rotation=ang]):

>	plt2:=plottools:-line(P1,P2):

>	display(plt1,plt2)

>	display(plt1,plt2,scaling=constrained)

>	#scaling factor looks to be 1.5 i.e.delta(x)/delta(y) (2.5-1)/{3/2)

>	ang1:=arctan(1.5*vec[2],vec[1])

(3)

>	plt3:=textplot([((P1+P2+[.2,.2])/2)[],"parallel piece of text",rotation=ang1]):

>	display(plt3,plt2)

Download 2024-10-15_text_not_always_parallel.mw

Check if two vectors are equal?...

Asked: Ronan 1401 Product: Maple 2024

September 28 2024

2 4

What on earth am I doing wrong here? I am trying to check if two vectors are equal for parallelism.Yes, thinking about it I could use CrossProduct but that is the same problem because I would be checking if that new vector =<0,0,0>

l1:=<a,b,c>:l2:=<a,b,c>:
if l1 = l2 then 
print("Equal Vectors");
end if;

Text plotting and select from list ...

Asked: Ronan 1401 Product: Maple 2024

September 17 2024

1 2

I have and input parameter to a procedure called shift:=05. It sets the position of test between to points.

this particular procedure has two potential sets of text one in Q and the other in vec.
Can Q and vec have the own individual values for shift?

I have shown the input to the procedure and what it outputs. The procedure itself to too long and akward to the post.

Also given is the input definiton of the procedure and how I could possibly find a shift in a list.

>

restart

>	#with( RationalTrigonometry)

>	P1:=[-1,3]:P2:=[4,5]:

>	# shift operates as such mp:=P1+shift(P2-P1). It's default value 0.5 It moves # the text along between P1 and P2 # shift and shift are optional inputs to move individual test pieces. #If Q contains shift then use it else use shift qp:=P1+shift(P2-P1) or qp:=P1+shift*(P2-P1) #Similarily for vec

>

Qdim([P1,typeset("P1=",P1),align=[left],colour=red] ,
     [P2,typeset("P2=",P2),align=[right],colour=purple] ,
      Q=[Q_12,align =[below,right],shift=0.6] ,
      point=[symbolsize=12,symbol=solidcircle,colour=blue,shift=0.4] ,
      vec=[typeset("v[12]=",P2-P1),align=[below,right],shift=0.1],
      shift=0.7):

>

>	#The definition input of the procedure is

>

#proc(P1, P2,
#    {Q:=[ NULL,:-align={':-left'}]},
#        {corp::{"cart","proj"}:="cart"},
#        {shift:=0.5},
#        {vec::list:=[]},
#        {scale::{list,integer}:=1},
#        {leader::{-1,0,1}:= 1},
#        {dimoffset::{1/6,1/5,1/4,3/4,2/3,1/2,1/3,1,3/2,2,3,4,5,6}:=1},
#        {point::list:=['color' = ':-blue', symbol = ':-solidcircle', 'symbolsize' = 8]},
#        {line::list:=['thickness'=3]},
#        {plopts::list:=[]})

>

restart

>	Q:=[Q_12,shift=0.6,align =[below,right]]

>

(1)

>

nops(Q)

(2)

>	for i to nops(Q) do if has([op(Q[i])],`shift`) then qp:=rhs(Q[i]); print(i,qp); break; end if; end do;

(3)

>

Download 2024-09-18_Select_name_and_Value_from_List.mw

E-Mail Address:
Password:
Remember Me:	Automatically sign in on future visits

E-Mail Address:
Password:
Remember Me:	Automatically sign in on future visits

Ask a Question

Create a Post

1401 Reputation

16 Badges

MaplePrimes Activity

These are questions asked by Ronan

How to setup special type check in a pr...

Font size and pixels...

Angled textplot. Can angle be scaled wit...

Check if two vectors are equal?...

Text plotting and select from list ...

Save this setting as your default sorting preference?

Ask a Question

Create a Post

Generating PDF…

Save this setting as your default sorting preference?
Note: You can change your preference any time in your account settings
Don't show this again