AKK打色方式
序号 内容描述 报牌模式 适用者 备注
1 上下打色庄家最大（20张以内，没有最大就报第二大） 庄家
2 上下打色庄家最小（20张以内，没有最小就报0） 庄家
3 上下打色庄家最大（5张以内，没有最大就报第二大） 庄家
4 上下打色庄家最小（5张以内，没有最小就报0） 庄家
5 报哪家最大 庄家
6 报第一大和第二大 庄家
7 报各家大小排名 庄家
8 报生死门 庄家
9 报打第几门色，庄家拿到最大 庄家
10 去掉打色前所有的牌，庄家最大（20张以内，没有最大就报第二大） 庄家
11 去掉打色前所有的牌，庄家最大（5张以内，没有最大就报第二大） 庄家
12 去掉打色前所有的牌，庄家最小（20张以内，没有最小报0） 庄家
13 去掉打色前所有的牌，庄家最小（5张以内，没有最小报0） 庄家
14 去掉色牌本身，庄家最大（30张以内，没有最大就报第二大） 庄家
15 去掉色牌本身，庄家最小（30张以内，没有最小报0） 庄家
16 先发色牌，庄家最大 庄家
17 先发色牌，庄家最小 庄家
18 根据面色发牌，报哪家最大 庄家
19 根据底色发牌，报哪家最大 庄家
20 固定去掉面上4张牌，并且第4张作为色牌，报哪家最大 庄家
21 固定去掉面色，报哪家最大 庄家
22 固定去掉面上4张牌，然后从庄家开始发牌，报哪家最大 庄家 以上的打色同6代顺序
23 从下家发牌报那家大 金花用 庄家 以下的打色不同6代顺序
24 从下家发牌去多少张牌庄家大 金花用 庄家
25 从下家发牌报大小排名 金花用 庄家
26 先发色牌庄家最大（5张内） 庄家
27 先发色牌庄家最小（5张内） 庄家
28 上面打色庄家最大（20张内） 庄家
29 上面打色庄家最小（20张内） 庄家
30 上面打色庄家最大（5张内） 庄家
31 上面打色庄家最小（5张内） 庄家
32 第4张做色牌报那家大 庄家
33 任意切牌,切上来的牌最底张做色牌报最大家，翻过来发牌 任意切牌 76
34 切牌为色、从下报那家大 任意切牌
35 切牌为色、从上报那家大 任意切牌
36 "切牌为色、从上去牌（5张内）
保庄家大，没最大选第2大" 任意切牌
37 "切牌为色、从下去牌（5张内）
保庄家大，没最大选第2大" 任意切牌
38 "切牌为色、从上去牌（第3-8张内）
保庄家大，没最大选第2大" 任意切牌
39 "切牌为色、从下去牌（第3-8张内）
保庄家大，没最大选第2大" 任意切牌
40 切牌，以上部分的最后一张牌为色牌，报最大家 任意切牌
41 切牌，以上部分的最后一张牌为色牌，报最小家 任意切牌
42 切牌，以上部分的最后一张牌为色牌，去掉以上部分的牌，报最大家 任意切牌
43 切牌，以上部分的最后一张牌为色牌，去掉以上部分的牌，报最小家 任意切牌
44 切牌不要庄发报最大家 任意切牌
45 切牌不要庄发报最小家 任意切牌
46 切牌报上单数牌的个数 任意切牌
47 看底色发牌，报去掉顶部多少张牌，庄家拿到最大牌
48 报色牌位置，色牌和色前牌补至底部，看色牌发牌，庄家最大
49 发牌后从余牌选色保庄大
50 看面色发牌报庄家第几大
51 顺报5--11张牌
52 报最小家
53 报3张牌，直接报出点数
54 报3张牌，直接报出点数及花色
55 报3--8张色，去色牌保庄大 18
56 单数牌个数 59
57 根据底色发牌，报哪家最小
58 报色牌当公共牌，先发保庄大
59 报8张内色底发保庄大
60 看面色发牌留面色报每家大小
61 看面色发牌去面色报每家大小
62 从2发去JQK王看庄首牌去牌报最大
63 顺报上面4张牌
64 报每一家第2张牌
65 报2--6色牌保庄家小
66 报2--6色牌保庄家大
67 报去牌数庄发保庄小
68 报去牌数庄发保庄大
69 54张牌报上面6张牌
70 从2发看庄首牌去牌报最大家
71 去4牌报选色保庄大
72 倒数报底部8张 到74种行
73 报斗牛首家后张牌
74 看面牌去牌报最小家
75 报5张内色牌保庄大
76 报5张内色牌保庄小
77 去4牌相加当色报最大
78 前4牌相加当色报最大
79 报5张内色牌去色保庄大
80 报5张内色牌去色保庄小
81 报5张内色去色及色前牌保庄大
82 报5张内色去色及色前牌保庄小
83 去上7张牌，第7为色报最大
84 去上7张牌，第7为色报最小
85 报底牌
86 报去牌数相加当色保庄大
87 报去牌数相加当色保庄小
88 去4张牌连报最大(75)-最大4轮
89 去第1张牌庄发报最大家
90 去第1张牌庄发连报4轮最大家
91 报第几张色（看花色）庄家最大
92 报第几张色（看花色去色牌及色前牌）
93 第9张为色报最大家
94 每把第9张为色连报3把最大家
95 第9张为色报最大，二大
96 第9张为色报每家大小
97 报3--8张色，去色牌保庄小
98 从上顺报1、5-10张牌
99 报斗牛首家前4张牌
c name：guolushui.for，锅炉用水水质评价
c 可输出：锅垢总量H0（m），硬垢总量Hh（m）；硬垢系数aKn（m），腐蚀系数aKk（m），起泡系数F（m）
c 程序中有m＝6个水样，每个水样占一行，每个水样含n＝15项检测组分，顺序为：1-悬浮物，2-可溶性SiO2，3Fe2O3，4-Al2O3，5-Mg2+，6-Cl-，7-SO4/2-，8-Na+，9-K+，10-pH，11-Al3+，12-CO3/-，13 HCO3/-，14-Fe2+，15-Ca2+除pH 值外，皆为mg/L
c x（m），y（m）-水样点x、y坐标，id（m）-水样点编号，sh（m，n）-m个水样点n项检测组分的测试值mg/L，缺测项赋-1占位，胶体重量C（m），
parameter（m＝6，n＝15）
dimension x（m），y（m），id（m），sh（m，n），c（m），h0（m），hh（m），akn（m）
dimension akk（m），f（m），rfe（m），ral（m），rmg（m），rca（m），rcl（m），rna（m）
dimension rk（m），rh（m），rso（m），rco（m），rhco（m），ckk（m）
c 逐个输入水样资料：点号 x、y坐标15项检测组分数据：
open（1，file＝’shuiyang.dat’）
do 10 i＝1，m
read（1，*）id（i），x（i），y（i），（sh（i，j），j＝1，15）
10 continue
close（1）
c 输入11种组分的当量数据
open（1，file＝’dangliang.dat’）
read（1，*）fe，al，amg，ca，cl，ana，ak，h，so，co，hco
close（1）
do 40 i＝1，m
c 第1段计算每个水样的锅垢总量H0（i）；计算每个水样的胶体重量C（i）：
c（i）＝sh（i，2）+sh（i，4）+sh（i，3）
c 计算每个水样的11种组分的当量浓度：
rfe（i）＝sh（i，14）/fe
ral（i）＝sh（i，11）/al
rmg（i）＝sh（i，5）/amg
rca（i）＝sh（i，15）/ca
rcl（i）＝sh（i，6）/cl
rso（i）＝sh（i，7）/so
rna（i）＝sh（i，8）/ana
rk（i）＝sh（i，9）/ak
rh（i）＝1/10**sh（i，10）/h
rco（i）＝sh（i，12）/co
rhco（i）＝sh（i，13）/hco
c 用斯代勃莱公式1计算每个水样的锅垢总量H0（i）：
h0（i）＝sh（i，1）+c（i）+36*rfe（i）+17*ral（i）+20*rmg（i）+59*rca（i）
c 第2段计算每个水样的硬垢系数akn（i），先对每个水样计算斯代勃莱公式2中第3项括号中的数hhh，看其是否＜0 hhh＝rcl（i）+rso（i）-rna（i）-rk（i）
if（hhh.lt.0）hhh＝0
c 用斯代勃莱公式2计算每个水样的硬垢重量hh（i）：
hh（i）＝sh（i，2）+20*rmg（i）+68*hhh
c 计算每个水样的硬垢系数akn（i）
akn（i）＝hh（i）/h0（i）
c 第3 段计算每个水样的腐蚀系数akk（i），如果pH＞7 则 goto 20：
if（sh（i，10）.gt.7）goto 20
c 如果pH＜＝7则：
akk（i）＝1.008*（rh（i）+ral（i）+rfe（i）+rmg（i）-rco（i）-rhco（i））
goto 30
20 akk（i）＝1.008*（rmg（i）-rhco（i））
c ckk（i）＝akk（i）+0.0503Ca
30 ckk（i）＝akk（i）+0.0503*sh（i，15）
c 第4段计算每个水样的起泡系数f（i）
f（i）＝62*rna（i）+78*rk（i）
40 continue
open（1，file＝’jieguo.dat’）
c数据顺序：A：x坐标；B：y坐标；C：锅垢总量H0；D：硬垢总量Hh；E：硬垢系数Kn；F：腐蚀系数Kk；G：腐蚀系数Kk+0.0503Ca；H：起泡系数f；I：点号id
do 50 i＝1，m
write（1，60）x（i），y（i），h0（i），hh（i），akn（i），akk（i），ckk（i），f（i），
* id（i）
50 continue
60 format（2f4.0，f6.0，4f7.2，f7.0，i3）
stop
end
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）