71 lines
2.3 KiB
Forth
71 lines
2.3 KiB
Forth
Block 4060
|
|
( doe-campaign.4th: Compudynamics DoE campaign orchestrator )
|
|
( Requires: doe.4th (word-level) + real VM fleet touches. )
|
|
( Child VMs must define LOAD-DOE. )
|
|
: SETUP-HERMES ( -- )
|
|
S" Hermes" BIRTH
|
|
S" LOAD-DOE" S" Hermes" VM-EXEC ;
|
|
: SETUP-ARTEMIS ( -- )
|
|
S" Artemis" BIRTH
|
|
S" LOAD-DOE" S" Artemis" VM-EXEC ;
|
|
: SETUP-VMS ( -- )
|
|
SETUP-HERMES SETUP-ARTEMIS ;
|
|
Block 4061
|
|
( Phase 1: each VM runs DOE-WORK once for baseline. )
|
|
: PHASE1-DOE ( -- )
|
|
." Phase 1: Hermes" CR
|
|
S" DOE-WORK" S" Hermes" VM-EXEC
|
|
." Phase 1: Artemis" CR
|
|
S" DOE-WORK" S" Artemis" VM-EXEC ;
|
|
( HISTORICAL: CD-WORK removed 2026-07-08 -- dead code, )
|
|
( never called; used deleted VM-HERA/HERMES/ARTEMIS )
|
|
( constants from compudynamics.4th. )
|
|
Block 4062
|
|
( CD-TICK: one real fleet touch pass -- not a fake pump. )
|
|
( Heat only moves via real VM-EXEC/VM-CALL/VM-STEP now; )
|
|
( there is nothing left to artificially bump per VM. )
|
|
: CD-TICK ( -- )
|
|
S" DOE-WORK" S" Hermes" VM-EXEC
|
|
S" DOE-WORK" S" Artemis" VM-EXEC ;
|
|
: CD-DOE ( n -- ) 0 DO CD-TICK LOOP ;
|
|
: CAMPAIGN-STATUS ( -- )
|
|
." === VM Heat after campaign ===" CR
|
|
VM-PHYSICS-STATUS
|
|
VM-CONSERVED? IF LOG-TEST" PASS: fleet K"
|
|
ELSE LOG-ERROR" FAIL: K drift" THEN ;
|
|
Block 4063
|
|
( Full DoE campaign: baselines then 30 real fleet touches )
|
|
: CAMPAIGN ( -- )
|
|
." === Compudynamics DoE Campaign ===" CR
|
|
SETUP-VMS
|
|
." Phase 1: individual baselines" CR
|
|
PHASE1-DOE
|
|
." Phase 2: 30 real fleet touches" CR
|
|
30 CD-DOE
|
|
CAMPAIGN-STATUS ;
|
|
Block 4064
|
|
( Smoke test: 1 rep seed 1959 + 16 real fleet touches )
|
|
( HISTORICAL: VM-HEAT! artificial seeding removed -- new )
|
|
( VMs start at zero heat by construction, no seed needed. )
|
|
: SMOKE-CAMPAIGN ( -- )
|
|
." === Smoke: 1 rep seed 1959 ===" CR
|
|
SETUP-VMS
|
|
." Hermes 1 rep..." CR
|
|
S" 1959 1 EXEC-DOE" S" Hermes" VM-EXEC
|
|
." Artemis 1 rep..." CR
|
|
S" 1959 1 EXEC-DOE" S" Artemis" VM-EXEC
|
|
." 16 real fleet touches..." CR
|
|
16 CD-DOE
|
|
CAMPAIGN-STATUS ;
|
|
Block 4065
|
|
( THREE-VM-CAMPAIGN: all three VMs as Compudynamics peers. )
|
|
( HISTORICAL: per-VM VM-HEAT! seeding removed -- heat now )
|
|
( differentiates only via real touch frequency, not seed. )
|
|
: THREE-VM-CAMPAIGN ( -- )
|
|
." === Three-VM Campaign ===" CR
|
|
S" doe.4th" EXEC
|
|
SETUP-VMS
|
|
." 48 real fleet touches..." CR
|
|
48 CD-DOE
|
|
CAMPAIGN-STATUS ;
|