Кто во всем этом не узнает, что рука Господа сотворила сие? (Иов.12:9)
Свернуть
X
-
-
Делаем вывод- "Вариант,все и сразу" не работает.
Это при том, что никто этого процесса никогда не видел!
Но ваша имитационная модель на самом деле таковой не является! В вашей программе получается, что всегда должно формироваться одно и тоже и однозначно! Это неправильный подход, мы его уже рассматривали для программы ibs-а, где у него кусок Библии побуквенно подбирался! Во-первых, никаких новых структур не получается, сложность не возрастает, потому как конечный результат зашит в программу и участвует в алгоритме ее работы! Во-вторых, где другие сочетания?! У вас ведь однозначно все сводится к тупому выводу желаемого результата, никаких иных форм не строится!
Я даже знаю как ускорить вашу программу:10 CLS
20 FOR N = 1 TO 2
30 PRINT "AGTC"
40 PRINT "GACT"
50 NEXT
Эта программа эквивалентна вашей, но без шелухи, которая у вас только ради того, чтобы пустить пыль в глаза и запутать, сделав вид, что там действительно что-то работает, кроме подгонки результата! Вот ваша шелуха:20 FOR i = 0 TO 1000000
30 RANDOMIZE TIMER
40 x = INT(RND * 100) + 1
50 IF x = 1 OR x = 2 THEN GOTO 90
60 IF x = 3 OR x = 4 THEN GOTO 90
90 NEXT i
Вы думаете в этом цикле происходит полезная работа?! Да он эквивалентен записи:30 RANDOMIZE TIMER
40 x = INT(RND * 100) + 1
Только создает видимость бурной деятельности!
Зачем эти условия "IF x = 1 OR x = 2 THEN GOTO 90"Не важно, чему у вас там х равно, оно все равно сейчас NEXT i выполнится! Ну а тупо в цикле гонять рандом вообще не ясно для чего
Зато листинг у вас получился большим и для неподготовленного читателя будет выглядеть солидно и очень круто!
Научный метод проше и эффективней креационистского подхода-"Все и сразу"Жизнь моя, или ты приснилась мне
Словно бы весенней , гулкой ранью
проскакал на розовом конеКомментарий
-
Всё равно лажа - неоптимальный... Но зато работает - это главное. А ещё оригинально - вон Хорс, наверное, так до сих пор и не въехал.
.Последний раз редактировалось Полковник; 01 May 2013, 01:27 AM."Давайте учиться иметь свое мнение, давайте не будем повторять чужое."
Виктор СуворовКомментарий
-
Извинения ни к чему! Вам остается признать, что простой замены 3-х чисел в программе Сергеевны было не достаточно для того, чтобы она работала с 12-значными числами! Собственно, выше я это наглядно показал! Можете проверять, только качайте QB64, потому как версия, что у вас, сама решетки добавляет на больших числах, а та нет!
И так, с этим вопросом мы разобрались! Кто ламо, а кто нет, установили! Но еще один вопрос про длинные рандомные цепочки и распределение вероятностей остался!
Напомню, код программы тут: http://www.evangelie.ru/forum/t12207...ml#post4224689 - скопипастить его есть секундное дело!
Во-первых, Сергеевна упорно доказывала, что надо только два числа поменять и все! Я ее потому и просил показать, что у нее получилось, но она утверждала, что только замена чисел, что я ламер, раз прошу готовое! Но ведь все как раз наоборот! Я ведь понимаю, как это дело работает, а она нет! Но ей простительно, она не программист, к ней претензий по этому поводу не имею!
А вот вы утверждали, что "Вы считаете, что замены трех (пусть лично для вас и Сергеевны будет двух) чисел в исходной программе Сергеевны достаточно для того, чтобы провести опыт с числом в 12 цифр?!" - да! Вы лажанулись в очередной раз! Не достаточно! Сами ведь теперь говорите, что надо еще указывать типы!
Во-вторых, даже если указать типы, то вы нарветесь на проблему генерации длинных цепочек ГПСЧ! Об этой проблеме вы явно не слышали, однако от этого она никуда не девается!
Цитата из Библии:Нет Бога, кроме Христа!Комментарий
-
На каждого атеиста, довольно простоты. В. А. Пушкин - гроза безбожников...Комментарий
-
Комментарий
-
Комментарий
-
CLS
DIM s(4) AS STRING
20 RANDOMIZE TIMER
FOR i = 1 TO 4
30 x = INT(RND * 100) + 1
IF x > 4 THEN GOTO 30
IF x = 1 THEN s(i) = "A"
IF x = 2 THEN s(i) = "G"
IF x = 3 THEN s(i) = "T"
IF x = 4 THEN s(i) = "C"
NEXT i
l$ = s(1) + s(2) + s(3) + s(4)
PRINT l$
IF l$ <> "AGTC" THEN GOTO 20
.
Жизнь моя, или ты приснилась мне
Словно бы весенней , гулкой ранью
проскакал на розовом конеКомментарий
-
Нет Сергеевна - всё соответствет. Просто я сразу не разобрался.
."Давайте учиться иметь свое мнение, давайте не будем повторять чужое."
Виктор СуворовКомментарий
-
Исключительно ваш вариант не работает, потому как у вас там ошибки! А теоретически можно написать работающий, который может даже за неделю и подберет 12-значное число!
Я написал эквивалент вашей программы без шелухи! Она ведь по сути принту и соответствует, только с еще бесцельно крутящимися циклами!
В моем вариант?!
30 RANDOMIZE TIMER
40 x = INT(RND * 100) + 1
Да, любое число от 1 до 100 и один раз!
В вашем?!
20 FOR i = 0 TO 1000000
30 RANDOMIZE TIMER
40 x = INT(RND * 100) + 1
50 IF x = 1 OR x = 2 THEN GOTO 90
60 IF x = 3 OR x = 4 THEN GOTO 90
90 NEXT i
Да, любое число от 1 до 100 и один раз!
Мой и ваш коды эквиваленты, за исключением ненужной шелухи в вашем!
P.S. Всякие замечания, типа "двойка", "ламо" и прочие я бы советовал приберечь для себя! Вы думаете, что такие замечания как-то скрывают ваши ошибки или еще чего?! Ничего подобного, Полковник уже получил ответное "ламо", которое в каждом посту адресовал мне, но оказалось, что сам себе!
Нет, причина в другом! Причина в том, что вы ламо в программировании! Уж извините за грубость, но надоело! Я вам уже предлагал вести корректный диалог, при котором я буду к вам подходить с пониманием того, что вы не профессиональный программист! Видимо, это для вас оказалось не по силам! Потому буду называть вещи своими именами!
Никакого научного метода в вашей программе нет!Цитата из Библии:Нет Бога, кроме Христа!Комментарий
-
И ведь действительно, таким способом,подбирается цепочка ДНК вообше любой длинны и даже без особого напряга. Полковник, можно я к вам буду обрашаться иногда по поводу программ? У меня два молодых организма, школьного возраста, а лопатить учебники иногда не эффективноЖизнь моя, или ты приснилась мне
Словно бы весенней , гулкой ранью
проскакал на розовом конеКомментарий
-
В том то и хохма, что складывалось все последовательно
Как-то иначе - это первичный бульон, в котором все эти штуки должны были самообразоваться! Очень плохая гипотеза, она даже не удовлетворяет критерию фальсифицируемости!
В вашей программе это не отражено!
Я написал эквивалент вашей программы без шелухи! Она ведь по сути принту и соответствует, только с еще бесцельно крутящимися циклами!
В моем вариант?!30 RANDOMIZE TIMER
40 x = INT(RND * 100) + 1
Да, любое число от 1 до 100 и один раз!
В вашем?!20 FOR i = 0 TO 1000000
30 RANDOMIZE TIMER
40 x = INT(RND * 100) + 1
50 IF x = 1 OR x = 2 THEN GOTO 90
60 IF x = 3 OR x = 4 THEN GOTO 90
90 NEXT i
Да, любое число от 1 до 100 и один раз!
Мой и ваш коды эквиваленты, за исключением ненужной шелухи в вашем!
P.S. Всякие замечания, типа "двойка", "ламо" и прочие я бы советовал приберечь для себя! Вы думаете, что такие замечания как-то скрывают ваши ошибки или еще чего?! Ничего подобного, Полковник уже получил ответное "ламо", которое в каждом посту адресовал мне, но оказалось, что сам себе!
Нет, причина в другом! Причина в том, что вы ламо в программировании! Уж извините за грубость, но надоело! Я вам уже предлагал вести корректный диалог, при котором я буду к вам подходить с пониманием того, что вы не профессиональный программист! Видимо, это для вас оказалось не по силам! Потому буду называть вещи своими именами!
Никакого научного метода в вашей программе нет!Жизнь моя, или ты приснилась мне
Словно бы весенней , гулкой ранью
проскакал на розовом конеКомментарий
-
Комментарий
-
Сергеевна, в отличие от Вас и будущего наставника Ваших детей, Хорс - профессиональный разработчик. Прислушайтесь к тому, что он говорит. Поверьте мне, я в этом немного понимаю.Комментарий
-
20 FOR i = 0 TO 1000000
30 RANDOMIZE TIMER
40 x = INT(RND * 100) + 1
50 IF x = 1 OR x = 2 THEN GOTO 90
60 IF x = 3 OR x = 4 THEN GOTO 90
90 NEXT i
100 IF x = 1 THEN a$ = "A"
110 IF x = 2 THEN g$ = "G"
120 IF x = 3 THEN t$ = "T"
130 IF x = 4 THEN c$ = "C"
140 x$ = a$ + g$ + t$ + c$
141 PRINT x$
149 LOCATE 11, 7
150 IF x$ <> "AGTC" THEN GOTO 20 ELSE GOTO 152
Один раз? вы ничего не попутали?Гоняет пока не подберет все 4 буквы
Хорс вам четвертинку блока показал
строка 150 условие. или возрашает назад на цикл, пока не соберутся все 4 буквы или если собраны на 152 строку
Жизнь моя, или ты приснилась мне
Словно бы весенней , гулкой ранью
проскакал на розовом конеКомментарий
Комментарий