非線形シミュレーション

メインページ

●制御対象(赤)
\left\{\begin{array}{l} \dot{\vec x}=A(T_w){\vec x}+B(T_w)\vec{u}+B_w(T_w,\beta){\vec w}(T_w),\ {\vec x}(0)={\vec x}_0\\ {\vec y}_M=C_M{\vec x}\\ y=\underbrace{C_SC_M}_{C}{\vec x} \end{array}\right.
●外乱信号(赤紫)
{\vec w}(T_w)=\left[\begin{array}{l} H_w\sin\frac{2\pi}{T_w} t \\ H_w\cos\frac{2\pi}{T_w} t \end{array}\right]
不規則波については時系列データを準備。
●外乱推定に用いる観測変数(緑)
y_d=C_d{\vec x}
主に制御点の縦変位を取る。
●外乱フィルタ(緑)
\dot{\hat{\vec x}}_d=A_d(T_w)\hat{{\vec x}}_d+B_d(T_w){y}_d,\ \hat{x}_d(0)=0
●非線形要素
-スラスタ伝達静特性:3次関数(V-F表)、入力電圧不感帯-1V~0V
-スラスタ伝達動特性:1次遅れ、時定数1/sqrt(50)、2/sqrt(50)、…
-スラスタ入力電圧リミッタ:±2.5V、±5V
●LQ制御/H∞制御
\vec{u}=-F(T_w)\vec{x}
●LQIM制御/H∞IM制御
\vec{u}=-F(T_w)\vec{x}-F_d(T_w)\hat{\vec{x}}_d
●SM制御
\displaystyle{{\vec u}(t)=\underbrace{{\vec u}_\ell(t)}_{linear\ control}+\underbrace{{\vec u}_n(t)}_{switching\ component} }
\displaystyle{{\vec u}_\ell(t)=-\underbrace{(SB)^{-1}(SA-\Phi S)}_{L=L_{eq}+L_{phi}}{\vec x}(t) }
\displaystyle{{\vec u}_n(t)=-\underbrace{(SB)^{-1}\rho(t,{\vec x})}_{L_n}\frac{P_2{\vec s}(t)}{||P_2{\vec s}(t)||} }

このとき、次の諸ケースについて、非線形シミュレーションを行ないます。ただし、短周期は6/\sqrt{50}、長周期は10/\sqrt{50}とします。

制御方式 横波短周期 横波長周期 斜波短周期 斜波長周期
LQ制御 Case 4.1 Case 4.2 Case 4.3 Case 4.4
H∞制御 Case 4.5 Case 4.6 Case 4.7 Case 4.8
SM制御 Case 4.9 Case 4.10 Case 4.11 Case 4.12
LQIM制御 Case 4.13 Case 4.14 Case 4.15 Case 4.16
H∞IM制御 Case 4.17 Case 4.18 Case 4.19 Case 4.20
制御方式 不規則波1 不規則波2 時間遅れ 入力電圧制限
LQ制御 Case 5.1 Case 5.2 Case 5.3 Case 5.4
H∞制御 Case 5.5 Case 5.6 Case 5.7 Case 5.8
SM制御 Case 5.9 Case 5.10 Case 5.11 Case 5.12
LQIM制御 Case 5.13 Case 5.14 Case 5.15 Case 5.16
H∞IM制御 Case 5.17 Case 5.18 Case 5.19 Case 5.20

LQ制御
Case 4.1(横波、短周期規則波)   Case 4.2(横波、長周期規則波)
 
Case 4.3(斜波、短周期規則波)   Case 4.4(斜波、長周期規則波)
 
Case 5.1(横波、不規則波1)   
 
Case 5.2(横波、不規則波2)

Case 5.3(横波、時間遅れ1秒)   Case 5.4(横波、リミッタ2.5V)
 

H∞制御
Case 4.5(横波、短周期規則波)   Case 4.6(横波、長周期規則波)
 
Case 4.7(斜波、短周期規則波)   Case 4.8(斜波、長周期規則波)
 
Case 5.5(横波、不規則波1)  
 
Case 5.6(横波、不規則波2)

Case 5.7(横波、時間遅れ1秒)   Case 5.8(横波、リミッタ2.5V)
 

SM制御
Case 4.9(横波、短周期規則波)   
 
Case 4.11(斜波、短周期規則波)   Case 4.12(斜波、長周期規則波)
 
Case 5.9(横波、不規則波1)   

Case 5.10(横波、不規則波2)

Case 5.11(横波、時間遅れ1秒)   Case 5.12(横波、リミッタ2.5V)
 

LQIM制御
Case 4.13(横波、短周期規則波)   Case 4.14(横波、長周期規則波)
 
Case 4.15(斜波、短周期規則波)   Case 4.16(斜波、長周期規則波)
 
Case 5.13(横波、不規則波1)    
 
Case 5.14(横波、不規則波2)

Case 5.15(横波、時間遅れ)  Case 5.16()

H∞IM制御
Case 4.17(横波、短周期規則波)   Case 4.18(横波、長周期規則波)
 
Case 4.19(斜波、短周期規則波)   Case 4.20(斜波、長周期規則波)
 
Case 5.17(横波、不規則波1)   
 
Case 5.18(横波、不規則波2)

Case 5.19(横波、時間遅れ)   Case 5.20()

メインページ

SM制御

メインページ

●制御対象(赤)
\left\{\begin{array}{l} \dot{\vec x}=A(T_w){\vec x}+B(T_w)\vec{u}+B_w(T_w,\beta){\vec w},\ {\vec x}(0)={\vec x}_0\\ {\vec y}_M=C_M{\vec x}\\ y=\underbrace{C_SC_M}_{C}{\vec x} \end{array}\right.
●外乱信号(赤紫)
{\vec w}=\left[\begin{array}{l} H_w\sin\frac{2\pi}{T_w} t \\ H_w\cos\frac{2\pi}{T_w} t \end{array}\right]
●SM制御則
\displaystyle{{\vec u}(t)=\underbrace{{\vec u}_\ell(t)}_{linear\ control}+\underbrace{{\vec u}_n(t)}_{switching\ component} }
\displaystyle{{\vec u}_\ell(t)=-\underbrace{(SB)^{-1}(SA-\Phi S)}_{L=L_{eq}+L_{phi}}{\vec x}(t) }
\displaystyle{{\vec u}_n(t)=-\underbrace{(SB)^{-1}\rho(t,{\vec x})}_{L_n}\frac{P_2{\vec s}(t)}{||P_2{\vec s}(t)||} }

このとき、次の12ケースについて、線形シミュレーションを行ないます。ただし、短周期は6/\sqrt{50}、長周期は10/\sqrt{50}とします。

モデル/制御 横波短周期 横波長周期 斜波短周期 斜波長周期
2次系/SM Case 3.1 Case 3.2 Case 3.3 Case 3.4
4次系/SM Case 3.5 Case 3.6 Case 3.7 Case 3.8
6次系/SM Case 3.9 Case 3.10 Case 3.11 Case 3.12

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054

%---SM制御(2次)
if iCON==2 & iTAR==0, 
  is=[4,10]; ks=[2]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(6,2) 0]; 
  Mphi=0.5/180*pi; Mu=5;  
  Tphi=6/sqrt(50); 
  Q=diag(1./[Mphi Mphi/Tphi].^2);
  S=swflqr(A,B2,Q);
  Phi=-1/0.5*eye(ms); %-1/10
  P2=0.5*inv(-Phi);
  Check=P2*Phi+Phi*P2
  P2S=P2*S; 
  Leq=inv(S*B2)*S*A;
  LPhi=-inv(S*B2)*Phi*S; 
  rho=Mu;
  Ln=inv(S*B2)*rho;   
end
%---SM制御(4次)
if iCON==3 & iTAR==0,  
  is=[4,5,10,11]; ks=[2,3]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(4,[2,3]) 0 0]; 
  Mphi=0.5/180*pi; Mth=Mphi/10; Mu=5;  
  Tz=1; Tphi=6/sqrt(50); Tth=1*Tphi;
  Q=diag(1./[Mphi Mth Mphi/Tphi Mth/Tth].^2);
  S=swflqr(A,B2,Q);
  Phi=-1/0.5*eye(ms); %-1/10
  P2=0.5*inv(-Phi);
  Check=P2*Phi+Phi*P2
  P2S=P2*S; 
  Leq=inv(S*B2)*S*A;
  LPhi=-inv(S*B2)*Phi*S; 
  rho=Mu;
  Ln=inv(S*B2)*rho;   
