(Translated by https://www.hiragana.jp/)
Archivo:Hexeract ortho petrie.svg - Wikipedia, la enciclopedia libre Ir al contenido

Archivo:Hexeract ortho petrie.svg

Contenido de la página no disponible en otros idiomas.
De Wikipedia, la enciclopedia libre

Ver la imagen en su resolución original ((Imagen SVG, nominalmente 800 × 800 pixels, tamaño de archivo: 13 kB))

Resumen

Descripción
English: Orthographic projection of hexeract making the petrie polygon
Fecha
Fuente Trabajo propio
Autor Claudio Rocchini

Source code

void main()
{
	const int ND = 6; const int NV = (1<<ND); const int NE = 192;
	double v[NV][ND]; int e[NE][2];
	double PX[ND] = {
	 0.13397459621556118,
	 0.36602540378443882,
	 0.50000000000000000,
	 0.49999999999999978,
	 0.36602540378443871,
	 0.13397459621556151};
	double PY[ND] = {
	-0.50000000000000000,
	-0.36602540378443865,
	-0.13397459621556140,
	 0.13397459621556129,
	 0.36602540378443837,
	 0.50000000000000033};

	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  = 8;
	
	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\\HexeractPetrie.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=\"HexeractPetrie\">\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

Yo, titular de los derechos de autor de esta obra, la publico en los términos de las siguientes licencias:
GNU head 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.
w:es:Creative Commons
atribución
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.

Leyendas

Añade una explicación corta acerca de lo que representa este archivo

Elementos representados en este archivo

representa a

Historial del archivo

Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.

Fecha y horaMiniaturaDimensionesUsuarioComentario
actual12:56 1 ago 2008Miniatura de la versión del 12:56 1 ago 2008800 × 800 (13 kB)Rocchini{{Information |Description={{en|1=Orthographic projection of hexeract making the petrie polygon}} |Source=Opera creata dall'uploader (own work by uploader) |Author=Claudio Rocchini |Date=2008-08-01 |Permission= |other_versions= }} {{Ima

La siguiente página usa este archivo:

Uso global del archivo

Las wikis siguientes utilizan este archivo: