* Paradigm Change MACRO POS(INPUT) A POS.K=MAX(INPUT.K,1E-10) MEND NOTE *100 PARAMETER VALUES NOTE P NP=25 P LSEED=1235000 P SSEED=1235000 P ZDUMTOA(1)=0 P ZDUMTOA(2)=40 P ZDUMTOA(3)=281.75 P ZDUMTOA(4)=282.75 P ZDUMTOA(5)=291 P ZDUMTOA(6)=298.75 P ZDUMTOA(7)=308 P ZDUMTOA(8)=309.75 P ZDUMTOA(9)=318.75 P ZDUMTOA(10)=319 P ZDUMTOA(11)=319.5 P ZDUMTOA(12)=323.5 P ZDUMTOA(13)=340.75 P ZDUMTOA(14)=364.75 P ZDUMTOA(15)=369 P ZDUMTOA(16)=392 P ZDUMTOA(17)=453.75 P ZDUMTOA(18)=465.75 P ZDUMTOA(19)=520.75 P ZDUMTOA(20)=654.75 P ZDUMTOA(21)=837.50 P ZDUMTOA(22)=851.75 P ZDUMTOA(23)=995.75 P ZDUMTOA(24)=1318 P ZDUMTOA(25)=1500 NOTE *200 PROBABILITY OF PARADIGM ACTIVATION NOTE A RND.K=RANDOM(LSEED) A PCNP.K=PPCPS*PPSD.K+PPCAR*PARD.K+PPCOA*(PDP.K-PPSD.K-PARD.K) C PPCPS=0 C PPCAR=.001 C PPCOA=0.0002 A PA.K=PCNP.K*DT*DFPA C DFPA=.2 NOTE NOTE SET UP LOGIC FOR SEQUENTIALLY LAUNCHING PARADIGMS NOTE FOR N=2,NP N X(N)=0 R CX.KL(1)=0 R CX.KL(N)=SPA*CLIP(0,CLIP(CLIP(1,0,X.K(N-1),1),0,PA.K,RND.K),X.K(N),1)+(1-SPA)*CLIP(0,CLIP(0,CLIP(CLIP(1,0,X.K(N-1),1),0,CPTHRESH,CDP.K),X.K(N),1),SUM(SIAP),MNAP) FOR PM=1,NP A PPSV.K(PM)=PPS.K(PM)*SIDP.K(PM) A PPSD.K=SUM(PPSV.K)/NODP.K A PARV.K(PM)=PAR.K(PM)*SIDP.K(PM) A PARD.K=SUM(PARV.K)/NODP.K A SIDP.K(PM)=FIFZE(1,0,TTPMAX.K-TTP.K(PM)) A TTP.K(PM)=P.K(PM)*SAP.K(PM) L X.K(PM)=X.J(PM)+(DT)*(CX.JK(PM)/DT) N X(1)=2 A SIAP.K(PM)=CLIP(1,0,P.K(PM),MSPDL) C MNAP=1.1 C SPA=1 C CPTHRESH=.7 C MSPDL=2 A SAP.K(PM)=CLIP((SARL*CLIP(1,0,X.K(PM),1)+(1-SARL)*TSAP.K(PM)),0,P.K(PM),MSPA) C MSPA=0.01 A TSAP.K(PM)=STEP(1,ZDUMTOA(PM)) C SARL=1 L TOA.K(PM)=TOA.J(PM)+(DT)*(DTOA.JK(PM))/DT N TOA(PM)=0 R DTOA.KL(PM)=FIFZE(TIME.K,0,RINP.K(PM)-NPINP/DT) NOTE *300 PUZZLE SOLVING NOTE L SP.K(PM)=SP.J(PM)+(DT)(PSR.JK(PM)+ARESR.JK(PM)) N SP(1)=ISP N SP(N)=1 C ISP=1985 R PSR.KL(PM)=(PPS.K(PM)/ADP.K(PM))*SAP.K(PM) A ADP.K(PM)=NDP*EXP(ED*LOGN(1+(SP.K(PM)/NSP(PM)))) C NDP=2 C ED=1 N NSP(1)=NSPD C NSPD=400 N NSP(N)=(1-SAIA)*MIN(NSPA*EXP(VSAP*NORMAL(SSEED)),MSAP)+SAIA*NSPA C NSPA=400 C SAIA=1 C VSAP=2.5 C MSAP=800 A PPS.K(PM)=P.K(PM)*FPPS.K(PM) A FPPS.K(PM)=DFPPS.K(PM)*EUPPS.K(PM) A EUPPS.K(PM)=TABHL(TEUPPS,PUA.K(PM)/DPUA.K(PM),0,1,.2) T TEUPPS=0/.4/.7/.9/.97/1 L PUA.K(PM)=PUA.J(PM)+(DT)(PIAR.JK(PM)-PSR.JK(PM)-ARECR.JK(PM)) N PUA(PM)=DPUA(PM) R PIAR.KL(PM)=(PSR.KL(PM)+ARECR.KL(PM)+CPUA.K(PM))*SAP.K(PM) A CPUA.K(PM)=(DPUA.K(PM)-PUA.K(PM))/TAPUA C TAPUA=1 A DPUA.K(PM)=MAX(NPP*P.K(PM)*DFPPS.K(PM),1) C NPP=1 A DFPPS.K(PM)=FPPSR.K(PM)-FPAR.K(PM) A FPPSR.K(PM)=TABLE(TFPPSR,CP.K(PM),0,1,.2) T TFPPSR=0/.1/.6/.85/.95/1 A FPAR.K(PM)=FPPSR.K(PM)*WPEAR*EAPAR.K(PM) C WPEAR=.25 A EAPAR.K(PM)=TABHL(TEAPAR,RA.K(PM),0,4,.5) T TEAPAR=0/.25/.45/.60/.73/.85/.93/.98/1 A RA.K(PM)=A.K(PM)/AA C AA=10 L A.K(PM)=A.J(PM)+(DT)(ARECR.JK(PM)-ARESR.JK(PM)) N A(1)=IA N A(N)=0 C IA=2.75 R ARESR.KL(PM)=(PAR.K(PM)/ADA.K(PM))*SAP.K(PM) A PAR.K(PM)=P.K(PM)*FPAR.K(PM) A ADA.K(PM)=RDA*POS(ADP.K(PM)) C RDA=5 R ARECR.KL(PM)=(EPSR.K(PM)*FPRA.K(PM))*SAP.K(PM) A EPSR.K(PM)=PPS.K(PM)/POS(DPAR.K(PM)) A FPRA.K(PM)=TABHL(TFPRA,1.44*LOGN(ADP.K(PM)/POS(DPAR.K(PM))),-2,2,.5) T TFPRA=.01/.02/.04/.2/.5/.8/.96/.98/.99 A RSP.K(PM)=SP.K(PM)/(HSP.K(PM)*(1+EGSP*TEHSP)) L HSP.K(PM)=HSP.J(PM)+(DT/TEHSP)(SP.J(PM)-HSP.J(PM)) N HSP(PM)=SP(PM) C TEHSP=10 C EGSP=.02 A ASNDV.K(PM)=A.K(PM)*SISND.K(PM) A SISND.K(PM)=FIFZE(1,0,P.K(PM)-PNDMAX.K) A ASND.K=CLIP(SUM(ASNDV.K)/NOSNDP.K,0.0001,SUM(ASNDV.K)/NOSNDP.K,0.0001) A NOSNDP.K=SUM(SISND.K) A SPSNDV.K(PM)=SP.K(PM)*SISND.K(PM) A SPSND.K=CLIP(SUM(SPSNDV.K)/NOSNDP.K,0.0001,SUM(SPSNDV.K)/NOSNDP.K,0.0001) A SPDV.K(PM)=SP.K(PM)*SIDP.K(PM) A SPD.K=SUM(SPDV.K)/NODP.K A SPRDP.K(PM)=SP.K(PM)/POS(DFSP*SPD.K) C DFSP=1 A ADV.K(PM)=A.K(PM)*SIDP.K(PM) A AD.K=SUM(ADV.K)/NODP.K A ARDP.K(PM)=A.K(PM)/POS(DFA*AD.K) C DFA=1 NOTE *400 CONFIDENCE NOTE A DPAR.K(PM)=NDPAR*ECART.K(PM) C NDPAR=4 A ECART.K(PM)=TABLE(TECART,CP.K(PM),0,1,.1) T TECART=0/.01/.1/.3/.6/1/1.4/1.9/2.6/4.5/10 L CP.K(PM)=CP.J(PM)+(DT)(CC.JK(PM)) N CP(1)=ICPN C ICPN=0.96 N CP(N)=ICPE C ICPE=0.5 R CC.KL(PM)=(NCC*ICC.K(PM)*RCC.K(PM))*SAP.K(PM) C NCC=.003 A RCC.K(PM)=TABLE(TRCC,CP.K(PM),0,1,.1) T TRCC=0/.3/.6/.8/.95/1/.95/.8/.6/.3/0 A ICC.K(PM)=CA*EAC.K(PM)+CSP*EPC.K(PM)+CDA*EARDPC.K(PM)+CDSP*ESPRDPC.K(PM)+CRAAP*ERAAPC.K(PM)*SINDP.K(PM)+CRSPAP*ERSPAPC.K(PM)*SINDP.K(PM) C CA=1 C CSP=1 C CDA=1 C CDSP=1.5 C CRAAP=1 C CRSPAP=1.25 A SINDP.K(PM)=CLIP(0,1,SIHDP.K(PM),1)*SAP.K(PM) A SIHDP.K(PM)=CLIP(1,0,HDP.K(PM),1) L HDP.K(PM)=HDP.J(PM)+DT*CHDP.JK(PM)/DT N HDP(PM)=0 R CHDP.KL(PM)=SIDP.K(PM) A EAC.K(PM)=TABHL(TEAC,RA.K(PM),0,6,.5) T TEAC=5/2.15/0/-1.2/-2.15/-2.9/-3.4/-3.9/-4.4/-4.8/-5.1/-5.3/-5.4 A EPC.K(PM)=TABHL(TEPC,RSP.K(PM),0,5,.5) T TEPC=-5/-2.15/0/1.2/2.15/2.9/3.4/3.9/4.2/4.4/4.5 A EARDPC.K(PM)=TABHL(TARDPC,ARDP.K(PM),0,6,.5) T TARDPC=5/2.15/0/-1.2/-2.15/-2.9/-3.4/-3.9/-4.4/-4.8/-5.1/-5.4/-5.7 A ESPRDPC.K(PM)=TABHL(TSPRDPC,SPRDP.K(PM),0,5,.5) T TSPRDPC=-5/-2.15/0/1.2/2.15/2.9/3.4/3.9/4.2/4.4/4.5 A RAAP.K(PM)=A.K(PM)/ASND.K A ERAAPC.K(PM)=TABHL(TRAAPC,RAAP.K(PM),0,2,.1) T TRAAPC=3.8/3.6/3.4/3.2/3.0/2.8/2.6/2.4/2.2/2.0/0/-2.0/-2.2/-2.4/-2.6/-2.8/-3.0/-3.2/-3.4/-3.6/-3.8 A RSPAP.K(PM)=SP.K(PM)/SPSND.K A ERSPAPC.K(PM)=TABHL(TRSPAPC,RSPAP.K(PM),0,2,.1) T TRSPAPC=-3.8/-3.6/-3.4/-3.2/-3.0/-2.8/-2.6/-2.4/-2.2/-2.0/0/2.0/2.2/2.4/2.6/2.8/3.0/3.2/3.4/3.6/3.8 NOTE *500 PRACTITIONERS NOTE A FPCP.K(PM)=P.K(PM)/TP C TP=500 L P.K(PM)=P.J(PM)+(DT)(RR.JK(PM)-DR.JK(PM)-DINP.JK(PM)) N P(1)=TP N P(N)=0 A PDPV.K(PM)=P.K(PM)*SIDP.K(PM) A PDP.K=SUM(PDPV.K)/NODP.K R RR.KL(PM)=TDR.K*FDRP.K(PM)*SAP.K(PM)+RINP.K(PM) A RINP.K(PM)=(1-SARL)*RINPF.K(PM)+SARL*RINPNF.K(PM) A RINPNF.K(PM)=CLIP(NPINP/DT,0,CX.KL(PM),1) A RINPF.K(PM)=FIFZE(NPINP/DT,0,TIME.K-ZDUMTOA(PM)) C NPINP=5 A TDR.K=SUM(DR.KL) A FDRP.K(PM)=AP.K(PM)/TAP.K A TAP.K=SUM(AP.K) A AP.K(PM)=CLIP(P.K(PM),0,P.K(PM),1)*(NFDR/ANFDR.K)*ECAR.K(PM) A ECAR.K(PM)=ECR.K(PM) A ANFDR.K=SUM(NDR.K)/TP A ECR.K(PM)=EXP(SRC*(CP.K(PM)-CDP.K)) C SRC=5 A CDP.K=SUM(CDPV.K)/NODP.K A CDPV.K(PM)=CP.K(PM)*SIDP.K(PM) R DR.KL(PM)=(MIN(MAXDR.K(PM),NDR.K(PM)*ECD.K(PM))+P.K(PM)*NRETR)*SAP.K(PM) A MAXDR.K(PM)=MAXFDR*P.K(PM) C MAXFDR=0.10 C NRETR=0.025 A NODP.K=CLIP(SUM(SIDP.K),1,SUM(SIDP.K),1) R DINP.KL(PM)=FIFZE(SUM(RINP.K)/NODP.K,0,TTPMAX.K-TTP.K(PM)) A NDR.K(PM)=NFDR*P.K(PM) C NFDR=.04 A ECD.K(PM)=EXP(-SDC*(CP.K(PM)-CDP.K)) C SDC=5 A PND.K(PM)=P.K(PM)*SINDP.K(PM) A PNDMAX.K=MAX(PND.K(1),PND.K(2),PND.K(3),PND.K(4),PND.K(5),PND.K(6),PND.K(7),PND.K(8),PND.K(9),PND.K(10),PND.K(11),PND.K(12),PND.K(13),PND.K(14),PND.K(15),PND.K(16),PND.K(17),PND.K(18),PND.K(19),PND.K(20),PND.K(21),PND.K(22),PND.K(23),PND.K(24),PND.K(25)) A TTPMAX.K=MAX(TTP.K(1),TTP.K(2),TTP.K(3),TTP.K(4),TTP.K(5),TTP.K(6),TTP.K(7),TTP.K(8),TTP.K(9),TTP.K(10),TTP.K(11),TTP.K(12),TTP.K(13),TTP.K(14),TTP.K(15),TTP.K(16),TTP.K(17),TTP.K(18),TTP.K(19),TTP.K(20),TTP.K(21),TTP.K(22),TTP.K(23),TTP.K(24),TTP.K(25)) A TTPA.K(PM)=FIFZE(0,TTP.K(PM),TTP.K(PM)-TTPMAX.K)*SAP.K(PM) A TTPAMAX.K=MAX(TTPA.K(1),TTPA.K(2),TTPA.K(3),TTPA.K(4),TTPA.K(5),TTPA.K(6),TTPA.K(7),TTPA.K(8),TTPA.K(9),TTPA.K(10),TTPA.K(11),TTPA.K(12),TTPA.K(13),TTPA.K(14),TTPA.K(15),TTPA.K(16),TTPA.K(17),TTPA.K(18),TTPA.K(19),TTPA.K(20),TTPA.K(21),TTPA.K(22),TTPA.K(23),TTPA.K(24),TTPA.K(25)) NOTE NOTE CROSS-PARADIGM COMPARISONS NOTE L CE.K(PM)=CE.J(PM)+DT*DCE.JK(PM) N CE(PM)=0 R DCE.KL(PM)=P.K(PM) NOTE NOTE NOTE CONTROL DATA NOTE SPEC DT=.25/LENGTH=2000