version 1.11, 2005/07/07 06:07:46 |
version 1.12, 2005/07/07 07:53:37 |
|
|
% $OpenXM: OpenXM/src/kan96xx/Doc/gfan.sm1,v 1.10 2005/07/07 01:31:21 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Doc/gfan.sm1,v 1.11 2005/07/07 06:07:46 takayama Exp $ |
% cp cone.sm1 $OpenXM_HOME/src/kan96xx/Doc/gfan.sm1 |
% cp cone.sm1 $OpenXM_HOME/src/kan96xx/Doc/gfan.sm1 |
% $Id$ |
% $Id$ |
% iso-2022-jp |
% iso-2022-jp |
Line 415 cone.comment message |
|
Line 415 cone.comment message |
|
%> |
%> |
/cone.DhH 0 def |
/cone.DhH 0 def |
|
|
|
%< |
|
% Global |
|
% gbCheck $B$r$9$k$+(B? $B$7$J$$$H7k2L$O$"$d$U$d(B. $B$7$+$7%a%b%j(B exhaust $B$OKI$2$k(B. |
|
% $B;H$&$H$-$O(B /cone.epsilon, /cone.epsilon.limit $B$r==J,>.$5$/$7$F$*$/(B. |
|
%> |
|
/cone.do_gbCheck 1 def |
|
|
% Default $B$N(B cone.gb $B$NDj5A(B. $B3F%W%m%0%i%`$G:FEYDj5A$7$F$b$h$$(B. |
% Default $B$N(B cone.gb $B$NDj5A(B. $B3F%W%m%0%i%`$G:FEYDj5A$7$F$b$h$$(B. |
/cone.gb { |
/cone.gb { |
cone.DhH { |
cone.DhH { |
|
|
%> |
%> |
/cone.gb_Dh { |
/cone.gb_Dh { |
/arg2 set /arg1 set |
/arg2 set /arg1 set |
[/ff /ww /gg] pushVariables |
[/ff /ww /gg /gbopt] pushVariables |
[ |
[ |
/ff arg1 def |
/ff arg1 def |
/ww arg2 def |
/ww arg2 def |
[(AutoReduce) 1] system_variable |
[(AutoReduce) 1] system_variable |
[cone.vv ring_of_differential_operators |
[cone.vv ring_of_differential_operators |
[ww] weight_vector 0] define_ring |
[ww] weight_vector 0] define_ring |
[ff {toString .} map] ff getAttributeList setAttributeList |
%(---) messagen ff getAttributeList message |
groebner 0 get /gg set |
ff getAttributeList tag 0 eq {/gbopt [ ] def } |
|
{ |
|
/gbopt ff getAttributeList def |
|
} ifelse |
|
[ff {toString .} map gbopt] |
|
groebner 0 get /gg set %% groenber $B$O(B attribute $B$r<u$1IU$1$J$$(B. |
/cone.gb_Dh.g gg def |
/cone.gb_Dh.g gg def |
/arg1 gg def |
/arg1 gg def |
] pop |
] pop |
|
|
%gNew $B$,(B newWeight $B$G$N(B GB $B$+(B check. Yes $B$J$i(B reduced basis $B$X(B. |
%gNew $B$,(B newWeight $B$G$N(B GB $B$+(B check. Yes $B$J$i(B reduced basis $B$X(B. |
%No $B$J$i(B null $B$rLa$9(B. |
%No $B$J$i(B null $B$rLa$9(B. |
%%Ref: note @s/2005/06/30-note-gfan.pdf |
%%Ref: note @s/2005/06/30-note-gfan.pdf |
gNew [(gbCheck) 1] setAttributeList newWeight |
cone.do_gbCheck not { |
cone.gb (gb) getAttribute |
(Warning! gbCheck is skipped.) message |
|
} { |
|
(Doing gbCheck.) message |
|
} ifelse |
|
cone.do_gbCheck { |
|
gNew [(gbCheck) 1] setAttributeList newWeight |
|
cone.gb (gb) getAttribute |
|
} { 1 } ifelse |
1 eq { |
1 eq { |
gNew [(reduceOnly) 1] setAttributeList newWeight cone.gb /arg1 set |
gNew [(reduceOnly) 1] setAttributeList newWeight cone.gb /arg1 set |
}{ /arg1 null def } ifelse |
}{ /arg1 null def } ifelse |