Diseño general de redes (perteneciente a Decoración Geométrica Islámica)
A partir del diseño individual de redes, para 6, 10, 12 y otros, resumimops aqui el caso general:
He aquí el código que usamos para nuestras semisecuencias X y H que definen la red:
valo = Val(valor$) If valo > 0 Then '1. Números valor_de = valo 'lo evaluamos en c, como cosa sencilla g = g + valo / cccc Else '1. Variables, letras Select Case valor$Case "a": valor_de = aaaa: b = b + 1 ' 1.41 Case "c": valor_de = cccc:: g = g + 1 ' 1. Case "ç": valor_de = cccc / 2: g = g + 1 / 2 ' 0.5 Case "â": valor_de = aaaa - cccc: b = b + 1: g = g - 1 ' 0.41 Case "á": valor_de = aaaa / 2: b = b + 1 / 2 ' 0.7 Case "à": valor_de = cccc - aaaa / 2: b = b + 1: g = g - 1 / 2 ' 0.3 ' Case "à": valor_de = 2 * cccc - aaaa: b = b - 1: g = g + 2 ' 0.59 Case "o": valor_de = 0 ' Case Else: valor_de = -1 ' End Select
Análisis de redes
He aquí nuestro análisis informático de la calidad periódica de una red según su ordem N
Select Case 2 * n
Case 8:
If g(1) Mod 2 <> 0 Then text1Text = text1Text + " Num. de 'c' en oblicuo ha de ser par"
If b(1) <> g(0) Then text1Text = text1Text + " Num. de 'a' en oblicuo ha de ser igual a Num. de 'c' en recto"
If g(1) <> 2 * b(0) Then text1Text = text1Text + " Num. de 'c' en oblicuo ha de ser doble que Num. de 'a' en recto"
bg = b(0) + b(1) + g(0) + g(1):
If Int(bg) <> bg Then text1Text = text1Text + " Num.s de 'c' y 'a' en oblicuo y en recto han dese todos enteros"
desigual = 0
For ii% = 1 To semisecuencia(0, 1) / 2
If semisecuencia(ii%, 1) <> semisecuencia(semisecuencia(0, 1) + 1 - ii%, 1) Then desigual = 1
Next
If desigual = 1 Then text1Text = text1Text + " Ss oblicua no es capicúa."
Case 12:
If g(1) Mod 2 <> 0 Then text1Text = text1Text + " Num de 'c' en oblicuo ha de ser par"
If b(1) Mod 2 <> 0 Then text1Text = text1Text + " Num de 'a' en oblicuo ha de ser par"
If 3 * b(1) <> 2 * g(0) Then text1Text = text1Text + " Num de 'a' en oblicuo ha de ser tres medios de Num de 'c' en recto"
If g(1) <> 2 * b(0) Then text1Text = text1Text + " Num de 'c' en oblicuo ha de ser doble que Num de 'a' en recto"
bg = b(0) + b(1) + g(0) + g(1):
If Int(bg) <> bg Then text1Text = text1Text + " Nums de 'c' y 'a' en oblicuo y en recto han dese todos enteros"
For kk% = 0 To 1 'semisecuencia(0, kk%) / 2
desigual = 0
For ii% = 1 To semisecuencia(0, kk%) / 2
If semisecuencia(ii%, kk%) <> semisecuencia(semisecuencia(0, kk%) + 1 - ii%, kk%) Then
desigual = 1
text1Text = text1Text + " Ss " + Str(kk%) + " no es capicúa."
End If
Next
Next
'X doble capicua
'busco solo en la cuarta parte
desigual = 0
kk% = 1
For ii% = 2 To semisecuencia(0, kk%) / 4
If semisecuencia(ii%, kk%) <> semisecuencia((semisecuencia(0, kk%) + 1) / 2 + 1 - ii%, kk%) Then
desigual = 1
text1Text = text1Text + " Semisecuencia " + Str(kk%) + " no es doble capicúa."
End If
Next
Case 10:
text1Text = text1Text + " No ACTUALIZADO"
If g(1) Mod 2 <> 0 Then text1Text = text1Text + " Num de 'c' en oblicuo ha de ser par"
If b(1) Mod 2 <> 0 Then text1Text = text1Text + " Num de 'a' en oblicuo ha de ser par"
If b(1) <> 2 * g(0) Then text1Text = text1Text + " Num de 'a' en oblicuo ha de ser doble que Num de 'c' en recto"
If g(1) <> 2 * b(0) Then text1Text = text1Text + " Num de 'c' en oblicuo ha de ser doble que Num de 'a' en recto"
bg = b(0) + b(1) + g(0) + g(1):
If Int(bg) <> bg Then text1Text = text1Text + " Nums de 'c' y 'a' en oblicuo y en recto han dese todos enteros"
desigual = 0
For ii% = 1 To semisecuencia(0, 0) / 2
If semisecuencia(ii%, 1) <> semisecuencia(semisecuencia(0, 1) + 1 - ii%, 1) Then desigual = 1
Next
If desigual = 1 Then text1Text = text1Text + " Ss oblicua no es capicúa."
Y
Case 8
1. Coeficientes de las combinaciones lineales de a y c en oblicuo X y recto H cumplen:
X[ ba+2gc ] ' = H[ ga+bc ]. (1)
2. X es capicúa:
X[ i ] = X[ loX - i ]. (2)
siendo loX la longitud de la semisecuencia oblicua X.
Insertamos estas condiciones en nuestro programa PUERTRA, lo que nos permite obtener y dibujar fácilmente estas redes.
Con los resultados elaboramos un catálogo de redes de 8, virtualmente infinito, ya que ofrecemos los primeros o más sencillos casos y una regla para ampliaros indefinidamente. Se justifica todo esto con más rigor en Redes periódicas de 8
y se vr el resultado en Catálogo de redes 8.
Vuelta al Principio Última
actualización:
Thursday, 21 de February de 2013 Visitantes: