奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 問題求助 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=10066)

問題求助

TmpR1:=MIN( G1, K壓 );
TmpR2:=MIN( G2, 二壓 );
TmpR3:=MIN( G3, 三壓 );
TmpR5:=MIN( G5, 五壓 );

TmpS1:=MAX( T1, K撐 );
TmpS2:=MAX( T2, 二撐 );
TmpS3:=MAX( T3, 三撐 );
TmpS5:=MAX( T5, 五撐 );

IF ( Mod( BarPos, 5 ) = 1 And Mod( BarPos, 3 ) = 1 And Mod( BarPos, 2 ) = 1 ) THEN
Begin
MinRes:=MIN( MIN(TmpR5,TmpR3), MIN(TmpR2,TmpR1) );
MaxSup:=MAX( MAX(TmpS5,TmpS3), MAX(TmpS2,TmpS1) );
End;
ELSE IF ( Mod( BarPos, 5 ) = 1 And Mod( BarPos, 3 ) = 1 ) THEN
Begin
MinRes:=MIN( MIN(TmpR5,TmpR3), TmpR1) );
MaxSup:=MAX( MAX(TmpS5,TmpS3), TmpS1) );
End;
ELSE IF ( Mod( BarPos, 5 ) = 1 And Mod( BarPos, 2 ) = 1 ) THEN
Begin
MinRes:=MIN( MIN(TmpR5,TmpR2), TmpR1) );
MaxSup:=MAX( MAX(TmpS5,TmpS2), TmpS1) );
End;
ELSE IF ( Mod( BarPos, 3 ) = 1 And Mod( BarPos, 2 ) = 1 ) THEN
Begin
MinRes:=MIN( MIN(TmpR3,TmpR2), TmpR1) );
MaxSup:=MAX( MAX(TmpS3,TmpS2), TmpS1) );
End;
ELSE IF Mod( BarPos, 3 ) = 1 THEN
Begin
MinRes:=MIN( TmpR3, TmpR1 );
MaxSup:=MAX( TmpS3, TmpS1 );
End;
ELSE IF Mod( BarPos, 2 ) = 1 THEN
Begin
MinRes:=MIN( TmpR2, TmpR1 );
MaxSup:=MAX( TmpS2, TmpS1 );
End;

請問那裡有錯要如何修正

回覆: 問題求助

引用:

---

最初由 chair6408141785 發表
TmpR1:=MIN( G1, K壓 );
TmpR2:=MIN( G2, 二壓 );
TmpR3:=MIN( G3, 三壓 );
TmpR5:=MIN( G5, 五壓 );

TmpS1:=MAX( T1, K撐 );
TmpS2:=MAX( T2, 二撐 );
TmpS3:=MAX( T3, 三撐 );
TmpS5:=MAX( T5, 五撐 );

IF ( Mod( BarPos, 5 ) = 1 And Mod( BarPos, 3 ) = 1 And Mod( BarPos, 2 ) = 1 ) THEN
Begin
MinRes:=MIN( MIN(TmpR5,TmpR3), MIN(TmpR2,TmpR1) );
MaxSup:=MAX( MAX(TmpS5,TmpS3), MAX(TmpS2,TmpS1) );
End;
ELSE IF ( Mod( BarPos, 5 ) = 1 And Mod( BarPos, 3 ) = 1 ) THEN
Begin
MinRes:=MIN( MIN(TmpR5,TmpR3), TmpR1) );
MaxSup:=MAX( MAX(TmpS5,TmpS3), TmpS1) );
End;
ELSE IF ( Mod( BarPos, 5 ) = 1 And Mod( BarPos, 2 ) = 1 ) THEN
Begin
MinRes:=MIN( MIN(TmpR5,TmpR2), TmpR1) );
MaxSup:=MAX( MAX(TmpS5,TmpS2), TmpS1) );
End;
ELSE IF ( Mod( BarPos, 3 ) = 1 And Mod( BarPos, 2 ) = 1 ) THEN
Begin
MinRes:=MIN( MIN(TmpR3,TmpR2), TmpR1) );
MaxSup:=MAX( MAX(TmpS3,TmpS2), TmpS1) );
End;
ELSE IF Mod( BarPos, 3 ) = 1 THEN
Begin
MinRes:=MIN( TmpR3, TmpR1 );
MaxSup:=MAX( TmpS3, TmpS1 );
End;
ELSE IF Mod( BarPos, 2 ) = 1 THEN
Begin
MinRes:=MIN( TmpR2, TmpR1 );
MaxSup:=MAX( TmpS2, TmpS1 );
End;

請問那裡有錯要如何修正

---

回覆: 回覆: 問題求助

無法修正
1.這公式並不完整
2.這公式應該不是奇狐使用的公式
請洽詢原作者 [/QUOTE]

我無法解釋自
TmpR1:=MIN( G1, K壓 );
TmpR2:=MIN( G2, 二壓 );
TmpR3:=MIN( G3, 三壓 );
TmpR5:=MIN( G5, 五壓 );

TmpS1:=MAX( T1, K撐 );
TmpS2:=MAX( T2, 二撐 );
TmpS3:=MAX( T3, 三撐 );
TmpS5:=MAX( T5, 五撐 );

後未何無法執行,語法哪裡錯誤
因為前半部為個人私密

回覆: 回覆: 回覆: 問題求助

引用:

---

最初由 chair6408141785 發表
我無法解釋自
TmpR1:=MIN( G1, K壓 );
TmpR2:=MIN( G2, 二壓 );
TmpR3:=MIN( G3, 三壓 );
TmpR5:=MIN( G5, 五壓 );

TmpS1:=MAX( T1, K撐 );
TmpS2:=MAX( T2, 二撐 );
TmpS3:=MAX( T3, 三撐 );
TmpS5:=MAX( T5, 五撐 );

後未何無法執行,語法哪裡錯誤
因為前半部為個人私密

---

回覆: 回覆: 回覆: 回覆: 問題求助

thanks