Обсуждение:Треугольник Серпинского
Эта статья тематически связана с вики-проектом «Математика», цель которого — создание и улучшение статей по темам, связанным с математикой. Вы можете её отредактировать, а также присоединиться к проекту, принять участие в его обсуждении и поработать над требуемыми статьями. |
 | 28—30 марта 2005 года сведения из статьи «Треугольник Серпинского» появлялись на заглавной странице в колонке «Знаете ли вы». В колонке был представлен текст: «Чтобы получить треугольник Серпинского, нужно из равностороннего треугольника удалить внутренность срединного треугольника, затем удалить три срединных треугольника из трёх оставшихся треугольников и т. д». С полным выпуском колонки можно ознакомиться в архиве рубрики «Знаете ли вы». |  |
Ссылки[править код]
Предлагается внести в список внешних ссылок страницу 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)
- Удаляются за неакадемичностью. См. Википедия:К посредничеству/Неакадемичность/Запросы к администраторам#Bogotol. Maxal 19:49, 3 марта 2013 (UTC)
Для AutoCAD[править код]
Извиняюсь за индокитайский код, я ещё школьник
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
- R = Rnd(1)
- If R < 1 / 3 Then
- location(0) = (location(0) + x(0)) / 2
- location(1) = (location(1) + y(0)) / 2
- ElseIf R < 2 / 3 Then
- location(0) = (location(0) + x(1)) / 2
- location(1) = (location(1) + y(1)) / 2
- Else
- location(0) = (location(0) + x(2)) / 2
- location(1) = (location(1) + y(2)) / 2
- End If
- 'Create the point
- 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
- R = Rnd(1)
- Select Case R
- Case Is < 0.25
- location(0) = (location(0) + x(0)) / 2
- location(1) = (location(1) + y(0)) / 2
- location(2) = (location(2) + z(0)) / 2
- Case Is < 0.5
- location(0) = (location(0) + x(1)) / 2
- location(1) = (location(1) + y(1)) / 2
- location(2) = (location(2) + z(1)) / 2
- Case Is < 0.75
- location(0) = (location(0) + x(2)) / 2
- location(1) = (location(1) + y(2)) / 2
- location(2) = (location(2) + z(2)) / 2
- Case Else
- location(0) = (location(0) + x(3)) / 2
- location(1) = (location(1) + y(3)) / 2
- location(2) = (location(2) + z(3)) / 2
- End Select
- 'Create the point
- Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
- Next i
- ZoomExtents
End Sub
Опечатка?[править код]
"пересечение членов которой есть треугольник Серпинского". А не объединение? Virtuallab 12:35, 5 декабря 2013 (UTC) Владимир
- Нет, пересечение, конечно. Объединением будет первоначальный сплошной неинтересный треугольник.--Bopsulai 17:08, 5 декабря 2013 (UTC)