@acer Out of interest how did you discover/find the hidden character?

@mmcdara true/false is a valid answer for me. I was only solving for alpha as I couldn't think of any other way to derermine an asnwer.

@dharr  I see I tried it the wrong way around.

@acer  Thank you for pointing that out. I should try in future.

 Could you provide a sketch showing exactly what you mean. Say from Geogebra.

Is O the Origin?

Does it happen with rational numbers aswell

(123/100)/(n^(165/100)). 

I am not at my home pc to try.

@Kitonum Thank you. So it is sort of a little bug. I think I will keep the Tabulate and live with it.

@Kitonum Ok. But what I am looking for is needed in terms of varp. I can't get it to work.

varp:=alpha     but could be beta, lambda,  t etc.

`#3  Q24` (`&varp;`);  # not working

to give 

@acer Oh that is not a problem. You a busier than I and you find time to help a lot.

@acer That works perfectly. I would not have worked out the AddType for a long time. I did however manage to figure out the spellchecking by looking inside the Maple routine for Vector. But not as efficient as yours.
 

ProjVector := proc(a, b, c) 
      local cfs, vectr; 
      description " A Projective Line or Row Vector in Reduced format";
      if type(procname, 'indexed') then
         if procname::anyindex(identical(':-row')) then
            cfs := sign(c)*FactReduce([a, b, c]); 
            vectr := <[<cfs>^%T]>^%T;
            return vectr,type(vectr,ProjVR);
          elif procname::anyindex(identical(':-column')) then
            cfs := FactReduce([a, b, c]); 
            vectr := <[<cfs>]>;
            return vectr,type(vectr,ProjVC);
          else 
            error "either row or column is spelt incorrectly"; 
         end if;
       else
         cfs := FactReduce([a, b, c]); 
         vectr := <[<cfs>]>;
         return vectr,type(vectr,ProjVC);
      end if;
      end proc:

@acer I have just edited the question and put a link in.

@acer Thank you and the NSHO shall be heeded. I tried altering the procedure so it would catch typos for "row" and not default to the column option. Can't get it working properly. 

Secondly using the module from my prior question How to setup special type check in a procedure? - MaplePrimes I was trying to AddType for the vector construction of <[<a,b,c>]>  but can't get that to work either. 
Just to explain. I have to have a way of differentiating between standard vectors and projective vectors in the package. Using matrices were causing other problems. This is why I am trying this vector stucture. I doubt it is commonly used.

Download 2024-11-22_Q_Projective_Vector_Format_ac_Rc.mw

Try changing the hours "Night Light" come on in windows.  I know it's not a very good solution.

@Carl Love Thank you. Is it possible to have a variants in the AddType? In this case  two points or a point and a vector.

I tried this but it didnt work. It still recognises two points though.  I also tried  adding another type  LineLV but haven't made that work either.

AddType(Line, (e, n::{2,3})-> type(e, {[Point(n)$2], [Point(n)$1,Vector(n)$1] }));

M:= module()
local
    AddType:= proc(T::name, H::{type, procedure})
    uses TT= TypeTools;
        if TT:-Exists(T) then TT:-RemoveType(T) fi;
        TT:-AddType(T,H)
    end proc,

    ModuleLoad:= proc()
        AddType(Point, (e, n::{2,3})-> type(e, [algebraic$n]));
        AddType(Line, (e, n::{2,3})-> type(e, [Point(n)$2]));
        AddType(LineLV, (e, n::{2,3})-> type(e, [Point(n)$1,Vector(n)$1]));
    end proc
;
export
    CreateLine:= overload([
        proc(Pts::Line(2), $) option overload; "2D line" end proc,
        proc(Pts::Line(3), $) option overload; "3D line" end proc,
         proc(Pts::LineLV(2), $) option overload; "2D line point and vector" end proc,
         proc(Pts::LineLV(3), $) option overload; "3D line point and vector" end proc,
        ()-> "Unrecognized input format"
    ])
;
    ModuleLoad()
end module
:
M:-CreateLine([[1,2,3],[4,5,6]]);
                           

M:-CreateLine([[1,2],[4,5]]);

M:-CreateLine([[1,2,3],<4,5,6>]);

M:-CreateLine([[1,2],<4,5>]);              
                           "3D line"

                           "2D line"

                  "Unrecognized input format"

                  "Unrecognized input format"

What is the Maple Beta Forum?