You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
244 lines
7.7 KiB
244 lines
7.7 KiB
integer dd0,dd1,dd2,dd3,
|
|
. dd00,dd11,dd12,dd13,dd22,dd23,dd33,
|
|
. dd001,dd002,dd003,dd111,dd112,dd113,dd122,dd123,dd133,dd222,
|
|
. dd223,dd233,dd333,
|
|
. dd0000,dd0011,dd0012,dd0013,dd0022,dd0023,dd0033,dd1111,dd1112,
|
|
. dd1113,dd1122,dd1123,dd1133,dd1222,dd1223,dd1233,dd1333,dd2222,
|
|
. dd2223,dd2233,dd2333,dd3333,
|
|
. dd00001,dd00002,dd00003,dd00111,dd00112,dd00113,dd00122,dd00123,
|
|
. dd00133,dd00222,dd00223,dd00233,dd00333,dd11111,dd11112,dd11113,
|
|
. dd11122,dd11123,dd11133,dd11222,dd11223,dd11233,dd11333,dd12222,
|
|
. dd12223,dd12233,dd12333,dd13333,dd22222,dd22223,dd22233,dd22333,
|
|
. dd23333,dd33333
|
|
integer dd000000,
|
|
. dd000011,dd000012,dd000013,dd000022,dd000023,dd000033,dd001111,
|
|
. dd001112,dd001113,dd001122,dd001123,dd001133,dd001222,dd001223,
|
|
. dd001233,dd001333,dd002222,dd002223,dd002233,dd002333,dd003333,
|
|
. dd111111,dd111112,dd111113,dd111122,dd111123,dd111133,dd111222,
|
|
. dd111223,dd111233,dd111333,dd112222,dd112223,dd112233,dd112333,
|
|
. dd113333,dd122222,dd122223,dd122233,dd122333,dd123333,dd133333,
|
|
. dd222222,dd222223,dd222233,dd222333,dd223333,dd233333,dd333333
|
|
integer dd0000001,dd0000002,dd0000003,
|
|
. dd0000111,dd0000112,dd0000113,dd0000122,dd0000123,dd0000133,
|
|
. dd0000222,dd0000223,dd0000233,dd0000333,
|
|
. dd0011111,dd0011112,dd0011113,dd0011122,dd0011123,dd0011133,
|
|
. dd0011222,dd0011223,dd0011233,dd0011333,dd0012222,dd0012223,
|
|
. dd0012233,dd0012333,dd0013333,dd0022222,dd0022223,dd0022233,
|
|
. dd0022333,dd0023333,dd0033333,
|
|
. dd1111111,dd1111112,dd1111113,dd1111122,dd1111123,dd1111133,
|
|
. dd1111222,dd1111223,dd1111233,dd1111333,dd1112222,dd1112223,
|
|
. dd1112233,dd1112333,dd1113333,dd1122222,dd1122223,dd1122233,
|
|
. dd1122333,dd1123333,dd1133333,dd1222222,dd1222223,dd1222233,
|
|
. dd1222333,dd1223333,dd1233333,dd1333333,dd2222222,dd2222223,
|
|
. dd2222233,dd2222333,dd2223333,dd2233333,dd2333333,dd3333333,
|
|
. Ndd,Pdd,Ndmax
|
|
|
|
parameter(dd0=1)
|
|
parameter(dd1=2)
|
|
parameter(dd2=3)
|
|
parameter(dd3=4)
|
|
parameter(dd00=5)
|
|
parameter(dd11=6)
|
|
parameter(dd12=7)
|
|
parameter(dd13=8)
|
|
parameter(dd22=9)
|
|
parameter(dd23=10)
|
|
parameter(dd33=11)
|
|
parameter(dd001=12)
|
|
parameter(dd002=13)
|
|
parameter(dd003=14)
|
|
parameter(dd111=15)
|
|
parameter(dd112=16)
|
|
parameter(dd113=17)
|
|
parameter(dd122=18)
|
|
parameter(dd123=19)
|
|
parameter(dd133=20)
|
|
parameter(dd222=21)
|
|
parameter(dd223=22)
|
|
parameter(dd233=23)
|
|
parameter(dd333=24)
|
|
parameter(dd0000=25)
|
|
parameter(dd0011=26)
|
|
parameter(dd0012=27)
|
|
parameter(dd0013=28)
|
|
parameter(dd0022=29)
|
|
parameter(dd0023=30)
|
|
parameter(dd0033=31)
|
|
parameter(dd1111=32)
|
|
parameter(dd1112=33)
|
|
parameter(dd1113=34)
|
|
parameter(dd1122=35)
|
|
parameter(dd1123=36)
|
|
parameter(dd1133=37)
|
|
parameter(dd1222=38)
|
|
parameter(dd1223=39)
|
|
parameter(dd1233=40)
|
|
parameter(dd1333=41)
|
|
parameter(dd2222=42)
|
|
parameter(dd2223=43)
|
|
parameter(dd2233=44)
|
|
parameter(dd2333=45)
|
|
parameter(dd3333=46)
|
|
parameter(dd00001=47)
|
|
parameter(dd00002=48)
|
|
parameter(dd00003=49)
|
|
parameter(dd00111=50)
|
|
parameter(dd00112=51)
|
|
parameter(dd00113=52)
|
|
parameter(dd00122=53)
|
|
parameter(dd00123=54)
|
|
parameter(dd00133=55)
|
|
parameter(dd00222=56)
|
|
parameter(dd00223=57)
|
|
parameter(dd00233=58)
|
|
parameter(dd00333=59)
|
|
parameter(dd11111=60)
|
|
parameter(dd11112=61)
|
|
parameter(dd11113=62)
|
|
parameter(dd11122=63)
|
|
parameter(dd11123=64)
|
|
parameter(dd11133=65)
|
|
parameter(dd11222=66)
|
|
parameter(dd11223=67)
|
|
parameter(dd11233=68)
|
|
parameter(dd11333=69)
|
|
parameter(dd12222=70)
|
|
parameter(dd12223=71)
|
|
parameter(dd12233=72)
|
|
parameter(dd12333=73)
|
|
parameter(dd13333=74)
|
|
parameter(dd22222=75)
|
|
parameter(dd22223=76)
|
|
parameter(dd22233=77)
|
|
parameter(dd22333=78)
|
|
parameter(dd23333=79)
|
|
parameter(dd33333=80)
|
|
parameter(dd000000=81)
|
|
parameter(dd000011=82)
|
|
parameter(dd000012=83)
|
|
parameter(dd000013=84)
|
|
parameter(dd000022=85)
|
|
parameter(dd000023=86)
|
|
parameter(dd000033=87)
|
|
parameter(dd001111=88)
|
|
parameter(dd001112=89)
|
|
parameter(dd001113=90)
|
|
parameter(dd001122=91)
|
|
parameter(dd001123=92)
|
|
parameter(dd001133=93)
|
|
parameter(dd001222=94)
|
|
parameter(dd001223=95)
|
|
parameter(dd001233=96)
|
|
parameter(dd001333=97)
|
|
parameter(dd002222=98)
|
|
parameter(dd002223=99)
|
|
parameter(dd002233=100)
|
|
parameter(dd002333=101)
|
|
parameter(dd003333=102)
|
|
parameter(dd111111=103)
|
|
parameter(dd111112=104)
|
|
parameter(dd111113=105)
|
|
parameter(dd111122=106)
|
|
parameter(dd111123=107)
|
|
parameter(dd111133=108)
|
|
parameter(dd111222=109)
|
|
parameter(dd111223=110)
|
|
parameter(dd111233=111)
|
|
parameter(dd111333=112)
|
|
parameter(dd112222=113)
|
|
parameter(dd112223=114)
|
|
parameter(dd112233=115)
|
|
parameter(dd112333=116)
|
|
parameter(dd113333=117)
|
|
parameter(dd122222=118)
|
|
parameter(dd122223=119)
|
|
parameter(dd122233=120)
|
|
parameter(dd122333=121)
|
|
parameter(dd123333=122)
|
|
parameter(dd133333=123)
|
|
parameter(dd222222=124)
|
|
parameter(dd222223=125)
|
|
parameter(dd222233=126)
|
|
parameter(dd222333=127)
|
|
parameter(dd223333=128)
|
|
parameter(dd233333=129)
|
|
parameter(dd333333=130)
|
|
|
|
parameter(dd0000001=131)
|
|
parameter(dd0000002=132)
|
|
parameter(dd0000003=133)
|
|
parameter(dd0000111=134)
|
|
parameter(dd0000112=135)
|
|
parameter(dd0000113=136)
|
|
parameter(dd0000122=137)
|
|
parameter(dd0000123=138)
|
|
parameter(dd0000133=139)
|
|
parameter(dd0000222=140)
|
|
parameter(dd0000223=141)
|
|
parameter(dd0000233=142)
|
|
parameter(dd0000333=143)
|
|
parameter(dd0011111=144)
|
|
parameter(dd0011112=145)
|
|
parameter(dd0011113=146)
|
|
parameter(dd0011122=147)
|
|
parameter(dd0011123=148)
|
|
parameter(dd0011133=149)
|
|
parameter(dd0011222=150)
|
|
parameter(dd0011223=151)
|
|
parameter(dd0011233=152)
|
|
parameter(dd0011333=153)
|
|
parameter(dd0012222=154)
|
|
parameter(dd0012223=155)
|
|
parameter(dd0012233=156)
|
|
parameter(dd0012333=157)
|
|
parameter(dd0013333=158)
|
|
parameter(dd0022222=159)
|
|
parameter(dd0022223=160)
|
|
parameter(dd0022233=161)
|
|
parameter(dd0022333=162)
|
|
parameter(dd0023333=163)
|
|
parameter(dd0033333=164)
|
|
|
|
parameter(dd1111111=165)
|
|
parameter(dd1111112=166)
|
|
parameter(dd1111113=167)
|
|
parameter(dd1111122=168)
|
|
parameter(dd1111123=169)
|
|
|
|
parameter(dd1111133=170)
|
|
parameter(dd1111222=171)
|
|
parameter(dd1111223=172)
|
|
parameter(dd1111233=173)
|
|
parameter(dd1111333=174)
|
|
parameter(dd1112222=175)
|
|
parameter(dd1112223=176)
|
|
parameter(dd1112233=177)
|
|
parameter(dd1112333=178)
|
|
parameter(dd1113333=179)
|
|
|
|
parameter(dd1122222=180)
|
|
parameter(dd1122223=181)
|
|
parameter(dd1122233=182)
|
|
parameter(dd1122333=183)
|
|
parameter(dd1123333=184)
|
|
parameter(dd1133333=185)
|
|
parameter(dd1222222=186)
|
|
parameter(dd1222223=187)
|
|
parameter(dd1222233=188)
|
|
parameter(dd1222333=189)
|
|
parameter(dd1223333=190)
|
|
parameter(dd1233333=191)
|
|
parameter(dd1333333=192)
|
|
parameter(dd2222222=193)
|
|
parameter(dd2222223=194)
|
|
parameter(dd2222233=195)
|
|
parameter(dd2222333=196)
|
|
parameter(dd2223333=197)
|
|
parameter(dd2233333=198)
|
|
parameter(dd2333333=199)
|
|
parameter(dd3333333=200)
|
|
|
|
|
|
parameter(Ndd=200)
|
|
parameter(Pdd=10)
|
|
parameter(Ndmax=50)
|