end      
%---SM制御(6次)
if iCON==4 & iTAR==0,  %phi
  is=[3,4,5,9,10,11]; ks=[1,2,3]; ns=length(is); ms=length(ks);  
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(4,[1,2,3]) 0 0 0];    
  Mz=0.002; Mphi=0.5/180*pi; Mth=Mphi/10; Mu=5;  
  Tz=1; Tphi=6/sqrt(50); Tth=1*Tphi;
  Q=diag(1./[Mz Mphi Mth Mz/Tz Mphi/Tphi Mth/Tth].^2);
  S=swflqr(A,B2,Q);
  Phi=-1/0.5*eye(ms); %-1/10
  P2=0.5*inv(-Phi);
  Check=P2*Phi+Phi*P2
  P2S=P2*S; 
  Leq=inv(S*B2)*S*A;
  LPhi=-inv(S*B2)*Phi*S; 
  rho=Mu;
  Ln=inv(S*B2)*rho;   
end  

以下に、シミュレーション結果を示します。各ケースについて左図がSM制御系の応答を示しています。左図上段は制御点の応答[cm]、左図中段は操作入力[kgf]、左図下段は波浪力[kgf]を示しています。4秒までは制御なしで、4秒以降が制御ありです。制御点は横波・斜波とも右舷船首S1を取っています(横波の場合、右舷制御点の区別はありません)。また操作入力には5Vのリミッタを掛けています。

2次モデルに対するSM制御

Case 3.1(横波、短周期規則波)   Case 3.1(横波、長周期規則波)
 

Case 3.3(斜波、短周期規則波)   Case 3.4(斜波、長周期規則波)
 

4次モデルに対するSM制御

Case 3.5(横波、短周期規則波)   Case 3.6(横波、長周期規則波)
 

Case 3.7(斜波、短周期規則波)   Case 3.8(斜波、長周期規則波)
 

6次モデルに対するSM制御

Case 3.9(横波、短周期規則波)   Case 3.10(横波、長周期規則波)
 

Case 3.11(斜波、短周期規則波)   Case 3.12(斜波、長周期規則波)
 

メインページ

LQIM制御/H∞IM制御

メインページ

●制御対象(赤)
\left\{\begin{array}{l} \dot{\vec x}=A(T_w){\vec x}+B(T_w)\vec{u}+B_w(T_w,\beta){\vec w},\ {\vec x}(0)={\vec x}_0\\ {\vec y}_M=C_M{\vec x}\\ y=\underbrace{C_SC_M}_{C}{\vec x} \end{array}\right.
●外乱信号(赤紫)
{\vec w}=\left[\begin{array}{l} H_w\sin\frac{2\pi}{T_w} t \\ H_w\cos\frac{2\pi}{T_w} t \end{array}\right]
ここで、H_w=0.01[m]とする。
●外乱推定に用いる観測変数(緑)
y_d=C_d{\vec x}
これは主に制御点の縦変位を取る。
●外乱フィルタ(緑)
\dot{\hat{\vec x}}_d=A_d(T_w)\hat{{\vec x}}_d+B_d(T_w){y}_d,\ \hat{x}_d(0)=0
●安定化制御則(緑)
\vec{u}=-F(T_w)\vec{x}-F_d(T_w)\hat{\vec{x}}_d
●推力配分(橙)
\vec{u}は制御目的を達成するための望ましいF_z,F_\phi,F_\thetaであるが、これは4つのスラスタに次式で配分する。
\underbrace{\left[\begin{array}{c}F_1\\F_2\\F_3\\F_4\end{array}\right]}_{\vec F}= \underbrace{\frac{1}{4}\left[\begin{array}{rrr} 1 & 1 & -1 \\ 1 & 1 & 1 \\ 1 & -1 & 1\\1 & -1 & -1 \end{array}\right]}_{G^\dag} \underbrace{\left[\begin{array}{c}F_z\\F_\phi\\F_\theta\end{array}\right]}_{\vec\tau}
●推力制限(橙)
その際、次の制約が課される。
F_{min}\le F_k\le F_{max}\quad(k=1,2,3,4)
上のシミュレータは、この制約を考慮したものとなっている。ここでは、F_{max}=5[kgf]、F_{min}=-5[kgf]を用いる(要チェック)。
●留意点
制約を受けた推力は次式で駆動力に変換されるが、推力制限がある場合は設計した駆動力が働かないので注意が必要である。
\underbrace{\left[\begin{array}{c}F_z\\F_\phi\\F_\theta\end{array}\right]}_{\vec\tau}= \underbrace{\left[\begin{array}{rrrr} 1 & 1 & 1 & 1\\ 1 & 1 & -1 & -1\\ -1 & 1 & 1 & -1 \end{array}\right]}_{G} \underbrace{\left[\begin{array}{c}F_1\\F_2\\F_3\\F_4\end{array}\right]}_{\vec F}

このとき、次の16ケースについて、上のシミュレータを用いてシミュレーションを行なう。ただし、短周期は6/\sqrt{50}、長周期は10/\sqrt{50}とする。

モデル/制御 横波短周期 横波長周期 斜波短周期 斜波長周期
2次系/LQIM Case 2.1 Case 2.2 Case 2.3 Case 2.4
4次系/LQIM Case 2.5 Case 2.6 Case 2.7 Case 2.8
6次系/LQIM Case 2.9 Case 2.10 Case 2.11 Case 2.12
6次系/H∞IM Case 2.13 Case 2.14 Case 2.15 Case 2.16

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065

%---LQIM制御(2次)
if iCON==2 & iTAR==0,  %phi
  is=[4,10]; ks=[2]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(6,2) 0];
  AE=[A zeros(ns,2);Bd(:,:,iTW)*Cd Ad(:,:,iTW)];
  BE1=[B1;zeros(2)]; BE2=[B2;zeros(2,ms)];  
  CE=[1 0 0 0;0 0 1 0];
  Mphi=0.5/180*pi; Mu=5/2; 
  QE=diag(1./[Mphi Mphi].^2); RE=1/Mu^2;  
  [FE,pCLE]=opt(AE,BE2,CE,QE,RE);  %FE=FE*0   
end
%---LQIM制御(4次)
if iCON==3 & iTAR==0,  %phi
  is=[4,5,10,11]; ks=[2,3]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(4,[2,3]) 0 0];
  AE=[A zeros(ns,2);Bd(:,:,iTW)*Cd Ad(:,:,iTW)];
  BE1=[B1;zeros(2)]; BE2=[B2;zeros(2,ms)]; 
  CE=[1 0 0 0 0 0;0 1 0 0 0 0;0 0 0 0 1 0];
  Mphi=0.5/180*pi; Mu=5/2; 
  QE=diag(1./[Mphi Mphi/10 Mphi].^2); RE=1/Mu^2;  
  [FE,pCLE]=opt(AE,BE2,CE,QE,RE);    
end
%---LQIM制御(6次)
if iCON==4 & iTAR==0,  %phi
  is=[3,4,5,9,10,11]; ks=[1,2,3]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(4,[1 2,3]) 0 0 0];
  AE=[A zeros(ns,2);Bd(:,:,iTW)*Cd Ad(:,:,iTW)];
  BE1=[B1;zeros(2)]; BE2=[B2;zeros(2,ms)]; 
  CE=[eye(3,ns+2);0 0 0 0 0 0 1 0];
  Mz=0.002; Mphi=0.5/180*pi; Mu=5/2; 
  QE=diag(1./[Mz Mphi Mphi/10 Mphi].^2); RE=1/Mu^2;  
  [FE,pCLE]=opt(AE,BE2,CE,QE,RE);    
end
%---H∞IM制御(6次)
if iCON==5 & iTAR==0,  %phi
  is=[3,4,5,9,10,11]; ks=[1,2,3]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(4,[1,2,3]) 0 0 0];  
  AE=[A zeros(ns,2);Bd(:,:,iTW)*Cd Ad(:,:,iTW)];
  BE1=[B1;zeros(2)]; BE2=[B2;zeros(2,ms)];
  CE=[eye(3,ns+2);0 0 0 0 0 0 1 0];  
  Mz=0.002; Mphi=0.5/180*pi; Mu=5/2;   
  C1=[1/Mz*[Cd 0 0];zeros(3,6+2)]; 
  D11=zeros(4,2); 
  D12=[zeros(1,3);1/Mu*eye(3)];
  alpha=0.1; r=20; th=pi/4;
  LMIs=sf_synlmi6(AE,BE1,BE2,C1,D11,D12,alpha,r,th);
  cobj=zeros(1,decnbr(LMIs)); 
  cobj(1)=1; 
  [cost,xopt]=mincx(LMIs,cobj); 
  YE=dec2mat(LMIs,xopt,2);  
  ZE=dec2mat(LMIs,xopt,3);  
  FE=ZE/YE;  
  pCLE=eig(AE-BE2*FE)
end
  figure(1) 
  CdE=[Cd 0 0];
  ol=ltisys(AE,BE1,CdE); 
  cl=ltisys(AE-BE2*FE,BE1,CdE); 
  om=logspace(-1,2,200); 
  splot(cl,'sv',om),hold on 
  splot(ol,'sv',om),grid 

