고정 헤더 영역
상세 컨텐츠
본문
반응형
재미로 작성한 몬테카를로 시뮬레이션을 이용한 로또 번호 추출 코드
맞을리 없겠지만, 재미로 만들어 보았다.
반응이 좋으면 윈도우 프로그램으로도 만들어 볼 생각이다.
확률은 814만분의 1로 계산하도록 하였다.
PROGRAM LOTTERY_MONTE_CARLO
IMPLICIT NONE
INTEGER, PARAMETER :: NUM_BALLS = 45
INTEGER, PARAMETER :: PICK_COUNT = 6
INTEGER :: NUM_SIMULATIONS
INTEGER :: PAST_DATA(603, 6)
INTEGER :: WEIGHTS(NUM_BALLS)
INTEGER :: I, J, K, L, TEMP_NUM
INTEGER :: SIMULATION_RESULT(PICK_COUNT)
INTEGER :: TOTAL_WEIGHT
REAL :: R
LOGICAL :: IS_DUPLICATE
PAST_DATA( 1, :) = (/ 3, 6, 18, 29, 35, 39/)
PAST_DATA( 2, :) = (/ 5, 12, 21, 33, 37, 40/)
PAST_DATA( 3, :) = (/ 7, 9, 24, 27, 35, 36/)
PAST_DATA( 4, :) = (/ 1, 2, 4, 16, 20, 32/)
PAST_DATA( 5, :) = (/16, 24, 25, 30, 31, 32/)
PAST_DATA( 6, :) = (/26, 30, 33, 38, 39, 41/)
PAST_DATA( 7, :) = (/ 1, 5, 7, 26, 28, 43/)
PAST_DATA( 8, :) = (/ 8, 12, 15, 29, 40, 45/)
PAST_DATA( 9, :) = (/ 3, 15, 27, 33, 34, 36/)
PAST_DATA( 10, :) = (/ 3, 13, 15, 24, 33, 37/)
PAST_DATA( 11, :) = (/ 6, 9, 16, 19, 24, 28/)
PAST_DATA( 12, :) = (/10, 16, 23, 36, 39, 40/)
PAST_DATA( 13, :) = (/ 1, 4, 11, 12, 20, 41/)
PAST_DATA( 14, :) = (/ 7, 9, 19, 23, 26, 45/)
PAST_DATA( 15, :) = (/ 9, 19, 29, 35, 37, 38/)
PAST_DATA( 16, :) = (/ 3, 4, 12, 19, 22, 27/)
PAST_DATA( 17, :) = (/ 5, 13, 26, 29, 37, 40/)
PAST_DATA( 18, :) = (/ 2, 8, 13, 16, 23, 28/)
PAST_DATA( 19, :) = (/ 6, 17, 22, 28, 29, 32/)
PAST_DATA( 20, :) = (/14, 16, 23, 25, 31, 37/)
PAST_DATA( 21, :) = (/ 4, 15, 17, 23, 27, 36/)
PAST_DATA( 22, :) = (/ 1, 13, 21, 25, 28, 31/)
PAST_DATA( 23, :) = (/ 8, 10, 14, 20, 33, 41/)
PAST_DATA( 24, :) = (/ 6, 12, 18, 37, 40, 41/)
PAST_DATA( 25, :) = (/ 3, 16, 18, 24, 40, 44/)
PAST_DATA( 26, :) = (/ 5, 6, 11, 27, 43, 44/)
PAST_DATA( 27, :) = (/ 3, 7, 15, 16, 19, 43/)
PAST_DATA( 28, :) = (/ 7, 9, 11, 21, 30, 35/)
PAST_DATA( 29, :) = (/ 3, 4, 6, 8, 32, 42/)
PAST_DATA( 30, :) = (/ 8, 11, 14, 17, 36, 39/)
PAST_DATA( 31, :) = (/ 1, 5, 18, 20, 30, 35/)
PAST_DATA( 32, :) = (/ 7, 9, 24, 40, 42, 44/)
PAST_DATA( 33, :) = (/ 3, 6, 7, 11, 12, 17/)
PAST_DATA( 34, :) = (/ 3, 13, 28, 34, 38, 42/)
PAST_DATA( 35, :) = (/ 5, 12, 24, 26, 39, 42/)
PAST_DATA( 36, :) = (/ 9, 21, 24, 30, 33, 37/)
PAST_DATA( 37, :) = (/ 8, 23, 31, 35, 39, 40/)
PAST_DATA( 38, :) = (/14, 23, 25, 27, 29, 42/)
PAST_DATA( 39, :) = (/ 6, 7, 27, 29, 38, 45/)
PAST_DATA( 40, :) = (/17, 18, 23, 25, 38, 39/)
PAST_DATA( 41, :) = (/ 2, 13, 15, 16, 33, 43/)
PAST_DATA( 42, :) = (/20, 21, 22, 25, 28, 29/)
PAST_DATA( 43, :) = (/ 2, 12, 20, 24, 34, 42/)
PAST_DATA( 44, :) = (/ 7, 13, 18, 36, 39, 45/)
PAST_DATA( 45, :) = (/ 3, 9, 27, 28, 38, 39/)
PAST_DATA( 46, :) = (/21, 25, 27, 32, 37, 38/)
PAST_DATA( 47, :) = (/ 5, 7, 12, 20, 25, 26/)
PAST_DATA( 48, :) = (/30, 31, 34, 39, 41, 45/)
PAST_DATA( 49, :) = (/10, 16, 19, 27, 37, 38/)
PAST_DATA( 50, :) = (/ 4, 8, 22, 26, 32, 38/)
PAST_DATA( 51, :) = (/ 1, 9, 10, 13, 35, 44/)
PAST_DATA( 52, :) = (/30, 31, 32, 35, 36, 37/)
PAST_DATA( 53, :) = (/ 2, 3, 9, 15, 27, 29/)
PAST_DATA( 54, :) = (/ 8, 9, 18, 35, 39, 45/)
PAST_DATA( 55, :) = (/ 8, 15, 19, 21, 32, 36/)
PAST_DATA( 56, :) = (/ 3, 6, 13, 15, 16, 22/)
PAST_DATA( 57, :) = (/ 7, 11, 24, 26, 27, 37/)
PAST_DATA( 58, :) = (/ 6, 11, 17, 19, 40, 43/)
PAST_DATA( 59, :) = (/ 2, 11, 31, 33, 37, 44/)
PAST_DATA( 60, :) = (/ 3, 4, 12, 15, 26, 34/)
PAST_DATA( 61, :) = (/10, 16, 17, 27, 28, 36/)
PAST_DATA( 62, :) = (/ 2, 8, 28, 30, 37, 41/)
PAST_DATA( 63, :) = (/ 7, 11, 12, 21, 26, 35/)
PAST_DATA( 64, :) = (/ 7, 10, 22, 29, 31, 38/)
PAST_DATA( 65, :) = (/ 5, 12, 15, 30, 37, 40/)
PAST_DATA( 66, :) = (/14, 16, 19, 20, 29, 34/)
PAST_DATA( 67, :) = (/ 4, 9, 12, 15, 33, 45/)
PAST_DATA( 68, :) = (/21, 33, 35, 38, 42, 44/)
PAST_DATA( 69, :) = (/ 1, 6, 13, 19, 21, 33/)
PAST_DATA( 70, :) = (/ 3, 7, 9, 13, 19, 24/)
PAST_DATA( 71, :) = (/13, 14, 20, 28, 29, 34/)
PAST_DATA( 72, :) = (/ 6, 7, 19, 28, 34, 41/)
PAST_DATA( 73, :) = (/ 1, 2, 6, 14, 27, 38/)
PAST_DATA( 74, :) = (/15, 19, 21, 25, 27, 28/)
PAST_DATA( 75, :) = (/ 5, 10, 11, 17, 28, 34/)
PAST_DATA( 76, :) = (/ 1, 5, 8, 16, 28, 33/)
PAST_DATA( 77, :) = (/10, 15, 24, 30, 31, 37/)
PAST_DATA( 78, :) = (/ 4, 5, 9, 11, 37, 40/)
PAST_DATA( 79, :) = (/ 6, 14, 25, 33, 40, 44/)
PAST_DATA( 80, :) = (/ 3, 8, 17, 30, 33, 34/)
PAST_DATA( 81, :) = (/13, 19, 21, 24, 34, 35/)
PAST_DATA( 82, :) = (/ 3, 6, 21, 30, 34, 35/)
PAST_DATA( 83, :) = (/ 6, 24, 31, 32, 38, 44/)
PAST_DATA( 84, :) = (/ 2, 19, 26, 31, 38, 41/)
PAST_DATA( 85, :) = (/ 1, 9, 12, 13, 20, 45/)
PAST_DATA( 86, :) = (/11, 13, 14, 15, 16, 45/)
PAST_DATA( 87, :) = (/ 3, 4, 9, 30, 33, 36/)
PAST_DATA( 88, :) = (/15, 16, 17, 25, 30, 31/)
PAST_DATA( 89, :) = (/ 7, 12, 23, 32, 34, 36/)
PAST_DATA( 90, :) = (/10, 16, 19, 32, 33, 38/)
PAST_DATA( 91, :) = (/11, 13, 20, 21, 32, 44/)
PAST_DATA( 92, :) = (/16, 20, 26, 36, 42, 44/)
PAST_DATA( 93, :) = (/ 3, 13, 30, 33, 43, 45/)
PAST_DATA( 94, :) = (/ 3, 7, 11, 20, 22, 41/)
PAST_DATA( 95, :) = (/10, 12, 13, 19, 33, 40/)
PAST_DATA( 96, :) = (/ 7, 19, 26, 37, 39, 44/)
PAST_DATA( 97, :) = (/ 6, 14, 30, 31, 40, 41/)
PAST_DATA( 98, :) = (/ 1, 3, 4, 29, 42, 45/)
PAST_DATA( 99, :) = (/ 6, 16, 34, 37, 39, 40/)
PAST_DATA(100, :) = (/ 1, 7, 21, 30, 35, 38/)
PAST_DATA(101, :) = (/10, 12, 29, 31, 40, 44/)
PAST_DATA(102, :) = (/13, 14, 22, 26, 37, 38/)
PAST_DATA(103, :) = (/6 , 7, 13, 28, 36, 42/)
PAST_DATA(104, :) = (/17, 26, 29, 30, 31, 43/)
PAST_DATA(105, :) = (/3 , 20, 28, 38, 40, 43/)
PAST_DATA(106, :) = (/12, 16, 21, 24, 41, 43/)
PAST_DATA(107, :) = (/14, 33, 34, 35, 37, 40/)
PAST_DATA(108, :) = (/1 , 12, 16, 19, 23, 43/)
PAST_DATA(109, :) = (/8 , 14, 28, 29, 34, 40/)
PAST_DATA(110, :) = (/6 , 7, 15, 22, 26, 40/)
PAST_DATA(111, :) = (/10, 17, 22, 30, 35, 43/)
PAST_DATA(112, :) = (/7 , 18, 19, 26, 33, 45/)
PAST_DATA(113, :) = (/6 , 20, 23, 24, 28, 30/)
PAST_DATA(114, :) = (/12, 19, 21, 29, 40, 45/)
PAST_DATA(115, :) = (/4 , 18, 31, 37, 42, 43/)
PAST_DATA(116, :) = (/11, 21, 22, 30, 39, 44/)
PAST_DATA(117, :) = (/13, 14, 18, 21, 34, 44/)
PAST_DATA(118, :) = (/11, 16, 25, 27, 35, 36/)
PAST_DATA(119, :) = (/4 , 7, 17, 18, 38, 44/)
PAST_DATA(120, :) = (/8 , 12, 13, 29, 33, 42/)
PAST_DATA(121, :) = (/3 , 7, 14, 15, 22, 38/)
PAST_DATA(122, :) = (/21, 26, 27, 32, 34, 42/)
PAST_DATA(123, :) = (/1 , 9, 16, 23, 24, 38/)
PAST_DATA(124, :) = (/13, 16, 23, 31, 36, 44/)
PAST_DATA(125, :) = (/4 , 8, 18, 24, 37, 45/)
PAST_DATA(126, :) = (/6 , 10, 11, 14, 36, 38/)
PAST_DATA(127, :) = (/4 , 8, 17, 30, 40, 43/)
PAST_DATA(128, :) = (/3 , 7, 9, 33, 36, 37/)
PAST_DATA(129, :) = (/1 , 23, 24, 35, 44, 45/)
PAST_DATA(130, :) = (/1 , 6, 20, 27, 28, 41/)
PAST_DATA(131, :) = (/6 , 18, 28, 30, 32, 38/)
PAST_DATA(132, :) = (/16, 18, 20, 23, 32, 43/)
PAST_DATA(133, :) = (/1 , 2, 11, 21, 30, 35/)
PAST_DATA(134, :) = (/3 , 6, 14, 22, 30, 41/)
PAST_DATA(135, :) = (/1 , 10, 18, 22, 28, 31/)
PAST_DATA(136, :) = (/4 , 7, 19, 26, 33, 35/)
PAST_DATA(137, :) = (/7 , 10, 19, 23, 28, 33/)
PAST_DATA(138, :) = (/6 , 11, 16, 19, 21, 32/)
PAST_DATA(139, :) = (/3 , 18, 19, 23, 32, 45/)
PAST_DATA(140, :) = (/3 , 6, 9, 18, 22, 35/)
PAST_DATA(141, :) = (/3 , 6, 22, 23, 24, 38/)
PAST_DATA(142, :) = (/20, 31, 32, 40, 41, 45/)
PAST_DATA(143, :) = (/4 , 24, 27, 35, 37, 45/)
PAST_DATA(144, :) = (/3 , 10, 24, 33, 38, 45/)
PAST_DATA(145, :) = (/7 , 10, 22, 25, 34, 40/)
PAST_DATA(146, :) = (/11, 23, 25, 30, 32, 40/)
PAST_DATA(147, :) = (/8 , 13, 19, 27, 40, 45/)
PAST_DATA(148, :) = (/13, 20, 24, 32, 36, 45/)
PAST_DATA(149, :) = (/4 , 7, 12, 14, 22, 33/)
PAST_DATA(150, :) = (/14, 19, 27, 28, 30, 45/)
PAST_DATA(151, :) = (/22, 26, 29, 30, 34, 45/)
PAST_DATA(152, :) = (/5 , 17, 26, 27, 35, 38/)
PAST_DATA(153, :) = (/21, 26, 30, 32, 33, 35/)
PAST_DATA(154, :) = (/6 , 12, 31, 35, 38, 43/)
PAST_DATA(155, :) = (/3 , 5, 13, 20, 21, 37/)
PAST_DATA(156, :) = (/6 , 12, 17, 21, 32, 39/)
PAST_DATA(157, :) = (/2 , 20, 33, 40, 42, 44/)
PAST_DATA(158, :) = (/7 , 16, 25, 29, 35, 36/)
PAST_DATA(159, :) = (/6 , 14, 15, 19, 21, 41/)
PAST_DATA(160, :) = (/12, 17, 20, 26, 28, 36/)
PAST_DATA(161, :) = (/3 , 5, 12, 22, 26, 31/)
PAST_DATA(162, :) = (/5 , 14, 15, 23, 34, 43/)
PAST_DATA(163, :) = (/6 , 7, 9, 11, 17, 18/)
PAST_DATA(164, :) = (/8 , 16, 26, 29, 31, 36/)
PAST_DATA(165, :) = (/2 , 3, 6, 19, 36, 39/)
PAST_DATA(166, :) = (/7 , 16, 24, 27, 37, 44/)
PAST_DATA(167, :) = (/2 , 14, 15, 22, 27, 33/)
PAST_DATA(168, :) = (/2 , 5, 22, 32, 34, 45/)
PAST_DATA(169, :) = (/9 , 14, 34, 35, 41, 42/)
PAST_DATA(170, :) = (/26, 31, 32, 33, 38, 40/)
PAST_DATA(171, :) = (/3 , 11, 15, 20, 35, 44/)
PAST_DATA(172, :) = (/1 , 6, 12, 19, 36, 42/)
PAST_DATA(173, :) = (/6 , 7, 22, 32, 35, 36/)
PAST_DATA(174, :) = (/2 , 5, 11, 17, 24, 29/)
PAST_DATA(175, :) = (/12, 30, 32, 37, 39, 41/)
PAST_DATA(176, :) = (/5 , 7, 12, 13, 18, 35/)
PAST_DATA(177, :) = (/14, 16, 27, 35, 39, 45/)
PAST_DATA(178, :) = (/5 , 12, 13, 31, 32, 41/)
PAST_DATA(179, :) = (/8 , 9, 20, 25, 29, 33/)
PAST_DATA(180, :) = (/9 , 18, 20, 22, 38, 44/)
PAST_DATA(181, :) = (/10, 14, 16, 18, 29, 35/)
PAST_DATA(182, :) = (/5 , 6, 11, 29, 42, 45/)
PAST_DATA(183, :) = (/12, 15, 17, 24, 29, 45/)
PAST_DATA(184, :) = (/12, 27, 29, 38, 41, 45/)
PAST_DATA(185, :) = (/1 , 4, 13, 17, 34, 39/)
PAST_DATA(186, :) = (/3 , 19, 21, 25, 37, 45/)
PAST_DATA(187, :) = (/12, 18, 22, 23, 30, 34/)
PAST_DATA(188, :) = (/15, 26, 28, 34, 41, 42/)
PAST_DATA(189, :) = (/14, 23, 31, 33, 37, 40/)
PAST_DATA(190, :) = (/3 , 11, 14, 18, 26, 27/)
PAST_DATA(191, :) = (/21, 22, 26, 34, 36, 41/)
PAST_DATA(192, :) = (/5 , 11, 18, 20, 35, 45/)
PAST_DATA(193, :) = (/1 , 9, 12, 26, 35, 38/)
PAST_DATA(194, :) = (/9 , 12, 15, 25, 34, 36/)
PAST_DATA(195, :) = (/15, 23, 29, 34, 40, 44/)
PAST_DATA(196, :) = (/9 , 11, 30, 31, 41, 44/)
PAST_DATA(197, :) = (/8 , 11, 16, 19, 21, 25/)
PAST_DATA(198, :) = (/8 , 11, 15, 16, 17, 37/)
PAST_DATA(199, :) = (/8 , 13, 18, 24, 27, 29/)
PAST_DATA(200, :) = (/7 , 15, 30, 37, 39, 44/)
PAST_DATA(201, :) = (/ 1, 4, 29, 39, 43, 45/)
PAST_DATA(202, :) = (/17, 25, 33, 35, 38, 45/)
PAST_DATA(203, :) = (/6 , 10, 12, 14, 20, 42/)
PAST_DATA(204, :) = (/2 , 8, 19, 22, 32, 42/)
PAST_DATA(205, :) = (/1 , 3, 9, 14, 18, 28/)
PAST_DATA(206, :) = (/13, 17, 18, 20, 42, 45/)
PAST_DATA(207, :) = (/4 , 7, 14, 16, 24, 44/)
PAST_DATA(208, :) = (/6 , 11, 15, 24, 32, 39/)
PAST_DATA(209, :) = (/1 , 4, 13, 29, 38, 39/)
PAST_DATA(210, :) = (/1 , 3, 8, 24, 27, 35/)
PAST_DATA(211, :) = (/6 , 14, 16, 18, 24, 42/)
PAST_DATA(212, :) = (/12, 20, 26, 33, 44, 45/)
PAST_DATA(213, :) = (/13, 18, 25, 31, 33, 44/)
PAST_DATA(214, :) = (/2 , 4, 25, 26, 36, 37/)
PAST_DATA(215, :) = (/17, 18, 21, 27, 29, 33/)
PAST_DATA(216, :) = (/2 , 13, 20, 30, 31, 41/)
PAST_DATA(217, :) = (/2 , 4, 15, 23, 29, 38/)
PAST_DATA(218, :) = (/7 , 10, 16, 28, 41, 42/)
PAST_DATA(219, :) = (/17, 21, 23, 30, 34, 44/)
PAST_DATA(220, :) = (/3 , 10, 23, 35, 36, 37/)
PAST_DATA(221, :) = (/13, 23, 26, 31, 35, 43/)
PAST_DATA(222, :) = (/5 , 7, 13, 20, 21, 44/)
PAST_DATA(223, :) = (/27, 36, 37, 41, 43, 45/)
PAST_DATA(224, :) = (/3 , 13, 16, 23, 24, 35/)
PAST_DATA(225, :) = (/7 , 11, 16, 21, 27, 33/)
PAST_DATA(226, :) = (/1 , 7, 15, 32, 34, 42/)
PAST_DATA(227, :) = (/2 , 9, 10, 14, 22, 44/)
PAST_DATA(228, :) = (/4 , 12, 14, 25, 35, 37/)
PAST_DATA(229, :) = (/7 , 8, 9, 17, 22, 24/)
PAST_DATA(230, :) = (/1 , 2, 11, 16, 39, 44/)
PAST_DATA(231, :) = (/22, 26, 31, 37, 41, 42/)
PAST_DATA(232, :) = (/3 , 6, 17, 23, 37, 39/)
PAST_DATA(233, :) = (/2 , 6, 17, 18, 21, 26/)
PAST_DATA(234, :) = (/9 , 11, 16, 21, 28, 36/)
PAST_DATA(235, :) = (/3 , 9, 10, 29, 40, 45/)
PAST_DATA(236, :) = (/2 , 5, 12, 14, 24, 39/)
PAST_DATA(237, :) = (/1 , 6, 13, 37, 38, 40/)
PAST_DATA(238, :) = (/1 , 21, 25, 29, 34, 37/)
PAST_DATA(239, :) = (/2 , 13, 25, 28, 29, 36/)
PAST_DATA(240, :) = (/6 , 21, 36, 38, 39, 43/)
PAST_DATA(241, :) = (/6 , 12, 19, 23, 34, 42/)
PAST_DATA(242, :) = (/1 , 18, 28, 31, 34, 43/)
PAST_DATA(243, :) = (/11, 20, 29, 31, 33, 42/)
PAST_DATA(244, :) = (/2 , 18, 24, 30, 32, 45/)
PAST_DATA(245, :) = (/1 , 14, 15, 24, 40, 41/)
PAST_DATA(246, :) = (/2 , 9, 10, 16, 35, 37/)
PAST_DATA(247, :) = (/4 , 15, 24, 35, 36, 40/)
PAST_DATA(248, :) = (/10, 11, 20, 21, 25, 41/)
PAST_DATA(249, :) = (/4 , 9, 23, 26, 29, 33/)
PAST_DATA(250, :) = (/1 , 9, 26, 28, 30, 41/)
PAST_DATA(251, :) = (/7 , 9, 22, 27, 37, 42/)
PAST_DATA(252, :) = (/4 , 12, 22, 24, 33, 41/)
PAST_DATA(253, :) = (/2 , 12, 30, 31, 39, 43/)
PAST_DATA(254, :) = (/3 , 4, 15, 22, 28, 40/)
PAST_DATA(255, :) = (/14, 21, 35, 36, 40, 44/)
PAST_DATA(256, :) = (/13, 18, 30, 31, 38, 41/)
PAST_DATA(257, :) = (/3 , 8, 17, 20, 27, 35/)
PAST_DATA(258, :) = (/9 , 18, 19, 30, 34, 40/)
PAST_DATA(259, :) = (/9 , 10, 15, 30, 33, 37/)
PAST_DATA(260, :) = (/2 , 13, 16, 19, 32, 33/)
PAST_DATA(261, :) = (/1 , 8, 13, 36, 44, 45/)
PAST_DATA(262, :) = (/10, 12, 18, 35, 42, 43/)
PAST_DATA(263, :) = (/12, 14, 25, 27, 39, 40/)
PAST_DATA(264, :) = (/3 , 15, 20, 22, 24, 41/)
PAST_DATA(265, :) = (/4 , 11, 28, 39, 42, 45/)
PAST_DATA(266, :) = (/4 , 8, 10, 16, 31, 36/)
PAST_DATA(267, :) = (/2 , 10, 13, 22, 29, 40/)
PAST_DATA(268, :) = (/7 , 11, 13, 17, 18, 29/)
PAST_DATA(269, :) = (/4 , 10, 20, 32, 38, 44/)
PAST_DATA(270, :) = (/1 , 3, 30, 33, 36, 39/)
PAST_DATA(271, :) = (/23, 27, 29, 31, 36, 45/)
PAST_DATA(272, :) = (/1 , 6, 15, 36, 37, 38/)
PAST_DATA(273, :) = (/14, 15, 23, 25, 35, 43/)
PAST_DATA(274, :) = (/8 , 21, 25, 38, 39, 44/)
PAST_DATA(275, :) = (/7 , 9, 12, 15, 19, 23/)
PAST_DATA(276, :) = (/3 , 4, 10, 20, 28, 44/)
PAST_DATA(277, :) = (/4 , 15, 22, 38, 41, 43/)
PAST_DATA(278, :) = (/10, 16, 18, 20, 25, 31/)
PAST_DATA(279, :) = (/13, 24, 32, 34, 39, 42/)
PAST_DATA(280, :) = (/3 , 11, 34, 42, 43, 44/)
PAST_DATA(281, :) = (/3 , 17, 18, 23, 36, 41/)
PAST_DATA(282, :) = (/2 , 6, 13, 17, 27, 43/)
PAST_DATA(283, :) = (/5 , 7, 12, 22, 28, 41/)
PAST_DATA(284, :) = (/2 , 3, 26, 33, 34, 43/)
PAST_DATA(285, :) = (/9 , 14, 17, 18, 42, 44/)
PAST_DATA(286, :) = (/7 , 11, 12, 31, 33, 38/)
PAST_DATA(287, :) = (/1 , 3, 23, 24, 27, 43/)
PAST_DATA(288, :) = (/6 , 21, 22, 32, 35, 36/)
PAST_DATA(289, :) = (/2 , 6, 11, 13, 22, 37/)
PAST_DATA(290, :) = (/16, 19, 24, 33, 42, 44/)
PAST_DATA(291, :) = (/6 , 14, 16, 21, 27, 37/)
PAST_DATA(292, :) = (/5 , 8, 18, 21, 22, 38/)
PAST_DATA(293, :) = (/4 , 5, 12, 14, 32, 42/)
PAST_DATA(294, :) = (/1 , 11, 17, 27, 35, 39/)
PAST_DATA(295, :) = (/7 , 24, 29, 30, 34, 35/)
PAST_DATA(296, :) = (/3 , 16, 21, 22, 23, 44/)
PAST_DATA(297, :) = (/21, 27, 29, 38, 40, 44/)
PAST_DATA(298, :) = (/2 , 5, 14, 28, 31, 32/)
PAST_DATA(299, :) = (/3 , 4, 16, 27, 38, 40/)
PAST_DATA(300, :) = (/2 , 6, 8, 26, 43, 45/)
PAST_DATA(301, :) = (/ 2, 15, 16, 21, 22, 28/)
PAST_DATA(302, :) = (/ 7, 19, 23, 24, 36, 39/)
PAST_DATA(303, :) = (/ 5, 18, 20, 23, 30, 34/)
PAST_DATA(304, :) = (/ 7, 13, 16, 18, 35, 38/)
PAST_DATA(305, :) = (/ 8, 19, 20, 21, 33, 39/)
PAST_DATA(306, :) = (/18, 21, 28, 35, 37, 42/)
PAST_DATA(307, :) = (/ 6, 7, 12, 22, 26, 36/)
PAST_DATA(308, :) = (/ 5, 12, 25, 26, 38, 45/)
PAST_DATA(309, :) = (/16, 26, 31, 38, 39, 41/)
PAST_DATA(310, :) = (/19, 32, 37, 40, 41, 43/)
PAST_DATA(311, :) = (/ 1, 15, 17, 23, 25, 41/)
PAST_DATA(312, :) = (/ 4, 9, 17, 18, 26, 42/)
PAST_DATA(313, :) = (/ 9, 13, 28, 31, 39, 41/)
PAST_DATA(314, :) = (/ 1, 4, 14, 18, 29, 37/)
PAST_DATA(315, :) = (/ 3, 13, 29, 38, 39, 42/)
PAST_DATA(316, :) = (/ 3, 7, 12, 31, 34, 38/)
PAST_DATA(317, :) = (/ 8, 14, 17, 27, 36, 45/)
PAST_DATA(318, :) = (/19, 23, 28, 37, 42, 45/)
PAST_DATA(319, :) = (/ 1, 3, 24, 27, 39, 45/)
PAST_DATA(320, :) = (/ 4, 14, 23, 28, 37, 45/)
PAST_DATA(321, :) = (/ 9, 18, 32, 33, 37, 44/)
PAST_DATA(322, :) = (/18, 34, 39, 43, 44, 45/)
PAST_DATA(323, :) = (/ 4, 18, 20, 26, 27, 32/)
PAST_DATA(324, :) = (/ 7, 17, 19, 23, 24, 45/)
PAST_DATA(325, :) = (/ 1, 4, 10, 14, 15, 35/)
PAST_DATA(326, :) = (/ 2, 6, 11, 16, 25, 31/)
PAST_DATA(327, :) = (/ 5, 17, 18, 22, 23, 43/)
PAST_DATA(328, :) = (/ 5, 16, 21, 26, 34, 42/)
PAST_DATA(329, :) = (/19, 22, 30, 34, 39, 44/)
PAST_DATA(330, :) = (/ 1, 15, 19, 23, 28, 42/)
PAST_DATA(331, :) = (/ 3, 5, 12, 13, 33, 39/)
PAST_DATA(332, :) = (/ 2, 4, 30, 32, 33, 43/)
PAST_DATA(333, :) = (/ 2, 6, 12, 26, 30, 34/)
PAST_DATA(334, :) = (/21, 25, 30, 32, 40, 42/)
PAST_DATA(335, :) = (/ 2, 6, 20, 27, 37, 39/)
PAST_DATA(336, :) = (/12, 17, 28, 41, 43, 44/)
PAST_DATA(337, :) = (/14, 17, 19, 22, 24, 40/)
PAST_DATA(338, :) = (/ 9, 15, 29, 34, 37, 39/)
PAST_DATA(339, :) = (/ 3, 15, 22, 32, 33, 45/)
PAST_DATA(340, :) = (/ 3, 7, 10, 13, 25, 36/)
PAST_DATA(341, :) = (/16, 21, 28, 35, 39, 43/)
PAST_DATA(342, :) = (/10, 34, 38, 40, 42, 43/)
PAST_DATA(343, :) = (/11, 17, 19, 21, 22, 25/)
PAST_DATA(344, :) = (/ 4, 8, 18, 25, 27, 32/)
PAST_DATA(345, :) = (/ 8, 22, 35, 38, 39, 41/)
PAST_DATA(346, :) = (/ 9, 13, 32, 38, 39, 43/)
PAST_DATA(347, :) = (/ 6, 10, 16, 28, 34, 38/)
PAST_DATA(348, :) = (/10, 24, 40, 41, 43, 44/)
PAST_DATA(349, :) = (/ 8, 15, 17, 19, 43, 44/)
PAST_DATA(350, :) = (/20, 25, 31, 32, 36, 43/)
PAST_DATA(351, :) = (/ 2, 8, 23, 26, 27, 44/)
PAST_DATA(352, :) = (/11, 17, 28, 30, 33, 35/)
PAST_DATA(353, :) = (/14, 18, 22, 26, 31, 44/)
PAST_DATA(354, :) = (/16, 20, 24, 28, 36, 39/)
PAST_DATA(355, :) = (/ 5, 13, 17, 29, 34, 39/)
PAST_DATA(356, :) = (/ 1, 2, 16, 22, 38, 39/)
PAST_DATA(357, :) = (/12, 16, 26, 28, 30, 42/)
PAST_DATA(358, :) = (/ 5, 18, 30, 41, 43, 45/)
PAST_DATA(359, :) = (/ 1, 16, 29, 33, 40, 45/)
PAST_DATA(360, :) = (/ 7, 8, 13, 15, 33, 45/)
PAST_DATA(361, :) = (/19, 21, 30, 33, 34, 42/)
PAST_DATA(362, :) = (/14, 26, 32, 36, 39, 42/)
PAST_DATA(363, :) = (/ 5, 11, 14, 30, 33, 38/)
PAST_DATA(364, :) = (/ 2, 4, 11, 28, 29, 43/)
PAST_DATA(365, :) = (/ 3, 9, 11, 12, 13, 19/)
PAST_DATA(366, :) = (/ 9, 14, 17, 33, 36, 38/)
PAST_DATA(367, :) = (/ 2, 25, 28, 30, 33, 45/)
PAST_DATA(368, :) = (/ 1, 9, 11, 14, 26, 28/)
PAST_DATA(369, :) = (/ 9, 10, 13, 28, 38, 45/)
PAST_DATA(370, :) = (/ 6, 8, 18, 35, 42, 43/)
PAST_DATA(371, :) = (/12, 18, 30, 39, 41, 42/)
PAST_DATA(372, :) = (/13, 14, 19, 26, 40, 43/)
PAST_DATA(373, :) = (/ 3, 10, 16, 19, 31, 39/)
PAST_DATA(374, :) = (/ 5, 6, 16, 18, 37, 38/)
PAST_DATA(375, :) = (/ 4, 5, 31, 35, 43, 45/)
PAST_DATA(376, :) = (/ 4, 7, 13, 29, 31, 39/)
PAST_DATA(377, :) = (/ 5, 11, 12, 29, 33, 44/)
PAST_DATA(378, :) = (/13, 16, 24, 25, 33, 36/)
PAST_DATA(379, :) = (/ 8, 15, 21, 31, 33, 38/)
PAST_DATA(380, :) = (/ 7, 9, 24, 29, 34, 38/)
PAST_DATA(381, :) = (/12, 18, 24, 26, 39, 40/)
PAST_DATA(382, :) = (/ 9, 18, 20, 24, 27, 36/)
PAST_DATA(383, :) = (/ 1, 12, 13, 24, 29, 44/)
PAST_DATA(384, :) = (/10, 21, 22, 30, 35, 42/)
PAST_DATA(385, :) = (/16, 25, 33, 38, 40, 45/)
PAST_DATA(386, :) = (/14, 15, 25, 28, 29, 30/)
PAST_DATA(387, :) = (/3 , 9, 12, 13, 25, 43/)
PAST_DATA(388, :) = (/12, 18, 19, 29, 31, 39/)
PAST_DATA(389, :) = (/17, 21, 25, 26, 27, 36/)
PAST_DATA(390, :) = (/2 , 21, 28, 38, 42, 45/)
PAST_DATA(391, :) = (/11, 30, 34, 35, 42, 44/)
PAST_DATA(392, :) = (/ 1, 3, 12, 14, 16, 43/)
PAST_DATA(393, :) = (/ 8, 11, 19, 21, 36, 45/)
PAST_DATA(394, :) = (/ 5, 10, 13, 21, 39, 43/)
PAST_DATA(395, :) = (/ 6, 11, 15, 17, 23, 40/)
PAST_DATA(396, :) = (/15, 21, 31, 32, 41, 43/)
PAST_DATA(397, :) = (/ 6, 10, 18, 25, 34, 35/)
PAST_DATA(398, :) = (/14, 20, 23, 31, 37, 38/)
PAST_DATA(399, :) = (/ 3, 12, 13, 18, 31, 32/)
PAST_DATA(400, :) = (/ 1, 10, 13, 26, 32, 36/)
PAST_DATA(401, :) = (/ 5, 9, 14, 26, 30, 43/)
PAST_DATA(402, :) = (/10, 11, 12, 18, 24, 42/)
PAST_DATA(403, :) = (/17, 25, 28, 37, 43, 44/)
PAST_DATA(404, :) = (/ 1, 4, 10, 12, 28, 45/)
PAST_DATA(405, :) = (/12, 17, 23, 34, 42, 45/)
PAST_DATA(406, :) = (/ 2, 10, 14, 22, 32, 36/)
PAST_DATA(407, :) = (/ 5, 22, 31, 32, 39, 45/)
PAST_DATA(408, :) = (/ 1, 21, 26, 36, 40, 41/)
PAST_DATA(409, :) = (/ 3, 10, 13, 26, 34, 38/)
PAST_DATA(410, :) = (/ 6, 7, 18, 19, 30, 38/)
PAST_DATA(411, :) = (/10, 15, 21, 35, 38, 43/)
PAST_DATA(412, :) = (/ 2, 7, 19, 25, 29, 36/)
PAST_DATA(413, :) = (/ 2, 10, 12, 31, 33, 42/)
PAST_DATA(414, :) = (/ 3, 8, 19, 27, 30, 41/)
PAST_DATA(415, :) = (/ 2, 6, 7, 12, 19, 45/)
PAST_DATA(416, :) = (/ 2, 10, 11, 19, 35, 39/)
PAST_DATA(417, :) = (/ 5, 6, 13, 16, 27, 28/)
PAST_DATA(418, :) = (/12, 15, 16, 20, 24, 30/)
PAST_DATA(419, :) = (/4 , 6, 15, 25, 26, 33/)
PAST_DATA(420, :) = (/3 , 10, 23, 24, 31, 39/)
PAST_DATA(421, :) = (/14, 15, 16, 17, 38, 45/)
PAST_DATA(422, :) = (/6 , 18, 31, 34, 38, 45/)
PAST_DATA(423, :) = (/11, 16, 18, 19, 24, 39/)
PAST_DATA(424, :) = (/15, 17, 19, 21, 27, 45/)
PAST_DATA(425, :) = (/6 , 12, 19, 24, 34, 41/)
PAST_DATA(426, :) = (/6 , 21, 35, 36, 37, 41/)
PAST_DATA(427, :) = (/6 , 12, 17, 21, 34, 37/)
PAST_DATA(428, :) = (/8 , 9, 18, 21, 28, 40/)
PAST_DATA(429, :) = (/11, 12, 29, 33, 38, 42/)
PAST_DATA(430, :) = (/12, 15, 18, 28, 34, 42/)
PAST_DATA(431, :) = (/ 8, 12, 19, 21, 31, 35/)
PAST_DATA(432, :) = (/ 5, 6, 11, 14, 21, 41/)
PAST_DATA(433, :) = (/ 6, 10, 17, 18, 21, 29/)
PAST_DATA(434, :) = (/ 1, 9, 12, 23, 39, 43/)
PAST_DATA(435, :) = (/ 5, 7, 11, 16, 41, 45/)
PAST_DATA(436, :) = (/ 7, 27, 29, 30, 38, 44/)
PAST_DATA(437, :) = (/ 5, 15, 20, 31, 34, 42/)
PAST_DATA(438, :) = (/ 9, 30, 34, 35, 39, 41/)
PAST_DATA(439, :) = (/ 1, 3, 8, 12, 42, 43/)
PAST_DATA(440, :) = (/ 7, 22, 24, 31, 34, 36/)
PAST_DATA(441, :) = (/ 3, 8, 16, 32, 34, 43/)
PAST_DATA(442, :) = (/ 1, 3, 12, 21, 26, 41/)
PAST_DATA(443, :) = (/ 4, 7, 11, 24, 42, 45/)
PAST_DATA(444, :) = (/10, 22, 27, 31, 42, 43/)
PAST_DATA(445, :) = (/ 9, 33, 36, 40, 42, 43/)
PAST_DATA(446, :) = (/ 5, 9, 12, 30, 39, 43/)
PAST_DATA(447, :) = (/ 6, 7, 11, 17, 33, 44/)
PAST_DATA(448, :) = (/10, 14, 16, 18, 27, 28/)
PAST_DATA(449, :) = (/13, 14, 26, 28, 30, 36/)
PAST_DATA(450, :) = (/ 2, 8, 17, 24, 29, 31/)
PAST_DATA(451, :) = (/ 2, 17, 19, 24, 37, 41/)
PAST_DATA(452, :) = (/ 4, 16, 20, 33, 40, 43/)
PAST_DATA(453, :) = (/ 3, 4, 16, 20, 28, 44/)
PAST_DATA(454, :) = (/ 1, 2, 15, 19, 24, 36/)
PAST_DATA(455, :) = (/12, 14, 24, 26, 34, 45/)
PAST_DATA(456, :) = (/ 3, 10, 13, 22, 31, 32/)
PAST_DATA(457, :) = (/ 7, 9, 12, 14, 23, 28/)
PAST_DATA(458, :) = (/ 3, 12, 33, 36, 42, 45/)
PAST_DATA(459, :) = (/ 1, 2, 3, 9, 12, 23/)
PAST_DATA(460, :) = (/10, 15, 18, 21, 34, 41/)
PAST_DATA(461, :) = (/15, 19, 21, 34, 41, 44/)
PAST_DATA(462, :) = (/ 8, 10, 13, 36, 37, 40/)
PAST_DATA(463, :) = (/ 5, 21, 27, 34, 44, 45/)
PAST_DATA(464, :) = (/ 4, 8, 9, 16, 17, 19/)
PAST_DATA(465, :) = (/ 7, 22, 29, 33, 34, 35/)
PAST_DATA(466, :) = (/23, 27, 28, 38, 42, 43/)
PAST_DATA(467, :) = (/13, 15, 18, 24, 27, 41/)
PAST_DATA(468, :) = (/ 2, 11, 17, 18, 21, 27/)
PAST_DATA(469, :) = (/ 5, 10, 13, 27, 37, 41/)
PAST_DATA(470, :) = (/ 6, 16, 37, 38, 41, 45/)
PAST_DATA(471, :) = (/11, 24, 32, 33, 35, 40/)
PAST_DATA(472, :) = (/ 2, 4, 5, 17, 27, 32/)
PAST_DATA(473, :) = (/ 2, 7, 13, 25, 42, 45/)
PAST_DATA(474, :) = (/ 4, 10, 14, 15, 18, 22/)
PAST_DATA(475, :) = (/11, 17, 21, 26, 36, 45/)
PAST_DATA(476, :) = (/ 3, 6, 10, 30, 34, 37/)
PAST_DATA(477, :) = (/ 7, 8, 10, 19, 21, 31/)
PAST_DATA(478, :) = (/ 1, 11, 21, 23, 34, 44/)
PAST_DATA(479, :) = (/ 6, 7, 19, 21, 41, 43/)
PAST_DATA(480, :) = (/ 2, 8, 33, 35, 37, 41/)
PAST_DATA(481, :) = (/20, 30, 33, 35, 36, 44/)
PAST_DATA(482, :) = (/12, 14, 21, 30, 39, 43/)
PAST_DATA(483, :) = (/ 1, 28, 35, 41, 43, 44/)
PAST_DATA(484, :) = (/ 1, 12, 29, 34, 36, 37/)
PAST_DATA(485, :) = (/ 4, 8, 13, 19, 20, 43/)
PAST_DATA(486, :) = (/ 4, 11, 20, 23, 32, 39/)
PAST_DATA(487, :) = (/ 2, 11, 19, 25, 28, 32/)
PAST_DATA(488, :) = (/ 2, 6, 13, 16, 29, 30/)
PAST_DATA(489, :) = (/ 2, 7, 27, 33, 41, 44/)
PAST_DATA(490, :) = (/ 1, 7, 22, 33, 37, 40/)
PAST_DATA(491, :) = (/ 2, 5, 15, 18, 19, 23/)
PAST_DATA(492, :) = (/17, 20, 30, 31, 33, 45/)
PAST_DATA(493, :) = (/11, 15, 24, 35, 37, 45/)
PAST_DATA(494, :) = (/ 3, 4, 9, 24, 25, 33/)
PAST_DATA(495, :) = (/10, 18, 30, 36, 39, 44/)
PAST_DATA(496, :) = (/ 2, 10, 16, 19, 34, 45/)
PAST_DATA(497, :) = (/ 2, 12, 19, 24, 39, 44/)
PAST_DATA(498, :) = (/ 3, 4, 6, 10, 28, 30/)
PAST_DATA(499, :) = (/ 1, 6, 17, 22, 28, 45/)
PAST_DATA(500, :) = (/ 1, 4, 8, 23, 33, 42/)
PAST_DATA(501, :) = (/10, 28, 31, 33, 41, 44/)
PAST_DATA(502, :) = (/ 3, 13, 16, 24, 26, 29/)
PAST_DATA(503, :) = (/ 3, 10, 14, 16, 36, 38/)
PAST_DATA(504, :) = (/11, 23, 28, 29, 30, 44/)
PAST_DATA(505, :) = (/ 4, 5, 8, 16, 21, 29/)
PAST_DATA(506, :) = (/ 3, 11, 13, 21, 33, 37/)
PAST_DATA(507, :) = (/ 2, 5, 8, 11, 33, 39/)
PAST_DATA(508, :) = (/ 1, 7, 16, 18, 34, 38/)
PAST_DATA(509, :) = (/ 4, 18, 26, 33, 34, 38/)
PAST_DATA(510, :) = (/ 7, 15, 20, 25, 33, 43/)
PAST_DATA(511, :) = (/ 1, 6, 11, 28, 34, 42/)
PAST_DATA(512, :) = (/ 3, 11, 14, 15, 32, 36/)
PAST_DATA(513, :) = (/15, 27, 33, 35, 43, 45/)
PAST_DATA(514, :) = (/24, 25, 33, 34, 38, 39/)
PAST_DATA(515, :) = (/ 7, 17, 19, 30, 36, 38/)
PAST_DATA(516, :) = (/ 5, 15, 22, 23, 34, 35/)
PAST_DATA(517, :) = (/ 1, 8, 10, 13, 28, 42/)
PAST_DATA(518, :) = (/ 7, 12, 15, 24, 25, 43/)
PAST_DATA(519, :) = (/ 6, 7, 12, 28, 38, 40/)
PAST_DATA(520, :) = (/ 1, 11, 15, 17, 25, 39/)
PAST_DATA(521, :) = (/ 6, 13, 20, 27, 28, 40/)
PAST_DATA(522, :) = (/17, 23, 27, 35, 38, 43/)
PAST_DATA(523, :) = (/21, 24, 27, 29, 43, 44/)
PAST_DATA(524, :) = (/ 4, 10, 19, 29, 32, 42/)
PAST_DATA(525, :) = (/ 3, 5, 7, 14, 26, 34/)
PAST_DATA(526, :) = (/ 4, 5, 6, 12, 25, 37/)
PAST_DATA(527, :) = (/12, 15, 24, 36, 41, 44/)
PAST_DATA(528, :) = (/ 1, 8, 17, 34, 39, 45/)
PAST_DATA(529, :) = (/ 1, 8, 11, 15, 18, 45/)
PAST_DATA(530, :) = (/ 9, 10, 14, 25, 27, 31/)
PAST_DATA(531, :) = (/ 7, 10, 17, 29, 33, 44/)
PAST_DATA(532, :) = (/ 8, 21, 28, 31, 36, 45/)
PAST_DATA(533, :) = (/ 7, 9, 10, 13, 31, 35/)
PAST_DATA(534, :) = (/11, 18, 26, 27, 40, 41/)
PAST_DATA(535, :) = (/ 7, 8, 20, 29, 33, 38/)
PAST_DATA(536, :) = (/12, 14, 15, 24, 27, 32/)
PAST_DATA(537, :) = (/15, 17, 25, 37, 42, 43/)
PAST_DATA(538, :) = (/ 2, 4, 6, 11, 17, 28/)
PAST_DATA(539, :) = (/ 5, 6, 11, 17, 38, 44/)
PAST_DATA(540, :) = (/10, 20, 33, 36, 41, 44/)
PAST_DATA(541, :) = (/ 3, 5, 8, 19, 38, 42/)
PAST_DATA(542, :) = (/ 5, 6, 9, 11, 15, 37/)
PAST_DATA(543, :) = (/ 2, 3, 12, 20, 27, 38/)
PAST_DATA(544, :) = (/ 4, 9, 23, 33, 39, 44/)
PAST_DATA(545, :) = (/ 7, 18, 19, 27, 29, 42/)
PAST_DATA(546, :) = (/ 8, 19, 25, 28, 32, 36/)
PAST_DATA(547, :) = (/10, 14, 19, 39, 40, 43/)
PAST_DATA(548, :) = (/ 3, 7, 14, 16, 31, 40/)
PAST_DATA(549, :) = (/ 7, 37, 38, 39, 40, 44/)
PAST_DATA(550, :) = (/16, 21, 26, 31, 36, 43/)
PAST_DATA(551, :) = (/ 5, 6, 26, 27, 38, 39/)
PAST_DATA(552, :) = (/ 3, 13, 15, 40, 41, 44/)
PAST_DATA(553, :) = (/11, 12, 16, 26, 29, 44/)
PAST_DATA(554, :) = (/ 3, 4, 7, 11, 31, 41/)
PAST_DATA(555, :) = (/ 3, 21, 22, 33, 41, 42/)
PAST_DATA(556, :) = (/13, 19, 28, 37, 38, 43/)
PAST_DATA(557, :) = (/ 5, 16, 21, 23, 24, 30/)
PAST_DATA(558, :) = (/ 2, 9, 24, 41, 43, 45/)
PAST_DATA(559, :) = (/ 1, 4, 16, 26, 40, 41/)
PAST_DATA(560, :) = (/ 5, 13, 17, 23, 28, 36/)
PAST_DATA(561, :) = (/15, 24, 31, 32, 33, 40/)
PAST_DATA(562, :) = (/ 8, 17, 18, 24, 39, 45/)
PAST_DATA(563, :) = (/11, 18, 21, 36, 37, 43/)
PAST_DATA(564, :) = (/14, 15, 18, 21, 26, 35/)
PAST_DATA(565, :) = (/ 6, 15, 22, 23, 25, 32/)
PAST_DATA(566, :) = (/ 7, 18, 22, 24, 31, 34/)
PAST_DATA(567, :) = (/ 3, 16, 22, 37, 38, 44/)
PAST_DATA(568, :) = (/ 6, 7, 15, 16, 20, 31/)
PAST_DATA(569, :) = (/11, 13, 25, 26, 29, 33/)
PAST_DATA(570, :) = (/ 4, 10, 11, 12, 20, 27/)
PAST_DATA(571, :) = (/ 9, 12, 19, 20, 39, 41/)
PAST_DATA(572, :) = (/15, 18, 21, 32, 35, 44/)
PAST_DATA(573, :) = (/ 1, 2, 4, 23, 31, 34/)
PAST_DATA(574, :) = (/ 8, 17, 21, 24, 27, 31/)
PAST_DATA(575, :) = (/19, 28, 31, 38, 43, 44/)
PAST_DATA(576, :) = (/ 1, 7, 12, 15, 23, 42/)
PAST_DATA(577, :) = (/ 2, 9, 22, 25, 31, 45/)
PAST_DATA(578, :) = (/13, 14, 26, 33, 40, 43/)
PAST_DATA(579, :) = (/ 3, 6, 7, 20, 21, 39/)
PAST_DATA(580, :) = (/ 1, 7, 19, 26, 27, 35/)
PAST_DATA(581, :) = (/ 7, 13, 30, 39, 41, 45/)
PAST_DATA(582, :) = (/ 9, 15, 16, 21, 28, 34/)
PAST_DATA(583, :) = (/ 1, 2, 6, 16, 19, 42/)
PAST_DATA(584, :) = (/ 2, 16, 17, 32, 39, 45/)
PAST_DATA(585, :) = (/ 6, 8, 13, 30, 35, 40/)
PAST_DATA(586, :) = (/ 8, 16, 25, 30, 42, 43/)
PAST_DATA(587, :) = (/ 4, 5, 11, 12, 24, 27/)
PAST_DATA(588, :) = (/ 5, 13, 18, 23, 40, 45/)
PAST_DATA(589, :) = (/10, 17, 18, 19, 23, 27/)
PAST_DATA(590, :) = (/ 8, 21, 25, 39, 40, 44/)
PAST_DATA(591, :) = (/ 7, 8, 11, 16, 41, 44/)
PAST_DATA(592, :) = (/ 6, 9, 18, 19, 25, 33/)
PAST_DATA(593, :) = (/ 2, 22, 27, 33, 36, 37/)
PAST_DATA(594, :) = (/14, 18, 20, 23, 28, 36/)
PAST_DATA(595, :) = (/ 4, 8, 27, 34, 39, 40/)
PAST_DATA(596, :) = (/ 4, 8, 18, 19, 39, 44/)
PAST_DATA(597, :) = (/ 8, 14, 23, 36, 38, 39/)
PAST_DATA(598, :) = (/ 1, 5, 6, 14, 20, 39/)
PAST_DATA(599, :) = (/ 1, 2, 7, 9, 10, 38/)
PAST_DATA(600, :) = (/ 2, 6, 18, 21, 33, 34/)
PAST_DATA(601, :) = (/ 2, 19, 25, 26, 27, 43/)
PAST_DATA(602, :) = (/13, 14, 22, 27, 30, 38/)
PAST_DATA(603, :) = (/ 2, 16, 19, 31, 34, 35/)
WEIGHTS = 1
DO L = 1, 5
DO I = 1, 5
DO J = 1, 6
TEMP_NUM = PAST_DATA(I, J)
WEIGHTS(TEMP_NUM) = WEIGHTS(TEMP_NUM) + 1
END DO
END DO
CALL RANDOM_SEED()
NUM_SIMULATIONS = 8140000
DO I = 1, NUM_SIMULATIONS
K = 0
DO WHILE (K < PICK_COUNT)
TOTAL_WEIGHT = SUM(WEIGHTS)
CALL RANDOM_NUMBER(R)
TEMP_NUM = 0
DO J = 1, NUM_BALLS
R = R - (REAL(WEIGHTS(J)) / TOTAL_WEIGHT)
IF (R <= 0.0) THEN
TEMP_NUM = J
EXIT
END IF
END DO
IS_DUPLICATE = .FALSE.
DO J = 1, K
IF (SIMULATION_RESULT(J) == TEMP_NUM) IS_DUPLICATE = .TRUE.
END DO
IF (.NOT. IS_DUPLICATE) THEN
K = K + 1
SIMULATION_RESULT(K) = TEMP_NUM
END IF
END DO
DO J = 1, PICK_COUNT - 1
DO K = J + 1, PICK_COUNT
IF (SIMULATION_RESULT(J) > SIMULATION_RESULT(K)) THEN
TEMP_NUM = SIMULATION_RESULT(J)
SIMULATION_RESULT(J) = SIMULATION_RESULT(K)
SIMULATION_RESULT(K) = TEMP_NUM
END IF
END DO
END DO
END DO
PRINT *, L,"RESULT? ", SIMULATION_RESULT
PRINT *, "-------------------------------------------"
END DO
END PROGRAM LOTTERY_MONTE_CARLO반응형
'공학 > FORTRAN' 카테고리의 다른 글
| MC DRAG - 발사체의 항력 계수를 추정하는 컴퓨터 프로그램 (1) | 2025.12.25 |
|---|---|
| [FORTRAN] 포트란 언어에서 상수와 변수 (0) | 2025.12.23 |
| GNU Exterior Ballistics Computer (0) | 2025.12.17 |
| [FORTRAN] 포트란 작성 스타일과 실행 방법 (0) | 2025.12.14 |
| [FORTRAN] 포트란 프로그램의 구조 (0) | 2025.12.13 |
