File:Hepteract ortho petrie.svg
De Wikimedia Commons, el repositorio multimedia libre
Ir a la navegación
Ir a la búsqueda
![File:Hepteract ortho petrie.svg](https://upload.wikimedia.org/wikipedia/commons/thumb/3/3d/Hepteract_ortho_petrie.svg/600px-Hepteract_ortho_petrie.svg.png?20080801131355)
Tamaño de esta previsualización PNG del archivo SVG: 600 × 600 píxeles. Otras resoluciones: 240 × 240 píxeles | 480 × 480 píxeles | 768 × 768 píxeles | 1024 × 1024 píxeles | 2048 × 2048 píxeles.
Archivo original (archivo SVG, nominalmente 800 × 800 píxeles, tamaño de archivo: 29 kB)
Información del archivo
Datos estructurados
Leyendas
Leyendas
Añade una explicación corta acerca de lo que representa este archivo
Resumen
[editar]DescripciónHepteract ortho petrie.svg |
English: Orthographic projection of hepteract making the petrie polygon |
Fecha | |
Fuente | Trabajo propio |
Autor | Claudio Rocchini |
Source code
[editar]void main()
{
const int ND = 7; const int NV = (1<<ND); const int NE = 448;
double v[NV][ND]; int e[NE][2];
double PX[ND] = {
0.09903113209758096500,
0.27747906604368522000,
0.40096886790241926000,
0.44504186791262867000,
0.40096886790241915000,
0.27747906604368555000,
0.09903113209758096500};
double PY[ND] = {
-0.43388373911755806000,
-0.34794774335047168000,
-0.19309642971379370000,
-0.00000000000000011102,
0.19309642971379370000,
0.34794774335047168000,
0.43388373911755823000};
double px[NV]; double py[NV];
int i,j,k,l;
for(i=0;i<NV;++i) for(j=0;j<ND;++j) v[i][j] = (i>>j)&1 ? -0.5 : 0.5;
l = 0;
for(i=0;i<NV-1;++i) for(j=i+1;j<NV;++j) {
double d = 0;
for(k=0;k<ND;++k) d += (v[i][k]-v[j][k])*(v[i][k]-v[j][k]);
d = sqrt(d);
if(d==1) { e[l][0]=i; e[l][1]=j; ++l;}
}
assert(l==NE);
for(i=0;i<NV;++i){
px[i] = 0; for(l=0;l<ND;++l) px[i] += v[i][l]*PX[l];
py[i] = 0; for(l=0;l<ND;++l) py[i] += v[i][l]*PY[l];
}
const double SX = 800; const double SY = 800;
const double B = 32; const double R = 5;
const double sca = std::min((SX-2*B)/2,(SY-2*B)/2);
for(i=0;i<NV;++i) { px[i] = B+(px[i]+1)*sca; py[i] = B+(py[i]+1)*sca; }
FILE * fp = fopen("c:\\temp\\HepteractPetrie.svg","w");
fprintf(fp,
"<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n"
"<svg\n"
"xmlns:svg=\"http://www.w3.org/2000/svg\"\n"
"xmlns=\"http://www.w3.org/2000/svg\"\n"
"version=\"1.0\"\n"
"width=\"%g\"\n" "height=\"%g\"\n"
"id=\"HepteractPetrie\">\n"
,SX,SY
);
fprintf(fp,"<g style=\"stroke:#000000;stroke-width:2;stroke-opacity:0.75;\">\n");
for(i=0;i<NE;++i)
fprintf(fp,
"<line x1=\"%5.1lf\" y1=\"%5.1lf\" x2=\"%5.1lf\" y2=\"%5.1lf\"/>\n"
,px[e[i][0]],py[e[i][0]], px[e[i][1]],py[e[i][1]]
);
fprintf(fp,"</g>\n");
fprintf(fp,"<g style=\"stroke:#000000;stroke-width:2;stroke-opacity:0.75;fill:#0080FF\">\n");
for(i=0;i<NV;++i)
fprintf(fp,"<circle cx=\"%5.1lf\" cy=\"%5.1lf\" r=\"%5.1lf\"/>\n",px[i],py[i],R);
fprintf(fp,"</g>\n");
fprintf(fp,"</svg>\n");
fclose(fp);
Licencia
[editar]Yo, titular de los derechos de autor de esta obra, la publico en los términos de las siguientes licencias:
![]() |
Se autoriza la copia, distribución y modificación de este documento bajo los términos de la licencia de documentación libre GNU, versión 1.2 o cualquier otra que posteriormente publique la Fundación para el Software Libre; sin secciones invariables, textos de portada, ni textos de contraportada. Se incluye una copia de la dicha licencia en la sección titulada Licencia de Documentación Libre GNU.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
![w:es:Creative Commons](https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/CC_some_rights_reserved.svg/90px-CC_some_rights_reserved.svg.png)
![atribución](https://upload.wikimedia.org/wikipedia/commons/thumb/1/11/Cc-by_new_white.svg/24px-Cc-by_new_white.svg.png)
Este archivo se encuentra bajo la licencia Creative Commons Atribución 3.0 Unported.
- Eres libre:
- de compartir – de copiar, distribuir y transmitir el trabajo
- de remezclar – de adaptar el trabajo
- Bajo las siguientes condiciones:
- atribución – Debes otorgar el crédito correspondiente, proporcionar un enlace a la licencia e indicar si realizaste algún cambio. Puedes hacerlo de cualquier manera razonable pero no de manera que sugiera que el licenciante te respalda a ti o al uso que hagas del trabajo.
Puedes usar la licencia que prefieras.
Historial del archivo
Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.
Fecha y hora | Miniatura | Dimensiones | Usuario | Comentario | |
---|---|---|---|---|---|
actual | 13:13 1 ago 2008 | ![]() | 800 × 800 (29 kB) | Rocchini (discusión | contribs.) | {{Information |Description={{en|1=Orthographic projection of hepteract making the petrie polygon}} |Source=Opera creata dall'uploader (own work by uploader) |Author=Claudio Rocchini |Date=2008-08-01 |Permission= |other_versions= }} {{Im |
No puedes sobrescribir este archivo.
Usos del archivo
La siguiente página usa este archivo:
Uso global del archivo
Las wikis siguientes utilizan este archivo:
- Uso en en.wikipedia.org
- Uso en es.wikipedia.org
- Uso en fr.wikipedia.org
- Uso en lbe.wikipedia.org
- Uso en ro.wikipedia.org
- Uso en ru.wikipedia.org
- Uso en vi.wikipedia.org