以下に、各ケースについてLQ制御系/H∞制御系の応答とゲイン線図を示す。前者の上段は制御点の応答[cm]、中段は操作入力[kgf]、下段は波浪外力[kgf]を示している。閉ループ系では
\dot{\vec x}=(A(T_w)-B(T_w)F(T_w)){\vec x}\underbrace{-B(T_w)F_d(T_w)\hat{\vec{x}}_d+B_w(T_w,\beta){\vec w}}_{相殺?}
が成り立つと思われる。左辺第2項(外乱推定項)と第3項(外乱項)が相殺するかどうかを下段で確認している。4秒までは制御なしで、4秒以降が制御ありの応答。制御点は横波・斜波とも右舷船首S1を取っている(横波の場合、右舷制御点の区別はない)。

●留意点 
外乱から着目する制御点までのゲイン線図は、LQIM制御系の場合、波周波数においてピンポイントで低減され、H∞IM制御系の場合、波周波数近傍で低減されている。

2次モデルに対するLQIM制御
Case 2.1(横波、短周期規則波)    Case 2.2(横波、長周期規則波)
 
 

Case 2.3(斜波、短周期規則波)    Case 2.4(斜波、長周期規則波)
 
 

4次モデルに対するLQIM制御

Case 2.5(横波、短周期規則波)    Case 2.6(横波、長周期規則波)
 
 

Case 2.7(斜波、短周期規則波)    Case 2.8(斜波、長周期規則波)
 
 

6次モデルに対するLQIM制御

Case 2.9(横波、短周期規則波)    Case 2.10(横波、長周期規則波)
 
 

Case 2.11(斜波、短周期規則波)    Case 2.12(斜波、長周期規則波)
 
 

6次モデルに対するH∞IM制御

Case 2.13(横波、短周期規則波)    Case 2.14(横波、長周期規則波)
 
 

Case 2.15(斜波、短周期規則波)    Case 2.16(斜波、長周期規則波)
 
 

Case 2.16コメント
この場合だけ制御性能が劣化しているが、操作入力のリミッタを5Vから少し緩めたり、制御動作を4秒からでなく少し早めたりすれば、Case 2.13/14/15と同等になる。

メインページ

LQ制御/H∞制御

メインページ

●制御対象(赤)
\left\{\begin{array}{l} \dot{\vec x}=A(T_w){\vec x}+B(T_w)\vec{u}+B_w(T_w,\beta){\vec w},\ {\vec x}(0)={\vec x}_0\\ {\vec y}_M=C_M{\vec x}\\ y=\underbrace{C_SC_M}_{C}{\vec x} \end{array}\right.
●外乱信号(赤紫)
{\vec w}=\left[\begin{array}{l} H_w\sin\frac{2\pi}{T_w} t \\ H_w\cos\frac{2\pi}{T_w} t \end{array}\right]
ここで、H_w=0.01[m]とする。
●安定化制御則(緑)
\vec{u}=-F(T_w)\vec{x}
●推力配分(橙)
\vec{u}は制御目的を達成するための望ましいF_z,F_\phi,F_\thetaであるが、これは4つのスラスタに次式で配分する。
\underbrace{\left[\begin{array}{c}F_1\\F_2\\F_3\\F_4\end{array}\right]}_{\vec F}= \underbrace{\frac{1}{4}\left[\begin{array}{rrr} 1 & 1 & -1 \\ 1 & 1 & 1 \\ 1 & -1 & 1\\1 & -1 & -1 \end{array}\right]}_{G^\dag} \underbrace{\left[\begin{array}{c}F_z\\F_\phi\\F_\theta\end{array}\right]}_{\vec\tau}
●推力制限(橙)
その際、次の制約が課される。
F_{min}\le F_k\le F_{max}\quad(k=1,2,3,4)
上のシミュレータは、この制約を考慮したものとなっている。
ここでは、F_{max}=2.5[kgf]、F_{min}=-2.5[kgf]を用いる(要チェック)。
●留意点
制約を受けた推力は次式で駆動力に変換されるが、推力制限がある場合は設計した駆動力が働かないので注意が必要である。
\underbrace{\left[\begin{array}{c}F_z\\F_\phi\\F_\theta\end{array}\right]}_{\vec\tau}= \underbrace{\left[\begin{array}{rrrr} 1 & 1 & 1 & 1\\ 1 & 1 & -1 & -1\\ -1 & 1 & 1 & -1 \end{array}\right]}_{G} \underbrace{\left[\begin{array}{c}F_1\\F_2\\F_3\\F_4\end{array}\right]}_{\vec F}

このとき、次の16ケースについて、上のシミュレータを用いてシミュレーションを行なう。ただし、短周期は6/\sqrt{50}、長周期は10/\sqrt{50}とする。

モデル/制御 横波短周期 横波長周期 斜波短周期 斜波長周期
2次系/LQ Case 1.1 Case 1.2 Case 1.3 Case 1.4
4次系/LQ Case 1.5 Case 1.6 Case 1.7 Case 1.8
6次系/LQ Case 1.9 Case 1.10 Case 1.11 Case 1.12
6次系/H∞ Case 1.13 Case 1.14 Case 1.15 Case 1.16

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056

%---LQ制御(2次)
if iCON==2 & iTAR==0, 
  is=[4,10]; ks=[2]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(6,2) 0]; 
  Mphi=0.5/180*pi; Mu=5/2; 
  Q=1/Mphi^2; R=1/Mu^2;  
  C=[1 0]; 
  [F,pCL]=opt(A,B2,C,Q,R);    
end  
%---LQ制御(4次)
if iCON==3 & iTAR==0, 
  is=[4,5,10,11]; ks=[2,3]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(4,[2,3]) 0 0]; 
  Mphi=0.5/180*pi; Mu2=5/2;
  Q=diag(1./[Mphi Mphi/10].^2); R=1/Mu2^2;  
  C=eye(2,ns); 
  [F,pCL]=opt(A,B2,C,Q,R);    
end    
%---LQ制御(6次)
if iCON==4 & iTAR==0,  
  is=[3,4,5,9,10,11]; ks=[1,2,3]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(4,[1,2,3]) 0 0 0]; 
  Mz=0.002; Mphi=0.5/180*pi; Mu=5/2; 
  Q=diag(1./[Mz Mphi Mphi/10].^2); R=1/Mu^2; 
  C=eye(3,ns); 
  [F,pCL]=opt(A,B2,C,Q,R);  
end
%---H∞制御(6次)
if iCON==5 & iTAR==0,  
  is=[3,4,5,9,10,11]; ks=[1,2,3]; ns=length(is); ms=length(ks);
  A=AA(is,is,iTW); B1=BB2(is,:,iTW); B2=BB1(is,ks,iTW); 
  Cd=[CM(4,[1,2,3]) 0 0 0];    
  Mz=0.002; Mphi=0.5/180*pi; Mu=5/2;   
  C1=[1/Mz*Cd;zeros(3,6)]; 
  D11=zeros(4,2); 
  D12=[zeros(1,3);1/Mu*eye(3)]; 
  alpha=0.1; r=20; th=pi/4;
  LMIs=sf_synlmi6(A,B1,B2,C1,D11,D12,alpha,r,th);
  cobj=zeros(1,decnbr(LMIs)); 
  cobj(1)=1; 
  [cost,xopt]=mincx(LMIs,cobj); 
  Y=dec2mat(LMIs,xopt,2);  
  Z=dec2mat(LMIs,xopt,3);  
  F=Z/Y;  
  pCL=eig(A-B2*F)  
end
%---sigma plot
  figure(1) 
  ol=ltisys(A,B1,Cd); 
  cl=ltisys(A-B2*F,B1,Cd); 
  om=logspace(-1,2,200); 
  splot(cl,'sv',om),hold on 
  splot(ol,'sv',om),grid  

以下に、各ケースについてLQ制御系/H∞制御系の応答とゲイン線図を示す。前者の上段は制御点の応答[cm]、中段は操作入力[kgf]、下段は波浪外力[kgf]を示している。4秒までは制御なしで、4秒以降が制御ありの応答。制御点は横波・斜波とも右舷船首S1を取っている(横波の場合、右舷制御点の区別はない)。

2次モデルに対するLQ制御
2次モデルの状態変数はロールとその微分。ここではロールに浮体の半幅長さを掛けた制御点の縦変位の低減を図っている。
Case 1.1(横波、短周期規則波)   Case 1.2(横波、長周期規則波)

