Question: DataFrame display alpha as a Greek letter

How do I get alpha to display as the Greek letter in DataFrame Row column?

restart

#varp:=alpha

QQFProj := proc(q12::algebraic, q23::algebraic,
                q34::algebraic, q14::algebraic,{varp:=:-alpha},
                  prnt::boolean:=true) #{columns:=[QQFproj,Q13proj,Q24proj]}
  description "Projective quadruple quad formula and intermediate 13 and 24 quads. Useful for cyclic quadrilaterals";
  local qqf,q13,q24, sub1,sub2,sub3, R,values,DF,lens;
  uses   DocumentTools;
  sub1:= (q12 + q23 + q34 + q14);
  sub2:=-4*(q12*q23*q34);
  sub3:=64*q12*q23;
  qqf:=(sub1+sub2)^2-sub3;
  q13:=(q12-q23)^2;
  q24:=varp*(q23-q34)^2;
  if prnt then
  
   values:=<qqf,q13,q24>;
   DF:=DataFrame(<values>, columns=[`"Values Equations"`],rows=[`#1  QQF`,`#2  Q13`,cat(`#3  Q24 (`,varp,`)`)]);
   lens := [4 +8* max(op(length~(RowLabels(DF)))),4+ min(max( 10*(length~(values))),1000)];#op(length~(ColumnLabels(DF)0)
   Tabulate(DF,width=add(lens),widthmode = pixels,weights = lens);
  return qqf,q13,q24
  end if;
  return qqf,q13,q24
end proc:

 q12:=1/2:q23:=9/10:q34:=25/26:q41:=9/130:#Cyclic quadrilateral
q12:=sqrt(17+a)/2:q23:=(r^2+t^2)^2/10:q34:=((a+b+c)^4/26):q41:=sqrt(17+b)/130:

Q:=QQFProj(q12,q23,q34,q41,true):

Download 2024-12-01_Q_Data_Table_alpha_as_Greek_Letter.mw

Please Wait...