class PPOLY
Flattened version is
here
Public
Readonly Shareds
shared chs,chx:STR;
shared chs,chx:STR;
shared ci:INTI;
shared ds,dx:INT;
****
degree
shared ds,dx:INT;
****
degree
shared z,z1,x,x1:INT;
****
shared z,z1,x,x1:INT;
****
shared z,z1,x,x1:INT;
****
shared z,z1,x,x1:INT;
****
Writable Shareds
shared chs,chx:STR;
shared chs,chx:STR;
shared ci:INTI;
shared ds,dx:INT;
****
degree
shared ds,dx:INT;
****
degree
shared z,z1,x,x1:INT;
****
shared z,z1,x,x1:INT;
****
shared z,z1,x,x1:INT;
****
shared z,z1,x,x1:INT;
****
Constants
const Def_xyz,Def_lm,Def_vz;
const Def_xyz,Def_lm,Def_vz;
const Def_xyz,Def_lm,Def_vz;
Features
PPrintLog(DefS:CARD,title:STR)
PPrintLog(poly:POLYM_INTI,DefS:CARD,title:STR)
PPrintLogHead(DefS:CARD,title:STR)
PTbl2Polym(DefS:CARD):POLYM_INTI
****
P_str(poly:POLYM_INTI, DefS:CARD):STR
P_str(poly:POLYM_INTI, DefS:CARD, format:STR):STR
Ppoly(tcode:TCODE,DefS:CARD)
Ppoly(tcode:TCODE,DefS:CARD,isTest:BOOL):POLYM_INTI
PpolyLow(TCode:TCODE,DefS:CARD)
****
1.120< ? <1.124
PpolyP(TCode:TCODE,DefS:CARD):POLYM_INTI
****
rate: rateCl
res/s: rateCl*4.4
1.201< 1.25 <1.5
1.25, 2.18
1.27, 2.0 : (worst time)=(expected time)
______
______
_
Worst
_
case
_
is
_
(2,n)
_
torus
_
knot.
1.27, 6.0 : (real time) < 3*(expected time)
1.27202=sqrt((1+sqrt(5))/2)= sqrt of Fibonacci ratio.
PpolyTest(tcode:TCODE,DefS:CARD)
Ppoly_time(TCode:TCODE,DefS:CARD)
****
for speed test
test_time(TCode:TCODE):FLT
Private
CnvP
CoeLMs
CoeLMx
CoeVZs
CoeVZx
CoeXYZs
CoeXYZx
SetPolyP
wrTitle(title,s:STR)
The Sather Home Page