|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Vadik Akimoff 2:5020/835.1 09 Aug 2003 00:15:59
To : Alex Volkov
Subject : Квадратные корни табличным методом
--------------------------------------------------------------------------------
In a message of 08 Aug 03 Alex Volkov wrote to Kirill Akopov:
AV> Hичего что мотороллеровский асм?
AV> Ты извини, я амижник.. Могу накрйняк для спектрумя.
Вау! Я тоже :) А почему в ru.amiga не ходишь и с пц пишешь?
AV> lea sqrttab,a0
AV> moveq #0,d0 ;x
AV> .lop2
AV> move d0,d1
AV> add d1,d1
AV> .lop1
AV> move.b d0,(a0)+ ;repeated 2x+1 times.
AV> dbf d1,.lop1
AV> addq.b #1,d0 ;increase and reapeat , until x=0 because
AV> bne.s .lop2 ;of wrapping around.
AV> rts
Интересный прикол :) Подметили верную закономерность, и вообще не считают
корень.
AV> Вот такие дела, брат..
Метод интересный конечно, но годится вроде только для целочисленной таблицы
(результат из неё - целое число). Я как-то прикидывал честное вычисление
корня - самым коротким получалось что-то вроде
; IN: d0.l
; OUT: d1.l = int(sqrt(d0.l))
clr.l d1
.loop
move.l d1,d2
addq.l #1,d2
mulu.l d2,d2
cmp.l d2,d0
blo.s .exit
addq.l #1,d1
bra.s .loop
.exit
rts
Жутко тупо, но зато мало :)
Bye...
* Origin: Life is complex: it has real & imaginary parts. (2:5020/835.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
