Эта программа выполняется на УКНЦ за 4мин.10сек, на Форманте (Корвет) ПК 8020 за 10мин.40сек. Довольно быстрый Бейсик.
Вид для печати
Эта программа выполняется на УКНЦ за 4мин.10сек, на Форманте (Корвет) ПК 8020 за 10мин.40сек. Довольно быстрый Бейсик.
вычислительные возможности УКНЦ бейсика всегда были на высоте - я помню сравнивали с МС 1502 (XT в корпусе УКНЦ), последний отстал даже от БК11М не говоря о УКНЦ, где разница была уже в разы.Цитата:
Сообщение от shapipovo
(как сравнивали - честно не помню, толи факториалы считали толи число ПИ)
shapipovo, набил в эмуляторе, симпатично, там коэффициенты надо менять, у Бейсика на УК-НЦ 0,0 в нижнем углу )))
https://pic.maxiol.com/thumbs2/15880...0427201830.jpg
Для IBM PC/XT много бейсиков и при желании можно найти медленный, но был и quick basic, который явно был быстрее и БКшного и УКНЦшного.Цитата:
Сообщение от SuperMax
не могу сказать точно сколько бейсиков опробовали владельцы МС 1502 и Поиска (я вспомнил, что он тоже участвовал в тесте)Цитата:
Сообщение от ivagor
но я не случайного говорю, что задача была вычислительная ибо тут как раз сильно видно преимущество 16ти разрядных машин.
собственно можно же повторить ? то было в 93ем, сейчас 2020й ;-)
который был компилятором. И либо тащил за собой свои оверлеи, либо линковал их в неприличного размера экзешник.Цитата:
Сообщение от ivagor
На реале, к сожалению, проверить не могу, попробовал в эмуляторах (pce-ibmpc и emu). В конфиге pce-ibmpc проц 8088 с частотой соответствующей 4.77. В emu конфиг Поиска. Не думаю, что это очень точные по скорости эмуляторы, но некое представление составить можно. Quick Basic 4.5, генерировал стэндэлон exe (34 килобайта, т.е. запустится на любой PC). pce-ibmpc - 3:10; emu - 3:15.
Прочитал, что для УКНЦ есть Турбо Бейсик, интересно быстродействие откомпилированной им программы.
одно время даже хотели с сотоварищами в отдельную тему его вытащить, но большого интереса к нему проявлено не было.Цитата:
Сообщение от ivagor
http://hobot.pdp-11.ru/ukdwk_archive...turboBAS_uknc/
- - - Добавлено - - -
УК-НЦшный .ASC - что бы можно было "перетащить" и запустить на БК0010-01 Вильнюс-Бейсике например.
картинка тут > https://zx-pk.ru/threads/31557-bejsi...=1#post1059962Код:10 SCREEN 2
11 FA=3.333
20 FOR X=-20 TO 130 STEP 5
30 FOR Y=0 TO 200
40 GOSUB 120
50 NY=Y-X*.5+80
51 NZ=Z+X*0.6+80
60 LINE(NY,NZ)-(NY,199),0
70 IF Y=0 THEN PSET(NY,NZ) ELSE LINE(PY,PZ)-(NY,NZ)
80 PY=NY
81 PZ=NZ
90 NEXT Y
100 NEXT X
110 GOTO 110
120 REM FUNCTION
130 Z=Y*.1
131 XT=X*.1
132 YT=(Y+120)*.06
140 IF XT<0 OR XT>10 THEN RETURN
150 IF XT<-FA*(YT-10)+10 OR XT<FA*(YT-10)-16.66666 THEN RETURN
160 IF XT<-FA*(YT-10)+16.66666 OR XT<FA*(YT-10)-10 OR (XT>6 AND XT<8) THEN Z=-20
170 RETURN
В UKNCBTL Турбо Бейсик нарисовал за 1:50