Нарисовать деление чисел столбиком

Форум пользователей пакета Maple

Модератор: Admin

FIRESTORM
Сообщения: 2
Зарегистрирован: Вт май 09, 2017 1:07 pm

Нарисовать деление чисел столбиком

Сообщение FIRESTORM » Вт май 09, 2017 1:08 pm

Здравствуйте, не подскажите как можно реализовать в мэпле иллюстрацию деления чисел? У меня вообще идей нет. Подкиньте хоть какую нибудь зацепку пожалуйста.

Markiyan Hirnyk
Сообщения: 1191
Зарегистрирован: Вс дек 04, 2011 11:07 pm

Re: Нарисовать деление чисел столбиком

Сообщение Markiyan Hirnyk » Вт май 09, 2017 8:40 pm

Посмотрите команды ?iquo,?irem.

FIRESTORM
Сообщения: 2
Зарегистрирован: Вт май 09, 2017 1:07 pm

Re: Нарисовать деление чисел столбиком

Сообщение FIRESTORM » Вт май 09, 2017 9:11 pm

Markiyan Hirnyk писал(а):Посмотрите команды ?iquo,?irem.

да я смотрел, пытался, даже написал цикл который бы числа "делил на разряды", только вот у меня почему то не записывался он в последовательность...
было что то типа
name:=proc(a)
local b,c;
if a>10 then
if a>100 then
if a>1000 then
b[1]:=irem(a,10)
c:=iquo(a,10)
end if;
b[3]:=irem(a,10)
c:=iquo(a,10)
end if;
b[3]:=irem(a,10)
c:=iquo(a,10)
end if;
print b;
end proc;

Kitonum
Сообщения: 2009
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Нарисовать деление чисел столбиком

Сообщение Kitonum » Чт май 11, 2017 10:56 pm

Вот несколько советов в помощь.

1. Два способа получить список цифр данного числа.

Пример:
convert(3182,base,10); # первый способ
ListTools:-Reverse(%);

L:=[ ]: a:=3182: # второй способ (в цикле)
while a>=1 do
r:=irem(a,10); a:=iquo(a,10); L:=[r,op(L)];
od:
L;

Для графики можно использовать команды plots:-textplot и plottools:-line как в примере (начало деления):

A:=[3,1,8,2]: B:=[2,3]:
p:=plots:-textplot([seq([k,0,A[k]], k=1..4), seq([k,-1,B[k]], k=1..2), [0,-0.5, "-"], [2,-2,8], seq([k+6,0,B[k]], k=1..2), [6,0,"|"], [7,-1,1]], font=[times,roman,30], size=[200,135]):
l1:=plottools:-line([0.5,-1.5],[2.5,-1.5]):
l2:=plottools:-line([6,-0.5],[8.5,-0.5]):
plots:-display(p,l1,l2, axes=none);

Изображение