I've just doing some improvement to the WP type engine to make sure all 360 cycle and every 90 to 45 degree stroke in between are at optimal run and consume less power. So this time i've improve friction reduction formula by adding G-CELL module to allow smooth non friction propulsion through the system including piston movement, shafts and shifts plus all redundent torque cycle to be shut off to conserve fuel and energy.
Declare: {[s]xc-XC} =Start 1st complete cycle with 1/2 to full assisted inertia #s~
Declare: {XC-xC[e]} =Start 2nd complete cycle with full to 1/2 assisted inertia #e~
******************************************************
** REM Compile VX com v75 eng program*
******************************************************
// Initiate dim sig pipe x 16 {ppm@50#5lb}
//*1/2 concurent = 0.5 >>0.2ms=Ef#99 Ret efficiency
//*1/4 concurent = 0.1 >>0.5ms=Ef#18 Ret efficiency
//*1/6 concurent = 0.5 >>0.2ms=Ef#99 Ret efficiency
//*1/8 concurent = 0.1 >>0.5ms=Ef#18 Ret efficiency
gb pulse per 1.0-dim = 50#ppm / gb pulse per 2.0-dim = 120#ppm
#grv = 50% #frc + #lb pmp up <
begin {int @50#5lb pt} {[s]xc-XC}
arm pos shft 1 >> ( pstn grv * 10 /e/lbl ) psh *0.04ms
pstn deg: 0 ln 1 pstn deg: -180 ln 2
pstn deg: 45 ln 1 pstn deg: -75 ln 2
pstn deg: 90 ln 1 pstn deg: -90 ln 2
pstn deg: 75 ln 1 pstn deg: -45 ln 2
pstn deg: 180 ln 1 pstn deg: -0 ln 2
act = passive (0.5 / cyc-st * 2 ret ) {XC-xC[e]}
pstn deg: 0-int ln 1 pstn deg: -180/2 ln 2
pstn deg: 45/2 ln 1 pstn deg: -75/2 ln 2
pstn deg: 90/2 ln 1 pstn deg: -90/2 ln 2
pstn deg: 75/2 ln 1 pstn deg: -45/2 ln 2
pstn deg: 180/2 ln 1 pstn deg: -0-int ln 2
sp ign parity (bit cell spark every 5 interval)
pstn deg: 0 sts 0 pstn deg: -180 sts 1
pstn deg: 45 sts 1 pstn deg: -75 sts 0
pstn deg: 90 sts 0 pstn deg: -90 sts 1
pstn deg: 75 sts 1 pstn deg: -45 sts 0
pstn deg: 180 sts 0 pstn deg: -0 sts 1
dncs denied gyro (semi - cycle) >> 6p <<
lt.pos-a : 22/2 12/2 34/2 91/2 //FF
lt.pos -b: 22/2 12/2 34/2 91/2 //FF
lt.pos -c: 22/2 14/2 34/2 91/2 //RR
lt.pos -c: 22/2 14/2 34/2 91/2 //RR
stream cabs sturts (reduced) -30 {[s]xc-XC}
solve : tr-d.01 / mm/r/ll/ sec 1 ps50 >> ps20
solve : tr-d.02 / mm/r/ll/ sec 4 ps50 >> ps20
solve : tr-d.03 / mm/r/ll/ sec 6 ps50 >> ps20
stream propulse (reduced) -30 {XC-xC[e]}
solve : tr-h.02 / mm/r/ll/ sec 2 ps50 >> ps20
solve : tr-h.03 / mm/r/ll/ sec 5 ps50 >> ps20
solve : tr-h.04 / mm/r/ll/ sec 7 ps50 >> ps20
valv con ret pull back
pstn deg: 0 valv 2 pstn deg: -180 valv 1
pstn deg: 45 valv 1 pstn deg: -75 valv 2
pstn deg: 90 valv 2 pstn deg: -90 valv 1
pstn deg: 75 valv 1 pstn deg: -45 valv 2
pstn deg: 180 valv 2 pstn deg: -0 valv 1
rev - cyc - 1/2c*360 ^ 1/2 ^ 1 ^ 1.1/2 ^ 2 = det 0.23 msec
pstn deg: 0 valv 2 pstn deg: -180 valv 1
pstn deg: 45 valv 1 pstn deg: -75 valv 2
pstn deg: 90 valv 2 pstn deg: -90 valv 1
pstn deg: 75 valv 1 pstn deg: -45 valv 2
pstn deg: 180 valv 2 pstn deg: -0 valv 1
cm shft syncro ln 1.2
ln 1 360 turn clk
-dim
ln 2 -360 turn a-clk
0.6 -1/2c
ln 1 360 turn clk
-dim
ln 2 -360 turn a-clk
0.6 -endc
air comprs tim
c1-s1 block b - 5ps chb - 20ps rev 30r-sec
c2-s2 block b - 2ps chb - 12ps rev 30r-sec
c3-s3 block b - 5ps chb - 20ps rev 30r-sec
c4-s4 block b - 2ps chb - 12ps rev 30r-sec
{[s]xc-XC} go - comps@3ps
c1-s4ne block b - 5ps chb - 20ps rev 30r-sec
c2-s3ne block b - 2ps chb - 12ps rev 30r-sec
c3-s2ne block b - 5ps chb - 20ps rev 30r-sec
c4-s1ne block b - 2ps chb - 12ps rev 30r-sec
{XC-xC[e]} return -comps@0ps^^inert~dc~90drop to 0
pulse trigger
*1st cyc - 45-180 (PP R5) -on spark -td 0.5ms
m1 : 10w sec ppg4 (end invert) {[s]xc-XC}
m2 : 15w sec ppg5
m3 : 20w sec ppg6
m3 : 25w sec ppg7
*2st cyc - 45-180 (PP R5) -off spark -td 0.10ms
m1 : 10w sec ppg1 (restart)
m2 : 15w sec ppg2
m3 : 20w sec ppg3
m3 : 25w sec ppg4 {XC-xC[e]}
end state
******************************************************