예제 #1
0
파일: radau5.cs 프로젝트: Altaxo/Altaxo
		public RADAU5()
		{
			#region Initialization Common Blocks

			CommonBlock CONRA5 = new CommonBlock(4, 4, 0, 0);
			CommonBlock LINAL = new CommonBlock(0, 7, 0, 0);

			#endregion Initialization Common Blocks

			#region Dependencies (Initialization)

			DEC dec = new DEC();
			DECB decb = new DECB();
			ELMHES elmhes = new ELMHES();
			DECH dech = new DECH();
			DECC decc = new DECC();
			DECBC decbc = new DECBC();
			DECHC dechc = new DECHC();
			SOL sol = new SOL();
			SOLC solc = new SOLC();
			SOLB solb = new SOLB();
			SOLBC solbc = new SOLBC();
			SOLH solh = new SOLH();
			SOLHC solhc = new SOLHC();
			DECOMR decomr = new DECOMR(dec, decb, elmhes, dech, LINAL);
			DECOMC decomc = new DECOMC(decc, decbc, dechc, LINAL);
			SLVRAD slvrad = new SLVRAD(sol, solc, solb, solbc, solh, solhc, LINAL);
			ESTRAD estrad = new ESTRAD(sol, solb, solh, LINAL);
			RADCOR radcor = new RADCOR(decomr, decomc, slvrad, estrad, CONRA5, LINAL);

			#endregion Dependencies (Initialization)

			#region Set Dependencies

			this._radcor = radcor;

			#endregion Set Dependencies
		}
예제 #2
0
파일: radau5.cs 프로젝트: Altaxo/Altaxo
		public RADCOR(DECOMR decomr, DECOMC decomc, SLVRAD slvrad, ESTRAD estrad, CommonBlock CONRA5, CommonBlock LINAL)
		{
			#region Set Dependencies

			this._decomr = decomr; this._decomc = decomc; this._slvrad = slvrad; this._estrad = estrad;

			#endregion Set Dependencies

			#region Common varaible Initialization

			#region Common Block: CONRA5 Initialization

			this._conra5 = CONRA5;
			NN = CONRA5.intData[0];
			NN2 = CONRA5.intData[1];
			NN3 = CONRA5.intData[2];
			NN4 = CONRA5.intData[3];
			XSOL = CONRA5.doubleData[0];
			HSOL = CONRA5.doubleData[1];
			C2M1 = CONRA5.doubleData[2];
			C1M1 = CONRA5.doubleData[3];

			#endregion Common Block: CONRA5 Initialization

			#region Common Block: LINAL Initialization

			this._linal = LINAL;
			MLE = LINAL.intData[0];
			MUE = LINAL.intData[1];
			MBJAC = LINAL.intData[2];
			MBB = LINAL.intData[3];
			MDIAG = LINAL.intData[4];
			MDIFF = LINAL.intData[5];
			MBDIAG = LINAL.intData[6];

			#endregion Common Block: LINAL Initialization

			#endregion Common varaible Initialization
		}
예제 #3
0
파일: radau5.cs 프로젝트: Altaxo/Altaxo
		public RADCOR()
		{
			#region Initialization Common Blocks

			CommonBlock CONRA5 = new CommonBlock(4, 4, 0, 0);
			CommonBlock LINAL = new CommonBlock(0, 7, 0, 0);

			#endregion Initialization Common Blocks

			#region Dependencies (Initialization)

			DEC dec = new DEC();
			DECB decb = new DECB();
			ELMHES elmhes = new ELMHES();
			DECH dech = new DECH();
			DECC decc = new DECC();
			DECBC decbc = new DECBC();
			DECHC dechc = new DECHC();
			SOL sol = new SOL();
			SOLC solc = new SOLC();
			SOLB solb = new SOLB();
			SOLBC solbc = new SOLBC();
			SOLH solh = new SOLH();
			SOLHC solhc = new SOLHC();
			DECOMR decomr = new DECOMR(dec, decb, elmhes, dech, LINAL);
			DECOMC decomc = new DECOMC(decc, decbc, dechc, LINAL);
			SLVRAD slvrad = new SLVRAD(sol, solc, solb, solbc, solh, solhc, LINAL);
			ESTRAD estrad = new ESTRAD(sol, solb, solh, LINAL);

			#endregion Dependencies (Initialization)

			#region Set Dependencies

			this._decomr = decomr; this._decomc = decomc; this._slvrad = slvrad; this._estrad = estrad;

			#endregion Set Dependencies

			#region Common varaible Initialization

			#region Common Block: CONRA5 Initialization

			this._conra5 = CONRA5;
			NN = CONRA5.intData[0];
			NN2 = CONRA5.intData[1];
			NN3 = CONRA5.intData[2];
			NN4 = CONRA5.intData[3];
			XSOL = CONRA5.doubleData[0];
			HSOL = CONRA5.doubleData[1];
			C2M1 = CONRA5.doubleData[2];
			C1M1 = CONRA5.doubleData[3];

			#endregion Common Block: CONRA5 Initialization

			#region Common Block: LINAL Initialization

			this._linal = LINAL;
			MLE = LINAL.intData[0];
			MUE = LINAL.intData[1];
			MBJAC = LINAL.intData[2];
			MBB = LINAL.intData[3];
			MDIAG = LINAL.intData[4];
			MDIFF = LINAL.intData[5];
			MBDIAG = LINAL.intData[6];

			#endregion Common Block: LINAL Initialization

			#endregion Common varaible Initialization
		}
예제 #4
0
		internal override void InitializeRungeKuttaClasses()
		{
			bbampl = new BBAMPL();
			dec = new DEC();
			sol = new SOL();
			dech = new DECH();
			solh = new SOLH();
			decc = new DECC();
			solc = new SOLC();
			dechc = new DECHC();
			solhc = new SOLHC();
			decb = new DECB();
			solb = new SOLB();
			decbc = new DECBC();
			solbc = new SOLBC();
			elmhes = new ELMHES();
			//solout = new SOLOUTR(INTERN);
			contr5 = new CONTR5(CONRA5);
			decomr = new DECOMR(dec, decb, elmhes, dech, LINAL);
			decomc = new DECOMC(decc, decbc, dechc, LINAL);
			slvrar = new SLVRAR(sol, solb, solh, LINAL);
			slvrai = new SLVRAI(solc, solbc, solhc, LINAL);
			slvrad = new SLVRAD(sol, solc, solb, solbc, solh, solhc, LINAL);
			estrad = new ESTRAD(sol, solb, solh, LINAL);
			estrav = new ESTRAV(sol, solb, solh, LINAL);
			slvrod = new SLVROD(sol, solb, LINAL);
			slvseu = new SLVSEU(sol, solb, solh, LINAL);
			radcor = new RADCOR(decomr, decomc, slvrad, estrad, CONRA5, LINAL);
			radau5 = new RADAU5(radcor);
			//dr1_radau5 = new DR1_RADAU5(fvpol, jvpol, solout, bbampl, radau5);

			base._RKSolOut = new RKSolOut(this.contr5);
		}