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 ;