fix: save polytomy

This commit is contained in:
kuoi 2025-04-05 16:46:41 +11:00
parent 3c9cdd67e0
commit 6c05ec1de7

View file

@ -354,10 +354,9 @@ var: contree;
set contree ntrees; set contree ntrees;
/*Store consensus tree to tree vault*/ /*Store consensus tree to tree vault*/
/*hold /+0; hold /+0;
tv>/; tv>/;
tchoose 0.'npars';*/ tchoose 0.'npars';
tchoose/;
/*Get rbr/br/jak/boot/sym support and get consensus tree*/ /*Get rbr/br/jak/boot/sym support and get consensus tree*/
ttags=; ttags=;
@ -378,20 +377,20 @@ if ('dobremer')
/*calculate relative bremer support*/ /*calculate relative bremer support*/
if ('dorbrs') if ('dorbrs')
bs ]!! 0; bs *]!! 0.'npars';
end end
/*calculate bremer support*/ /*calculate bremer support*/
if ('dobrs') if ('dobrs')
macfloat 1; /*set the br value float*/ macfloat 1; /*set the br value float*/
bsupport !! 0; bsupport *!! 0.'npars';
end end
end end
/*Choose final tree*/ /*Choose final tree*/
/*tv<;*/ tv<;
tchoose 0; tchoose /;
/*adjust to zero following Pablo Goloboff*/ /*adjust to zero following Pablo Goloboff*/
sub 0; sub 0;