Case 1.1コメント
●応答図上段:横波を受けて4秒までは制御点の縦変位は2cm程度まで大きく出る。4秒になると制御が始まり、1/10の0.2㎝程度まで低減される。
●応答図下段:浮体が受ける波浪外力を表している。計算式は
B_{w,5,1}H_w\sin\frac{2\pi}{T_w}t+B_{w,5,2}H_w\cos\frac{2\pi}{T_w}t を用いている。4秒までは5つの山がありますが、これを受けて制御点にも5つの山があることに注意。そして、4秒付近で、波浪外力は次の山に向かって負から正の方向に働いている。
●応答図中段:この外力を打ち消すように、4秒から制御動作が始まる。
●波浪外力から制御点までのゲイン線図を、制御前の開ループ系(橙)と制御前の閉ループ系(青)について示している。波周期に対応する角周波数は2\pi/(6/\sqrt{50})=7.4[rad/sec]です。閉ループ系のゲイン線図から、開ループ系のピークが抑制されていることが分かる。-20dBは1/10を意味する。
Case 1.2コメント
●波周期に対応する角周波数は2\pi/(10/\sqrt{50})=4.4[rad/sec]。閉ループ系のゲイン線図から、開ループ系のピークが抑制されていることが分かる。

Case 1.3(斜波、短周期規則波)   Case 1.4(斜波、長周期規則波)
 
 
Case 1.3コメント
●斜波のときは必ずピッチが生じるが、ここではロールだけに注目している。浮体が受ける波浪外力はCase1.1に比べて小さくなっている。
Case 1.4コメント
●斜波のときは必ずピッチが生じるが、ここではロールだけに注目している。浮体が受ける波浪外力はCase1.2に比べて小さくなっている。

4次モデルに対するLQ制御
4次モデルの状態変数はロールとピッチ、およびそれらの微分。ここではロールとピッチから計算される制御点の縦変位(ヒーブは入らないことに注意)の低減を図っている。

Case 1.5(横波、短周期規則波)   Case 1.6(横波、長周期規則波)
 
 

Case 1.5コメント
●横波の場合はピッチは誘起されないので、Case1.1と同じになる。
●応答図中段:ピッチが誘起されないので、ピッチ駆動力(橙)は零。
Case 1.6コメント
●横波の場合はピッチは誘起されないので、Case1.2と同じになる。
●応答図中段:ピッチが誘起されないので、ピッチ駆動力(橙)は零。

Case 1.7(斜波、短周期規則波)   Case 1.8(斜波、長周期規則波)
 
 

Case 1.7コメント
●応答図下段:ピッチ運動を誘起する波浪外力(橙)が生じている。計算式は B_{w,6,1}H_w\sin\frac{2\pi}{T_w}t+B_{w,6,2}H_w\cos\frac{2\pi}{T_w}t を用いています。
●応答図中段:ピッチ運動を抑制するピッチ駆動力(橙)が生じている。
Case 1.8コメント
●長周期斜波の場合の波浪外力は、短周期の場合に比べて、大き目に出る模様。

6次モデルに対するLQ制御
6次モデルの状態変数はヒーブとロール、ピッチ、およびそれらの微分。ここではヒーブとロール、ピッチから計算される制御点の縦変位(ヒーブが加わことに注意)の低減を図っている。

Case 1.9(横波、短周期規則波)   Case 1.10(横波、長周期規則波)
 
 

Case 1.9コメント
●横波の場合はピッチは誘起されないが、ヒーブが現れる。Case1.5との違いは、それに起因すると考えられる。
●応答図中段:青、赤、橙の順にヒーブ、ロール、ピッチに働く駆動力を表している。
●応答図下段:青、赤、橙の順にヒーブ、ロール、ピッチに働く波浪外力を表している。計算式は、それぞれ次を用いる。
B_{w,4,1}H_w\sin\frac{2\pi}{T_w}t+B_{w,4,2}H_w\cos\frac{2\pi}{T_w}t
B_{w,5,1}H_w\sin\frac{2\pi}{T_w}t+B_{w,5,2}H_w\cos\frac{2\pi}{T_w}t
B_{w,6,1}H_w\sin\frac{2\pi}{T_w}t+B_{w,6,2}H_w\cos\frac{2\pi}{T_w}t
Case 1.10コメント
●横波の場合はピッチは誘起されないが、ヒーブが現れます。Case1.6との違いは、それに起因すると考えられる。

Case 1.11(斜波、短周期規則波)   Case 1.12(斜波、長周期規則波)
 
 

Case 1.11コメント
●斜波の場合はピッチが誘起され、ヒーブが現れる。Case1.7との違いは、それに起因すると考えらる。
Case 1.12コメント
●斜波の場合はピッチが誘起され、ヒーブが現れる。Case1.8との違いは、それに起因すると考えらる。

6次モデルに対するH∞制御
波浪外力から制御点までのゲイン線図は、LQ制御と比べて、波周期に対応する角周波数でより低減されていて、制御点縦変位の抑制も効いています。

Case 1.13(横波、短周期規則波)   Case 1.14(横波、長周期規則波)
 
 
Case 1.13コメント
Case 1.14コメント

Case 1.15(斜波、短周期規則波)   Case 1.16(斜波、長周期規則波)
 
 
Case 1.15コメント
Case 1.16コメント

メインページ

リスケの手法

リスケアクティビティの分類



G010

G021

G022


095
096
097
098
099
100
101
102
103

    idata2a=[ 
    "S01_B041P_20","S01_B041P_24",
    "S01_B061S_10","S01_B061S_12","S01_B061S_13",
    "S01_B101P_00","S01_B101P_02","S01_B101P_03","S01_B101P_04","S01_B101P_05",
    "S01_B101S_00","S01_B101S_04","S01_B101S_05",
    "S01_B114C_00","S01_B114C_03","S01_B114C_04","S01_B114C_05",
    "S01_B175C_00","S01_B175C_04",
    "S01_B195C_00","S01_B195C_03","S01_B195C_04",
    ]

