Обсуждение:Треугольник Серпинского

message: Предлагается внести в список внешних ссылок страницу http://fractalworld.xaoc.ru/Sierpinski_triangle . Я сам не могу это сделать в силу того, что моя правка была (и будет снова) расценена как нарушающая правила википедии. Mkot 15:40, 6 сентября 2010 (UTC)
Отказываюсь понимать, почему уже без малого 4 года Википедия упорно удаляет ссылку на статью: Абачиев С. К. О треугольнике Паскаля, простых делителях и фрактальных структурах // В мире науки, 1989, № 9. Цветографические схемы Абачиева исчерпывающим образом, с геометрической наглядностью и в высшей степени эстетично выявляют фрактальность организации в треугольнике Паскаля простых делителей его чисел. Всё, до того известное о треугольниках Серпинского и фигурирующее в картинках Интернета, "скользит по поверхности". См. также в Интернете новейшую электронную публикацию на эту тему: Абачиев С. К., Стахов А. П. Треугольник Паскаля и спектр арифметик для цифровых информационных технологий // Электронное научное издание "Науковедение". - М.: ИГУПИТ, 2012, вып 4 (13). Bogotol 08:36, 22 декабря 2012 (UTC)
Да здравствует Википедия! Хорошо отреагировали на мой комментарий от 22 декабря: убрали ссылку на статью Абачиева в журнале "В мире науки", которая была в статье о треугольнике Серпинского три года. Абсурдопедия, да и только! Bogotol 19:19, 13 февраля 2013 (UTC)
Более двух лет спустя после моего последнего комментария к статье "Треугольник Паскаля№ не могу не высказаться. То, чтО я представил аж четверть века тому назад в журнале "В мире науки", называется приведением знаний о делителях элементов треугольника Паскаля к канонической форме. Всё это - научная классика для учебников, а не для глупых обсуждений вопроса о том, упоминать этот мой научный результат в Википедии или нет. Сколько же можно вот так, дурниной, не пускать в Википедию новую и каноническую версию знаний?! Да мои цветографические схемы давно должны были стать украшением статей Википедии о треугольнике Паскаля и о треугольнике Серпинского! Уж слишком демократична Википедия. Дилетантам позволительно "держать и не пущать" то, чтО давно надо делать общеизвестным. С. К. Абачиев. 95.64.199.195 17:02, 6 февраля 2015 (UTC)
replies: text: Удаляются за неакадемичностью. См. Википедия:К посредничеству/Неакадемичность/Запросы к администраторам#Bogotol. Maxal 19:49, 3 марта 2013 (UTC)
thread_title:  Ссылки 

message: Извиняюсь за индокитайский код, я ещё школьник
Sub Ch4_CreatePoint()
ThisDrawing.SetVariable «PDMODE», 0
ThisDrawing.SetVariable «PDSIZE», 1
Dim pointObj As AcadPoint
Dim location(0 To 2) As Double
Dim pi As Double
Dim i As Double 'Iteration Number
Dim R As Double 'Random Number
Dim x(0 To 2) As Double 'Coordinates
Dim y(0 To 2) As Double
pi = 3.141592654
location(2) = 0 'Z coordinate
x(0) = Cos(pi / 2) 'Vertices
y(0) = Sin(pi / 2)
x(1) = Cos(7 * pi / 6)
y(1) = Sin(7 * pi / 6)
x(2) = Cos(11 * pi / 6)
y(2) = Sin(11 * pi / 6)
For i = 1 To 50000 'Iteration Number
replies: text: R = Rnd(1)

text: If R < 1 / 3 Then
replies: text: : location(0) = (location(0) + x(0)) / 2

text: : location(1) = (location(1) + y(0)) / 2

text: ElseIf R < 2 / 3 Then
replies: text: : location(0) = (location(0) + x(1)) / 2

text: : location(1) = (location(1) + y(1)) / 2

text: Else
replies: text: : location(0) = (location(0) + x(2)) / 2

text: : location(1) = (location(1) + y(2)) / 2

text: End If

text: 'Create the point

text: Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
Next i
ZoomExtents
End Sub
Sub Ch4_CreatePoint()
ThisDrawing.SetVariable "PDMODE", 0
ThisDrawing.SetVariable "PDSIZE", 1
Dim pointObj As AcadPoint
Dim location(0 To 2) As Double
Dim pi As Double
Dim i As Double 'iteration Number
Dim x(0 To 3) As Double
Dim y(0 To 3) As Double
Dim z(0 To 3) As Double
pi = 3.141592654
x(0) = 0 'Vertices
y(0) = 1
z(0) = 0
x(1) = Cos(7 * pi / 6)
y(1) = Sin(7 * pi / 6)
z(1) = 0
x(2) = Cos(11 * pi / 6)
y(2) = Sin(11 * pi / 6)
z(2) = 0
x(3) = 0
y(3) = 0
z(3) = 1.5
For i = 1 To 50000 'Iterations Number

text: R = Rnd(1)

text: Select Case R

text: Case Is < 0.25
replies: text: : location(0) = (location(0) + x(0)) / 2

text: : location(1) = (location(1) + y(0)) / 2

text: : location(2) = (location(2) + z(0)) / 2

text: Case Is < 0.5
replies: text: : location(0) = (location(0) + x(1)) / 2

text: : location(1) = (location(1) + y(1)) / 2

text: : location(2) = (location(2) + z(1)) / 2

text: Case Is < 0.75
replies: text: : location(0) = (location(0) + x(2)) / 2

text: : location(1) = (location(1) + y(2)) / 2

text: : location(2) = (location(2) + z(2)) / 2

text: Case Else
replies: text: : location(0) = (location(0) + x(3)) / 2

text: : location(1) = (location(1) + y(3)) / 2

text: : location(2) = (location(2) + z(3)) / 2

text: End Select

text: 'Create the point

text: Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)

text: Next i

text: ZoomExtents
End Sub
thread_title:  Для AutoCAD 

message: "пересечение членов которой есть треугольник Серпинского". А не объединение? Virtuallab 12:35, 5 декабря 2013 (UTC) Владимир
replies: text: Нет, пересечение, конечно. Объединением будет первоначальный сплошной неинтересный треугольник.--Bopsulai 17:08, 5 декабря 2013 (UTC)
thread_title:  Опечатка?