 |
chair6408141785
資深會員
註冊日期: Jul 2007
來 自: 馬祖
文章數量: 144 |
|
問題求助
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;
請問那裡有錯要如何修正
|
|
向版主報告此篇 |  |
|
2008-08-01 10:48 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18094 |
|
回覆: 問題求助
引用:
最初由 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.這公式應該不是奇狐使用的公式
請洽詢原作者
|
|
向版主報告此篇 | |
|
|
2008-08-01 12:02 |
|
|
| |
|
chair6408141785
資深會員
註冊日期: Jul 2007
來 自: 馬祖
文章數量: 144 |
|
回覆: 回覆: 問題求助
無法修正
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, 五撐 );
後未何無法執行,語法哪裡錯誤
因為前半部為個人私密
|
|
向版主報告此篇 | |
|
|
2008-08-01 13:26 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
