| bregalad пишет: |
| MoonCat пишет: не во всех языках умножение - * Например? |
Я сам подумал, знаю ли я какой-нибудь язык программирования, где умножение обозначается каким-то другим значком, отличным от звездочки (исключая Ассемблер, конечно). Вспомнил: просто один из самых моих любимых языков программирования PostScript. Там умножение — это просто слово mul.
На ПостСкрипте я много чего написал — практически все картинки в моих статьях, в документациях и т.п. написаны на PostScripte (именно написаны, я не люблю рисовать в визуальных графических редакторах, которые экспортируют векторную графику, даже таких классных, как inkscape). В качестве примера одной из картинок, написанных мной на PostScript'е — вот рисунок кривой Пеано (первых 6-ти порядков, сама кривая — это предел, когда порядок стремится к бесконечности) — это непрерывная кривая, которая проходит через все точки квадрата:
А вот исходник этой картинки (написать самому легко, понять другому человеку или даже мне самому после многих лет после написания непросто!). Можно в тексте увидеть операцию умножения mul. К сожалению, форум сжирает отступы в тексте (а я в любых языках программирования всегда строго соблюдаю отступы):
2.83 2.83 scale
0.5 0.5 setlinewidth
/Pow2 {
dup
0 gt
{
1 sub Pow2 2 mul
}
{
pop 1
}
ifelse
} def
/PeanoCurve {
/Orient exch def
/DeltaY exch def
/DeltaX exch def
/N exch def
N 0 gt {
/Num N Pow2 1 sub def
/Num2 Num 1 sub 2 div def
/Dx DeltaX Num div def
/Dy DeltaY Num div def
/Wx Dx Num2 mul def
/Wy Dy Num2 mul def
/N1 N 1 sub def
Num
Num2
Dx
Dy
Wx
Wy
N1
Orient
N1
Wy neg Orient mul
Wx Orient mul
Orient neg PeanoCurve
/Orient exch def
/N1 exch def
/Wy exch def
/Wx exch def
/Dy exch def
/Dx exch def
/Num2 exch def
/Num exch def
Dy neg Orient mul
Dx Orient mul
rlineto
Num
Num2
Dx
Dy
Wx
Wy
N1
Orient
N1
Wx
Wy
Orient PeanoCurve
/Orient exch def
/N1 exch def
/Wy exch def
/Wx exch def
/Dy exch def
/Dx exch def
/Num2 exch def
/Num exch def
Dx Dy rlineto
Num
Num2
Dx
Dy
Wx
Wy
N1
Orient
N1
Wx
Wy
Orient PeanoCurve
/Orient exch def
/N1 exch def
/Wy exch def
/Wx exch def
/Dy exch def
/Dx exch def
/Num2 exch def
/Num exch def
Dy Orient mul
Dx neg Orient mul
rlineto
N1
Wy Orient mul
Wx neg Orient mul
Orient neg
PeanoCurve
} if
} def
10 10 moveto
1 80 0 1 PeanoCurve
stroke
100 10 moveto
2 80 0 1 PeanoCurve
stroke
10 100 moveto
3 80 0 1 PeanoCurve
stroke
100 100 moveto
4 80 0 1 PeanoCurve
stroke
10 190 moveto
5 80 0 1 PeanoCurve
stroke
100 190 moveto
6 80 0 1 PeanoCurve
stroke
showpage
Ссылка: http://mech.math.msu.su/~vvb/peano.ps
Прошу прощения за offtop.