104
105
111
112
113
114
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125

    data2["S01_B041P_20"]=['S01_B041P_20__11Lx12B_出棟', 5, 1, d1-1, ['S01_B041P_21', 'S01_B041P_24', '0', '0', '0'], [[0, -1], [0, -1], [0, 0], [0, 0], [0, 0]], [[19, 12, 23, 2, 14]], 0, [11, 12, 0], 132]
    data2["S01_B041P_24"]=['S01_B041P_24__11Lx12B_甲配', 16, 0, 0, ['S01_B041P_30', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 1, 42-4*10]
    data2["S01_B061S_10"]=['S01_B061S_10__14Lx13B_正転', 3, 1, d1-1, ['S01_B061S_11', 'S01_B061S_12', 'S01_B061S_13', '0', '0'], [[0, -1], [0, -1], [0, -1], [0, 0], [0, 0]], [[4, -2, 11, 29, 43]], 0, [13, 14, 0], 182]
    data2["S01_B061S_12"]=['S01_B061S_12__14Lx13B_溶接', 11, 0, 0, ['S01_B061S_20', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 1, 204-4*10]
    data2["S01_B061S_13"]=['S01_B061S_13__14Lx13B_甲配', 16, 0, 0, ['S01_B061S_20', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 1, 60-3*10]
    data2["S01_B101P_00"]=['S01_B101P_00__14Lx9B_開始',  1, 1, d1-1, ['S01_B101P_01', 'S01_B101P_02', '0', '0', '0'], [[0, -1], [0, -1], [0, 0], [0, 0], [0, 0]], [[2, 44, 58, 2, 11]], 0, [14, 9, 0], 126]
    data2["S01_B101P_02"]=['S01_B101P_02__14Lx9B_取付',  10, 0, 0, ['S01_B101P_03', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 0, 114-8*10]
    data2["S01_B101P_03"]=['S01_B101P_03__14Lx9B_溶接',  11, 0, 0, ['S01_B101P_04', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 0, 136]
    data2["S01_B101P_04"]=['S01_B101P_04__14Lx9B_取付',  12, 0, 0, ['S01_B101P_05', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 0, 76]
    data2["S01_B101P_05"]=['S01_B101P_05__14Lx9B_溶接',  13, 0, 0, ['S01_B101P_10', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 1, 68]
    data2["S01_B101S_00"]=['S01_B101S_00__14Lx12B_開始', 1, 1, d1-1, ['S01_B101S_01', 'S01_B101S_04', '0', '0', '0'], [[0, -1], [0, -1], [0, 0], [0, 0], [0, 0]], [[2, 16, 30, 1, 13]], 0, [14, 12, 0], 168]
    data2["S01_B101S_04"]=['S01_B101S_04__14Lx12B_取付', 12, 0, 0, ['S01_B101S_05', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 0, 76]
    data2["S01_B101S_05"]=['S01_B101S_05__14Lx12B_溶接', 13, 0, 0, ['S01_B101S_10', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 1, 68]
    data2["S01_B114C_00"]=['S01_B114C_00__13Lx12B_開始', 1, 1, d1-1, ['S01_B114C_01', 'S01_B114C_03', '0', '0', '0'], [[0, -1], [0, -1], [0, 0], [0, 0], [0, 0]], [[3, 27, 40, 3, 15]], 0, [13, 12, 0], 156]
    data2["S01_B114C_03"]=['S01_B114C_03__13Lx12B_溶接', 11, 0, 0, ['S01_B114C_04', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 0, 204-12*10]
    data2["S01_B114C_04"]=['S01_B114C_04__13Lx12B_取付', 12, 0, 0, ['S01_B114C_05', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 0, 76]
    data2["S01_B114C_05"]=['S01_B114C_05__13Lx12B_溶接', 13, 0, 0, ['S01_B114C_10', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 1, 10]
    data2["S01_B175C_00"]=['S01_B175C_00__13Lx11B_開始', 1, 1, d1-1, ['S01_B175C_01', 'S01_B175C_04', '0', '0', '0'], [[0, -1], [0, -1], [0, 0], [0, 0], [0, 0]], [[6, 27, 40, 1, 12]], 0, [13, 11, 0], 143]
    data2["S01_B175C_04"]=['S01_B175C_04__13Lx11B_取付', 10, 0, 0, ['S01_B175C_10', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 1, 16]
    data2["S01_B195C_00"]=['S01_B195C_00__13Lx13B_開始', 1, 1, d1-1, ['S01_B195C_01', 'S01_B195C_03', '0', '0', '0'], [[0, -1], [0, -1], [0, 0], [0, 0], [0, 0]], [[6, 40, 53, -2, 11]], 0, [13, 13, 0], 169]
    data2["S01_B195C_03"]=['S01_B195C_03__13Lx13B_溶接', 11, 0, 0, ['S01_B195C_04', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 0, 48]
    data2["S01_B195C_04"]=['S01_B195C_04__13Lx13B_取付', 10, 0, 0, ['S01_B195C_10', '0', '0', '0', '0'], [[0, 0], [0, 0], [0, 0], [0, 0], [0, 0]], 0, 0, 1, 16]

G030


126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196

    idata2b=[     
    "S01_B021P_00","S01_B021P_02","S01_B021P_03","S01_B021P_10","S01_B021P_12",
    "S01_B021S_00","S01_B021S_02","S01_B021S_03","S01_B021S_10","S01_B021S_12",
    "S01_B031P_00","S01_B031P_02","S01_B031P_03","S01_B031P_10","S01_B031P_12",
    "S01_B031S_00","S01_B031S_02","S01_B031S_03","S01_B031S_10","S01_B031S_12",
    "S01_B041P_30","S01_B041P_32",
    "S01_B041S_30","S01_B041S_32", 
    "S01_B051P_20","S01_B051P_22","S01_B051P_23","S01_B051P_24",
    "S01_B051P_30","S01_B051P_32",
    "S01_B051S_20","S01_B051S_22","S01_B051S_23","S01_B051S_24",
    "S01_B051S_30","S01_B051S_32",
    "S01_B061P_10","S01_B061P_12","S01_B061P_13","S01_B061P_14",
    "S01_B061P_20","S01_B061P_22","S01_B061P_30","S01_B061P_32",
    "S01_B061S_20","S01_B061S_22","S01_B061S_30","S01_B061S_32",
    "S01_B071P_10","S01_B071P_12","S01_B071P_13","S01_B071P_14",
    "S01_B071P_20","S01_B071P_22",
    "S01_B071P_30","S01_B071P_32",
    "S01_B071S_10","S01_B071S_12","S01_B071S_13","S01_B071S_14",
    "S01_B071S_20","S01_B071S_22",
    "S01_B071S_30","S01_B071S_32",
    "S01_B084P_00","S01_B084P_02","S01_B084P_03","S01_B084P_04",
    "S01_B084P_10","S01_B084P_12",
    "S01_B084S_00","S01_B084S_02","S01_B084S_03","S01_B084S_04",
    "S01_B084S_10","S01_B084S_12",
    "S01_B091P_10","S01_B091P_12",
    "S01_B091P_20","S01_B091P_22","S01_B091P_23","S01_B091P_24",
    "S01_B091S_10","S01_B091S_12",
    "S01_B091S_20","S01_B091S_22","S01_B091S_23","S01_B091S_24",
    "S01_B101P_10","S01_B101P_12","S01_B101P_13","S01_B101P_14",
    "S01_B101P_20","S01_B101P_22",
    "S01_B101P_30","S01_B101P_32",
    "S01_B101S_10","S01_B101S_12","S01_B101S_13","S01_B101S_14",
    "S01_B101S_20","S01_B101S_22",
    "S01_B114C_10","S01_B114C_12","S01_B114C_13","S01_B114C_14",
    "S01_B114H_00","S01_B114H_02","S01_B114H_12",
    "S01_B123C_10","S01_B123C_12","S01_B123C_13",
    "S01_B153C_00","S01_B153C_02","S01_B153C_10","S01_B153C_12",
    "S01_B153C_20","S01_B153C_22","S01_B153C_23",
    "S01_B153D_00","S01_B153D_02",
    "S01_B153H_00","S01_B153H_02","S01_B153H_03",
    "S01_B165C_10","S01_B165C_12",
    "S01_B165C_20","S01_B165C_22","S01_B165C_23","S01_B165C_24","S01_B165C_25","S01_B165C_26",
    "S01_B165C_30","S01_B165C_32","S01_B165C_33",
    "S01_B175C_10","S01_B175C_12",
    "S01_B175C_20","S01_B175C_22","S01_B175C_23","S01_B175C_24","S01_B175C_25","S01_B175C_26",
    "S01_B175C_30","S01_B175C_32","S01_B175C_33",
    "S01_B184C_00","S01_B184C_02","S01_B184C_10","S01_B184C_12","S01_B184C_13","S01_B184C_14",
    "S01_B184H_00","S01_B184H_02","S01_B184H_03",
    "S01_B195C_10","S01_B195C_12","S01_B195C_20","S01_B195C_22","S01_B195C_23","S01_B195C_24","S01_B195C_25",
    "S01_B195C_30","S01_B195C_32","S01_B195C_33",
    "S01_B223C_00","S01_B223C_02","S01_B223C_03","S01_B223C_10","S01_B223C_12",
    "S01_B223D_00","S01_B223D_02",
    "S01_B223H_00","S01_B223H_02","S01_B223H_03",
    "S01_B235C_00","S01_B235C_02","S01_B235C_03","S01_B235C_04",
    "S01_B235C_10","S01_B235C_12",
    "S01_B245C_00","S01_B245C_02","S01_B245C_03","S01_B245C_04",
    "S01_B245C_10","S01_B245C_12","S01_B245C_13",
    "S01_B245C_20","S01_B245C_22","S01_B245C_23","S01_B245C_24",
    "S01_B265C_00","S01_B265C_02","S01_B265C_03","S01_B265C_04",
    "S01_B265C_10","S01_B265C_12",
    "S01_B275C_00","S01_B275C_02","S01_B275C_03","S01_B275C_04",
    "S01_B345C_00","S01_B345C_02","S01_B345C_03","S01_B345C_04",
    "S01_B375C_00","S01_B375C_02","S01_B375C_03","S01_B375C_04",
    "S01_B392P_00","S01_B392P_02","S01_B392P_03","S01_B392P_04","S01_B392P_05","S01_B392P_10","S01_B392P_12","S01_B392P_13",
    "S01_B392S_00","S01_B392S_02","S01_B392S_03","S01_B392S_04","S01_B392S_05",
    "S01_B422P_00","S01_B422P_02","S01_B422P_03","S01_B422P_04","S01_B422P_10","S01_B422P_12",
    "S01_B422S_00","S01_B422S_02","S01_B422S_03","S01_B422S_04","S01_B422S_10","S01_B422S_12",
    "S01_B432S_00","S01_B432S_02","S01_B432S_03","S01_B432S_04","S01_B432S_05",
    "S01_B563C_00","S01_B563C_02",
    "S01_B563H_00","S01_B563H_02","S01_B563H_03",
    ]   

G041


197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222

    idata2c1=[
    "S01_B014C_00","S01_B014C_02","S01_B014C_03","S01_B014C_04","S01_B014C_05",
    "S01_B021P_20","S01_B021P_22","S01_B021S_20","S01_B021S_22",
    "S01_B031P_20","S01_B031P_22","S01_B031S_20","S01_B031S_22",
    "S01_B041P_40","S01_B041P_42","S01_B041S_40","S01_B041S_42",
    "S01_B051P_40","S01_B051P_42","S01_B051S_40","S01_B051S_42",
    "S01_B061P_40","S01_B061P_42","S01_B061S_40","S01_B061S_42",
    "S01_B071P_40","S01_B071P_42","S01_B071S_40","S01_B071S_42",
    "S01_B084P_20","S01_B084P_22","S01_B091P_30","S01_B091P_32",
    "S01_B123C_20","S01_B123C_22","S01_B123C_23",
    "S01_B134P_00","S01_B134P_02","S01_B134P_03","S01_B134P_04",
    "S01_B134S_00","S01_B134S_02","S01_B134S_03","S01_B134S_04",
    "S01_B153C_30","S01_B153C_32",
    "S01_B165C_40","S01_B165C_42","S01_B165C_43","S01_B165C_44",
    "S01_B175C_40","S01_B175C_42","S01_B175C_43",
    "S01_B235C_20","S01_B235C_22","S01_B235C_23","S01_B235C_24","S01_B235C_25","S01_B235C_26",
    "S01_B275C_10","S01_B275C_12","S01_B275C_13","S01_B275C_14","S01_B275C_15","S01_B275C_16",
    "S01_B293D_00","S01_B293D_02","S01_B293D_03","S01_B293D_04","S01_B293D_05",
    "S01_B333C_00","S01_B333C_02","S01_B333C_03",
    "S01_B384C_00","S01_B384C_02","S01_B384C_03","S01_B384C_04","S01_B384C_05",
    "S01_B432P_00","S01_B432P_02","S01_B432P_03","S01_B432P_04","S01_B432P_05",
    "S01_B444H_00","S01_B444H_02","S01_B444H_12",
   #"S01_B454H_00","S01_B454H_02","S01_B454H_12",
    "S01_B462P_00","S01_B462P_02","S01_B462P_03","S01_B462P_04",
    "S01_B563C_10","S01_B563C_12",        
    ]

223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246

    data2["S01_B014C_99"][3]=d2; 
    data2["S01_B021P_99"][3]=d2;    data2["S01_B021S_99"][3]=d2;
    data2["S01_B031P_99"][3]=d2;    data2["S01_B031S_99"][3]=d2;
    data2["S01_B041P_99"][3]=d2;    data2["S01_B041S_99"][3]=d2;
    data2["S01_B051P_99"][3]=d2;    data2["S01_B051S_99"][3]=d2;
    data2["S01_B061P_99"][3]=d2;    data2["S01_B061S_99"][3]=d2;
    data2["S01_B071P_99"][3]=d2;    data2["S01_B071S_99"][3]=d2;
    data2["S01_B084C_00"][3]=d2;
    data2["S01_B091P_40"][3]=d2;
    data2["S01_B123C_30"][3]=d2;
    data2["S01_B134P_10"][3]=d2;    data2["S01_B134S_10"][3]=d2;
    data2["S01_B153C_40"][3]=d2;
    data2["S01_B165C_99"][3]=d2;
    data2["S01_B175C_99"][3]=d2;
    data2["S01_B235C_30"][3]=d2;
    data2["S01_B275C_20"][3]=d2;
    data2["S01_B293C_00"][3]=d2;
    data2["S01_B333C_10"][3]=d2;
    data2["S01_B384C_10"][3]=d2;
    data2["S01_B432P_10"][3]=d2;
    data2["S01_B444S_10"][3]=d2;
    data2["S01_B454P_10"][3]=d2;
    data2["S01_B462P_10"][3]=d2;
    data2["S01_B563C_20"][3]=d2;

G042



247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262

    idata2c2=[
    "S01_B084S_20","S01_B084S_22","S01_B091S_30","S01_B091S_32",
    "S01_B114C_20","S01_B114C_22","S01_B114C_23","S01_B114C_24",
    "S01_B184C_20","S01_B184C_22","S01_B184C_23",
    "S01_B223C_20","S01_B223C_22",
    "S01_B245C_30","S01_B245C_32","S01_B245C_33",
    "S01_B265C_20","S01_B265C_22",
    "S01_B345C_10","S01_B345C_12","S01_B345C_13","S01_B345C_14","S01_B345C_15",
    "S01_B392P_20","S01_B392P_22",
    "S01_B392S_10","S01_B392S_12",
    "S01_B444S_00","S01_B444S_02",
    "S01_B462S_00","S01_B462S_02","S01_B462S_03",
    "S01_B472P_00","S01_B472P_02","S01_B472P_03",
    "S01_B472S_00","S01_B472S_02","S01_B472S_03",
    "S01_B707D_00","S01_B707D_02",        
    ]   

263
264
265
266
267
268
269

    data2["S01_B084S_22"][9]=60-20
    data2["S01_B091S_32"][9]=90-50
    data2["S01_B114C_22"][9]=160-80
    data2["S01_B114C_23"][9]=110-80
    data2["S01_B184C_22"][9]=390-50
    data2["S01_B245C_33"][9]=24-20
    data2["S01_B392P_22"][9]=90-10

270
271
272
273
274
275
276
277
278
279
280

    data2["S01_B084C_00"][3]=d2;
    data2["S01_B114C_99"][3]=d2;    data2["S01_B184C_99"][3]=d2;
    data2["S01_B223C_23"][3]=d2;
    data2["S01_B245C_40"][3]=d2;
    data2["S01_B265C_23"][3]=d2;
    data2["S01_B345C_16"][3]=d2;
    data2["S01_B392P_23"][3]=d2;    data2["S01_B392S_13"][3]=d2;
    data2["S01_B444S_03"][3]=d2;
    data2["S01_B462S_04"][3]=d2;
    data2["S01_B472P_04"][3]=d2;    data2["S01_B472S_04"][3]=d2;
    data2["S01_B707D_03"][3]=d2;    

rcpsp71.py


001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059

#rcpsp71.py プッシュ型逐次計画 
from optseq import *
import math
#=======================================================================
prob=Model()
CS=["CS","CC","SS","SC"]
#=======================================================================
#リソースの定義(A造船所)
file_path = 'rcpsp_shipyard_A.txt'
with open(file_path, 'r', encoding='utf-8') as file:
    prog=file.read()
exec(prog)
#=======================================================================
#データセットの定義(S01)
# data_BC1, data_BC2, data_BC3, data_BC4, data_BC5, data_BC6, data_BC7
file_path = 'rcpsp_dataset_S01.txt'
with open(file_path, 'r', encoding='utf-8') as file:
    prog=file.read()
exec(prog)
#=======================================================================
data={}
data.update(data_BC1); 
data.update(data_BC2); 
data.update(data_BC3); 
data.update(data_BC4); 
data.update(data_BC5); 
data.update(data_BC6); 
data.update(data_BC7);
#-----
def extact(data):
    w=[]
    for i in data.keys():
        if data[i][1]>=0:  w.append(i)
    return w
#-----
idata_BC1=extact(data_BC1)
idata_BC2=extact(data_BC2)
idata_BC3=extact(data_BC3)
idata_BC4=extact(data_BC4)
idata_BC5=extact(data_BC5)
idata_BC6=extact(data_BC6)
idata_BC7=extact(data_BC7)
idata=idata_BC1+idata_BC2+idata_BC3+idata_BC4+idata_BC5+idata_BC6+idata_BC7
#print(len(idata))      
#=======================================================================
def L1L2B1B2lb(R,data,i,j,no):
    no1=data[i][j][no][0]; #j=6,7
    L=R[no1][1]; B=R[no1][2];
    l=math.floor(data[i][8][0]); b=math.floor(data[i][8][1]);   
    L1=data[i][j][no][1]; L2=data[i][j][no][2]; 
    if L1<0: l=l-abs(L1); L1=0;
    if L2>L: l=l-abs(L2-L); L2=L;         
    B1=data[i][j][no][3]; B2=data[i][j][no][4];   
    if B1<0: b=b-abs(B1); B1=0
    if B2>B: b=b-abs(B2-B); B2=B;  
    ll=L2-L1; bb=B2-B1; 
    if L2-L1>l: ll=l 
    if B2-B1>b: bb=b  
    return [no1,L1,L2,B1,B2,ll,bb] 

060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095

281
282
283
284
285

#=======================================================================   
# iwhich=5  #プッシュ型逐次計画Step1: 作業の場所取りは面全体(前後船含む)
iwhich=6  #プッシュ型逐次計画Step2: 待機の場所取りは面全体(前後船含む)
if iwhich in [5,6]:
#=======================================================================    
    data2={}
    for i in data:
        data2[i]=data[i].copy() 
    prob3=Model()
#----------------------------------------------------------------------- 
#[5.0a]リソースの定義(場所) 
#----------------------------------------------------------------------- 
    res3PL,S=res3(prob3,R)
    res2S=res2(prob3,R,S)
#----------------------------------------------------------------------- 
#[5.0b]リソースの定義(作業員)
#----------------------------------------------------------------------- 
    H={
    1:["H[1]", 28*10, 1], #取付  
    2:["H[2]", 43*10, 1], #溶接
    3:["H[3]", 12*10, 1], #塗装
    4:["H[4]",  5*10, 1], #鉄艤
    5:["H[5]",  7*10, 1], #甲配
    6:["H[6]",  5*10, 1], #機配
    }
    res1W=res1(prob3,H)   
#----------------------------------------------------------------------- 
#[5.0c]作業の定義G2
#----------------------------------------------------------------------- 
    d1=26; d2=50; 
    # if   stop&led1:                  #G1完了
    # elif start+1&led1  and d1&le=stop: #G2仕掛
    # elif d1&le=start+1 and stop&le=d2: #G3自由
    # elif start+1&le=d2 and d2&lestop:  #G4次のリスケにおける仕掛
    # elif d2&lestart+1:               #G5未着手
#-----------------------------------------------------------------------
   
#-----------------------------------------------------------------------   
    idata2=idata2a+idata2b+idata2c1+idata2c2
    if iwhich==5 : wplace=[]  #計画上の待機なし
    else: wplace=idata2a+idata2b+idata2c1+idata2c2  #計画上の待機あり     
   #sys.exit()    

286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
429
429
430
431
432
433
434
454
455
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
519
519
520
521
522
523
524
524
525
527
528
529
530
531
532
533
534
535
536
537

#-----------------------------------------------------------------------
#[5.1]作業の定義...G2+G3
#----------------------------------------------------------------------- 
    act3={}
    print("リスケ開始")
    # print("*** pull in G2+G3 ***")
    # for i in idata2:       
    #     act3[i]=prob3.addActivity(data2[i][0],duedate=98,backward=True)  
    print("*** push in G2+G3 ***")  
    for i in idata2:    
        act3[i]=prob3.addActivity(data2[i][0])         
#----------------------------------------------------------------------- 
#[5.2]先行制約...G2+G3
#----------------------------------------------------------------------- 
    for i in  idata2:
        for iw in [0,1,2,3,4]:
            if data2[i][4][iw] in idata2:
                prob3.addTemporal(act3[i],act3[data2[i][4][iw]],\
                tempType=CS[data2[i][5][iw][0]], delay=int(data2[i][5][iw][1]))  
    #-----日程固定
   # 0搭載, 2入荷, 6入ブ, 7出ブ, 9合体, 1開始, 3正, 4反, 5出棟, 8運搬,     
    for i in idata2a:  
        if data2[i][1] in [1,3,5]: #
            prob3.addTemporal("source",act3[i],tempType="SS",delay= data2[i][3])   
            prob3.addTemporal(act3[i],"source",tempType="SS",delay=-data2[i][3]) 
    for i in idata2b:  
        if data2[i][1] in [0,2,6,7,9]: #
            prob3.addTemporal("source",act3[i],tempType="SS",delay= data2[i][3])   
            prob3.addTemporal(act3[i],"source",tempType="SS",delay=-data2[i][3])              
    for i in idata2b:
        prob3.addTemporal("source",act3[i],tempType="CS",delay= d1)            
        prob3.addTemporal(act3[i],"source",tempType="CS",delay=-d2) 
    for i in idata2c1+idata2c2:  
        if data2[i][1] in [0,2,6,7,9,1,3,4,5,8]: #
            prob3.addTemporal("source",act3[i],tempType="SS",delay= data2[i][3])   
            prob3.addTemporal(act3[i],"source",tempType="SS",delay=-data2[i][3])                  
#----------------------------------------------------------------------- 
#[5.3]資源制約(配員)...G2+G3
#-----------------------------------------------------------------------  
    mode3={} 
    wno1=0;wno2=0;wno3=0;wno4=0;wno5=0;wno6=0;wno7=0
    for i in idata2:
    #10 F #11 W #12 C #13 CC #15 鉄艤 #16 甲配 #17 機配 #18 内塗 #19 外塗   
        if data2[i][1] in [10,12,11,13,15,16,17,18,19]: 
            hours=10
            n=math.ceil(data2[i][9]/hours)  #1人で何日かかるか
            mode3[i]=Mode("mode["+i+"]",duration=n)
            mode3[i].addBreak(0,"inf",maxtime=10)           
            if data2[i][1] in [10,12]:      #取付28人
                mode3[i].addResource(res1W[1],{(0,n):hours})
                if n>7 : mode3[i].addParallel(1,n,8)      
                else:    mode3[i].addParallel(1,n,4)                    
                wno1+=1
            elif data2[i][1] in [11,13]:    #溶接43人
                mode3[i].addResource(res1W[2],{(0,n):hours})
                if n>11 : mode3[i].addParallel(1,n,12)      
               #if n>11 : mode3[i].addParallel(1,n,8) 
                else:     mode3[i].addParallel(1,n,8)                  
                wno2+=1
            elif data2[i][1] in [15]:       #鉄艤装5人
                mode3[i].addResource(res1W[4],{(0,n):hours})
                if n>2 : mode3[i].addParallel(1,n,5)      
                else:    mode3[i].addParallel(1,n,3)   
                wno3+=1
            elif data2[i][1] in [16]:       #甲板配管7人
                mode3[i].addResource(res1W[5],{(0,n):hours})
                if n>6 : mode3[i].addParallel(1,n,7)      
                else:    mode3[i].addParallel(1,n,4)          
                wno4+=1
            elif data2[i][1] in [17]:       #機関配管5人
                mode3[i].addResource(res1W[6],{(0,n):hours})
                if n>14: mode3[i].addParallel(1,n,5)      
                else:    mode3[i].addParallel(1,n,3)  
                wno5+=1
            elif data2[i][1] in [18]:       #塗装12人
                mode3[i].addResource(res1W[3], {(0,n):hours})
                if n>8 : mode3[i].addParallel(1,n,9)      
                else:    mode3[i].addParallel(1,n,8)        
                wno6+=1
            elif data2[i][1] in [19]:       #塗装12人
                mode3[i].addResource(res1W[3], {(0,n):hours})
                if n>3 : mode3[i].addParallel(1,n,8)      
                else:    mode3[i].addParallel(1,n,4)        
                wno6+=1                
            act3[i].addModes(mode3[i])       
    # 0搭載, 1開始, 2入荷, 3正, 4反, 5出棟, 6入ブ, 7出ブ, 8運搬, 9合体; 14ダミー
        elif data2[i][1]!=-1:
            if data2[i][1]==14: mode3[i]=Mode("mode["+i+"]",duration=data2[i][2]) 
            else: mode3[i]=Mode("mode["+i+"]",duration=1) 
            act3[i].addModes(mode3[i])              
            wno7+=1                   
#----------------------------------------------------------------------- 
#[5.4]資源制約(作業場所)...G2+G3 
#----------------------------------------------------------------------- 
    # 0搭載, 1開始, 2入荷, 3正, 4反, 5出棟, 6入ブ, 7出ブ, 8運搬, 9合体, 
    ww={}
    for i in idata2:
        if data2[i][1] in [1,2,3,4,5,6,7,8,9]:
            nop=len(data2[i][4])
            for iw in range(1,nop):
                j=data2[i][4][iw] #枝iwの後続作業ID
                if j!="0":
                    #シリアルな後続は飛ばす
                    while data2[j][8]==0: j=data2[j][4][0]
                ww[i,iw]=j 
    #----- 作業場所    
    d_act={} 
    d_mode={}
    for i in idata2:
          if data2[i][1] in [1,2,3,4,5,6,7,8,9] and data2[i][6]!=0:
              d_act[i]=prob3.addActivity("場所_for_"+i)       
             #print(i)
              for no in range(len(data2[i][6])):  
                  w=L1L2B1B2lb(R,data2,i,6,no)
                  no1,L1,L2,B1,B2,l,b=w[0],w[1],w[2],w[3],w[4],w[5],w[6]
                 #L1=0; L2=R[no1][1]; B1=0; B2=R[no1][2]; #点->面のとき                  
                  skipL=1; skipB=1;        
                  for j in range(L1,L2-l+1,skipL): 
                      for k in range(B1,B2-b+1,skipB):
                          d_mode[i,no1,j,k]=Mode(\
                          "mode["+i+"]3_R[{0:03d}][{1:03d}_{2:03d}][{3:03d}_{4:03d}]"\
                          .format(no1,j,k,l,b))
                          for s in range(0,l):
                              for t in range(0,b):
                                  d_mode[i,no1,j,k].addBreak(0,'inf')
                                  d_mode[i,no1,j,k].addResource(res3PL[no1,j+s,k+t],1,"break")
                                  d_mode[i,no1,j,k].addResource(res2S[no1],l*b,"break")                                
                          d_act[i].addModes(d_mode[i,no1,j,k])                    
                  prob3.addTemporal(act3[i],d_act[i],tempType="SS")
                  prob3.addTemporal(d_act[i],act3[i],tempType="SS")
                  nop=len(data2[i][4])
                  for iw in range(1,nop):
                      ii=ww[i,iw]
                      if ii!="0" and ii in idata2:
                          prob3.addTemporal(d_act[i],act3[ii],tempType="CC")  
                          prob3.addTemporal(act3[ii],d_act[i],tempType="CC")  
    #----- 待機場所 
    d_act2={}
    d_mode2={}
    for i in wplace:
        if data2[i][1] in [1,2,3,4,5,6,7,8,9]:
            data2[i][7]=data2[i][6]            
            d_act2[i]=prob3.addActivity("空置_after_"+i) 
            for no in range(len(data2[i][7])):  
                w=L1L2B1B2lb(R,data2,i,7,no)
                no1,L1,L2,B1,B2,l,b=w[0],w[1],w[2],w[3],w[4],w[5],w[6]       
                #L1=0; L2=R[no1][1]; B1=0; B2=R[no1][2]; 
                skipL=1; skipB=1;        
                for j in range(L1,L2-l+1,skipL): 
                    for k in range(B1,B2-b+1,skipB):
                        d_mode2[i,no1,j,k]=Mode(\
                        "mode["+i+"]4_R[{0:03d}][{1:03d}_{2:03d}][{3:03d}_{4:03d}]"\
                        .format(no1,j,k,l,b))
                        for s in range(0,l):
                            for t in range(0,b):
                                d_mode2[i,no1,j,k].addBreak(0,'inf')
                                d_mode2[i,no1,j,k].addResource(res3PL[no1,j+s,k+t],0,"break")
                                #d_mode2[i,no1,j,k].addResource(res2S[no1],0,"break") 
                        d_act2[i].addModes(d_mode2[i,no1,j,k])                          
                prob3.addTemporal(d_act[i],d_act2[i],tempType="CS")
                prob3.addTemporal(d_act2[i],d_act[i],tempType="SC") 
                ii=data2[ww[i,1]][4][0]
                if ii in wplace:
                    prob3.addTemporal(act3[ii],d_act2[i],tempType="SC")
                    prob3.addTemporal(d_act2[i],act3[ii],tempType="CS")                                      
#----------------------------------------------------------------------- 
#[5.5]問題求解... G2+G3
#----------------------------------------------------------------------- 
    A=[]
    for a in prob3.act: A.append(a.name) 
   #print("アクティビティ:",A)  
    N=len(prob3.act)
    print("アクティビティ総数(含待機数):",N)  
    M=[]
    for a in prob3.act: M.append(len(a.modes)) 
   #print("モード数:",M)  
    print("平均モード数:",round(sum(M)/N))
    P=math.ceil(math.log10(round(sum(M)/N)**N))
    print("問題の規模: 10**",P)                        
#----------------------------------------------------------------------- 
   #prob3.Params.Makespan=True
   #prob3.Params.Initial=False
   #prob3.Params.OutputFlag=False
   #prob3.Params.Neighborhood=20
   #prob3.Params.RandomSeed=1
    prob3.Params.TimeLimit=300 
    prob3.optimize()
    filename="rcpsp71_step1.csv"
    #print("writing "+filename) 
    prob3.writeExcel(filename)
    print("アクティビティ総数(含待機数):",N)  
    print("平均モード数:",round(sum(M)/N))
    print("問題の規模: 10**",P)
    # sys.exit()
#-----------------------------------------------------------------------
#[5.6]計画上の調整期間における場所取り
#----------------------------------------------------------------------- 
    print(" ")
    print("計画上の調整期間における場所取り in G2+G3")  
    jdata=[]; ldata=[]; mdata=[]; ndata=[]
    data3={}
    for i in data2:
        data3[i]=data2[i].copy()
    for a in prob3.act:
        if len(a.modes)==1: mode_nam=a.selected.name
        else: mode_nam=a.selected
       #print("__"+a.name,len(a.modes),mode_nam,a.start,a.completion)
        if "場所_for_" in a.name:
            i=a.name[7:] #運搬作業(期間1)
            j=i[0:11]+"1"
            ldata.append(j)
            data3[j][3]=a.start
            data3[j][2]=a.completion-a.start               
            r=int(mode_nam[16+6:19+6]) 
            x=int(mode_nam[21+6:24+6]) 
            y=int(mode_nam[25+6:28+6]) 
            l=int(mode_nam[30+6:33+6]) 
            b=int(mode_nam[34+6:37+6])       
            data3[j][6]=[[r,x,x+l,y,y+b]]  
            data3[j][8]=[l,b,0]                    
        elif "空置_after_" in a.name:
            i=a.name[9:]
           #j=i[0:11]+"W"
            mdata.append(i)      
            if a.completion-a.start>0:
                data3[i][3]=a.start
                data3[i][2]=a.completion-a.start    
                jdata.append(i)
               #print(len(jdata),i,r,l,b)            
                if   r in [1,2]: data3[i][7]=[R01,R02,R03,P03] 
               #elif r in [5,6]: data3[i][7]=[R05,P07]
                else:            data3[i][7]=Q001+Q002+R00            
        elif "S01_" in a.name:
            i=a.name[0:12]  
            ndata.append(i)
            #if i[10:12]=="00": #運搬作業(期間1)
            data3[i][3]=a.start
            data3[i][2]=a.completion-a.start  #不要                
           #data3[i][3]=a.start
           #data3[i][2]=a.completion-a.start          
    print(len(ldata),len(mdata),len(ndata),len(jdata)) 
#sys.exit()     

538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626

#=======================================================================
#iwhich=6 #プッシュ型逐次計画Step2: 待機の場所取りは面全体(前後船含む)
if iwhich==6: 
#=======================================================================    
    prob4=Model()
#----------------------------------------------------------------------- 
#[6.0]リソースの定義(場所) 
#-----------------------------------------------------------------------   
   #-----未使用のリソース
    for id in R:    
        for i in range(0,R[id][1]):
          for j in range(0,R[id][2]):  
              res3PL[id,i,j] =prob4.addResource(R[id][0]+"[{0:02d}_{1:02d}]".format(i,j),\
                            capacity=res3PL[id,i,j].residual)
#----------------------------------------------------------------------- 
#[6.1]作業の定義
#----------------------------------------------------------------------- 
    act4={}
    for i in jdata:    
        act4[i]=prob4.addActivity("待機_after_"+data3[i][0][0:12])
#----------------------------------------------------------------------- 
#[6.2]先行制約
#----------------------------------------------------------------------- 
   #-----日程固定
    for i in jdata:  
        prob4.addTemporal("source",act4[i],tempType="SS",delay= data3[i][3])   
        prob4.addTemporal(act4[i],"source",tempType="SS",delay=-data3[i][3])   
#----------------------------------------------------------------------- 
#[6.3]資源制約(作業場所)      
#----------------------------------------------------------------------- 
    mode4={} 
    for i in jdata:  
       #print(i,data3[i][0])
        for no in range(len(data3[i][7])):      
            w=L1L2B1B2lb(R,data3,i,7,no)
            no1,L1,L2,B1,B2,l,b=w[0],w[1],w[2],w[3],w[4],w[5],w[6]       
            L1=0; L2=R[no1][1]; B1=0; B2=R[no1][2]; #点->面のとき  
           #no1=data1[i][7][no][0];
           #L=R[no1][1]; B=R[no1][2];
           #L1=data1[i][7][no][1]; L2=data1[i][7][no][2];     
           #B1=data1[i][7][no][3]; B2=data1[i][7][no][4];   
           #l=math.floor(data1[i][8][0]); b=math.floor(data1[i][8][1]);                
            skipL=1; skipB=1;        
            for j in range(L1,L2-l+1,skipL): 
                for k in range(B1,B2-b+1,skipB):
                    mode4[i,no1,j,k]=Mode(\
                    "mode["+i+"]5_R[{0:03d}][{1:03d}_{2:03d}][{3:03d}_{4:03d}]"\
                    .format(no1,j,k,l,b),duration=data3[i][2])
                    for s in range(0,l):
                        for t in range(0,b):
                            mode4[i,no1,j,k].addResource(res3PL[no1,j+s,k+t],1)            
                    #mode4[i,no1,j,k].addResource(res2S[no1,j,k],l*b)   
                    act4[i].addModes(mode4[i,no1,j,k])
#----------------------------------------------------------------------- 
#[6.4]問題求解
#----------------------------------------------------------------------- 
    A=[]
    for a in prob4.act: A.append(a.name) 
   #print("アクティビティ:",A)  
    N=len(prob4.act)
    print("アクティビティ総数(含待機数):",N)  
    M=[]
    for a in prob4.act: M.append(len(a.modes)) 
   #print("モード数:",M)  
    print("平均モード数:",round(sum(M)/N))
    P=math.ceil(math.log10(round(sum(M)/N)**N))
    print("問題の規模: 10**",P)  
#----------------------------------------------------------------------- 
   #prob4.Params.Makespan=True
   #prob4.Params.Initial=False 
   #prob4.Params.OutputFlag=True
   #prob4.Params.RandomSeed=1
    prob4.Params.TimeLimit=600
    prob4.optimize()
    filename="rcpsp71_step2.csv"
   #print("writing "+filename) 
    prob4.writeExcel(filename) 
#=======================================================================
#eof