FProcecad, Version=1.0.2344.40701, Culture=neutral, PublicKeyToken=nullMemopilot.pcDocumento PlantillaCapasListadoMemopilot.pcPlantillaMemopilot.pcCapa[]  5{\rtf1\ansi\ansicpg1252\deff0\deflang8202{\fonttbl{\f0\fnil\fcharset0 Arial;}{\f1\fnil\fcharset0 Courier New;}} {\colortbl ;\red0\green0\blue139;\red0\green0\blue0;\red255\green0\blue0;} \viewkind4\uc1\pard\qr\cf1\fs16 -DIBUJO DEL MARCO VISIBLE\par \pard\cf2\b PROCEDIMIENTO:\par \cf1\b0 -ubicaci\'f3n de puntos\cf3\fs20\par \cf2\f1 sim = PuntoXY( -5/-122)\cf1\f0\fs16\par \cf2\f1\fs20 sdm = PuntoXY( 191/-122)\cf1\f0\fs16\par \cf2\f1\fs20 idm = PuntoXY( 191/122)\cf1\f0\fs16\par \cf2\f1\fs20 iim = PuntoXY( -5/122)\par \cf1\f0\fs16 -dibujo de segmentos\cf2\f1\fs20\par msup = Segmento( sim / sdm /L2)\par mder = Segmento( sdm / idm /L2)\par minf = Segmento( idm / iim /L2)\par mizq = Segmento( iim / sim /L2)\par \cf1\f0\fs16\par \pard\qr -DIBUJO DE LA L\'cdNEA DE TIERRA Y ORIGEN\par \pard -l\'ednea de tierra\cf2\b\par \b0\f1\fs20 LTizq = PuntoXY( 0/0)\cf1\f0\fs16\par \cf2\f1\fs20 LTder = PuntoXY( 186/0)\cf1\f0\fs16\par \cf2\f1\fs20 LT = Segmento( LTder / LTizq /L2)\par \cf1\f0\fs16 -origen\cf2\f1\fs20\par Osup = PuntoXY( 0/-5)\cf1\f0\fs16\par \cf2\f1\fs20 Oinf = PuntoXY( 0/5)\par LTo = Segmento( Osup / Oinf /L2)\par \par \pard\qr\cf1\f0\fs16 -DIBUJO DEL \'c1REA \'daTIL DE TRABAJO\cf2\f1\fs20\par \pard\cf1\f0\fs16 -ubicaci\'f3n de puntos\par \cf2\f1\fs20 si = PuntoXY( 0/-117)\cf1\f0\fs16\par \cf2\f1\fs20 sd = PuntoXY( 186/-117)\cf1\f0\fs16\par \cf2\f1\fs20 id = PuntoXY( 186/117)\cf1\f0\fs16\par \cf2\f1\fs20 ii = PuntoXY( 0/117)\par \cf1\f0\fs16 -dibujo de segmentos\par \cf2\f1\fs20 superior = Segmento( si / sd )\par derecho = Segmento( sd / id )\par inferior = Segmento( id / ii )\par izquierdo = Segmento( ii / si )\par \cf1\f0\fs16 -----------------------------------------------------------------------------------------FIN DEL FORMATO\cf2\f1\fs20\par \pard\qr\cf1\f0\fs16 -esfera_seccion-060604\par -Definir la secci\'f3n que produce el plano (alfa) en una esfera de 90 mms. de di\'e1metro que tiene su centro en el punto O(110;70;50)\par -alfa[1(39;00;00); 2(95;00;48); 3(95;70;00)]\par \par -REPRESENTACI\'d3N DE LOS PUNTOS\par \pard\cf2\b L1T:\cf1\b0\par \cf2\f1\fs20 O=PuntoXYZ(110/70/50)\par 1=PuntoXYZ(39/0/0)\par 2=PuntoXYZ(95/0/48)\par 3=PuntoXYZ(95/70/0)\par Oh/Ov=DobleProyeccionPunto(O)\par 1h/1v=DobleProyeccionPunto(1)\par 2h/2v=DobleProyeccionPunto(2)\par 3h/3v=DobleProyeccionPunto(3)\par Op=Segmento(Oh/Ov/L1)\par 1p=Segmento(1h/1v/L1)\par 2p=Segmento(2h/2v/L1)\par 3p=Segmento(3h/2v/L1)\par \pard\qr\cf1\f0\fs16 -proyecciones de la esfera\par \pard\cf2\b L1:\cf1\b0\par \cf2\f1\fs20 radio=Magnitud(45)\cf1\f0\fs16\par \pard\qr\cf2\f1\fs20 esferav=CircCentroRadio(Ov/radio)\par esferah=CircCentroRadio(Oh/radio)\par \cf1\f0\fs16\par -trazas del plano (alfa) seccionante\cf2\f1\fs20\par \pard trazav=SemiRecta2Pts(1v/2v/PROCEDIMIENTO)\par trazah=SemiRecta2Pts(1v/3h/PROCEDIMIENTO)\par I=InterseccionRectas(trazav/superior/PROCEDIMIENTO)\par I0=InterseccionRectas(trazah/inferior/PROCEDIMIENTO)\par \pard\qr alfav=Segmento(1v/I)\par alfah=Segmento(1v/I0)\par alfav=TextoEnPunto(I/L1T)\par alfah=TextoEnPunto(I0/L1T)\par \cf1\f0\fs16\par -eje (e) de la esfera, perpendicular al plano (alfa)\par \pard\cf2\b PROCEDIMIENTO:\b0\f1\fs20\par ejevertical=Perpendicular(Ov/alfav)\par ejehorizontal=Perpendicular(Oh/alfah)\par I1=InterseccionRectas(ejevertical/superior)\par I2=InterseccionRectas(ejevertical/LT)\par I3=InterseccionRectas(ejehorizontal/derecho)\par I4=InterseccionRectas(ejehorizontal/inferior)\par \pard\qr ev=Segmento(I1/I2/L1)\par eh=Segmento(I4/I3/L1)\par ev=TextoEnPunto(I1/L1T)\par eh=TextoEnPunto(I4/L1T)\par \cf1\f0\fs16\par -intersecci\'f3n (O1) del eje (e) con el plano (alfa) [centro de la secci\'f3n]\par \pard\cf2\f1\fs20 S/SS=InterseccionRectaConica(ev/esferav)\par \pard\qr Xv=TextoEnPunto(S/L1T)\par tv=TextoEnPunto(I1/L1T)\par \pard par=Paralela(S/LT)\par I5=InterseccionRectas(par/alfav)\par AB=Segmento(I5/S/L1)\par perp=Perpendicular(I5/LT)\par I6=InterseccionRectas(perp/LT)\par AB0=Segmento(I5/I6/L1)\par par0=Paralela(I6/alfah)\par perp0=Perpendicular(S/LT)\par \pard\qr Xh= InterseccionRectas(perp0/par0/L1T)\par \pard AB1=Segmento(I6/Xh/L1)\par AB2=Segmento(S/Xh/L1)\par I7=InterseccionRectas(ev/alfav)\par perp1=Perpendicular(I7/LT)\par I8=InterseccionRectas(perp1/LT)\par AB3=Segmento(I7/I8/L1)\par \pard\qr th=Segmento(I8/Xh/L1T)\par O1h=InterseccionRectas(th/eh/L1T)\par \pard perp2=Perpendicular(O1h/LT)\par \pard\qr O1v=InterseccionRectas(perp2/ejevertical/L1T)\par \pard AB4=Segmento(O1v/O1h/L1)\par \pard\qr\cf1\f0\fs16\par -determinaci\'f3n de los ejes mayores de las secciones\par \pard\cf2\f1\fs20 fv=Paralela(O1v/alfav)\par fh=Paralela(O1h/LT)\par S0/SS0=InterseccionRectaConica(fh/esferah/L1)\par par1=Paralela(Ov/LT)\par AB5=Segmento(O1h/SS0/L1)\par perp3=Perpendicular(SS0/LT)\par I9=InterseccionRectas(perp3/par1/L1)\par AB6=Segmento(SS0/I9/L1)\par AB7=Segmento(Ov/I9/L1)\par Cir = CircCentroPto( Ov / I9 )\par S1/SS1=InterseccionRectaConica(fv/Cir/L1)\par \pard\qr AB8=Segmento(SS1/S1/L2)\par \pard perp4 = Perpendicular( SS1 / LT )\par I10 = InterseccionRectas( perp4 / fh/L1)\par AB9 = Segmento( SS1 / I10/L1)\par perp5 = Perpendicular( S1 / LT )\par I11 = InterseccionRectas( perp5/fh/L1)\par \pard\qr AB10=Segmento(I10/I11/L2)\par \pard par2=Paralela(O1h/alfah)\par par3=Paralela(O1v/LT)\par Cir0=CircCentro2Pts(O1h/O1v/S1)\par S2/SS2=InterseccionRectaConica(par2/Cir0/L1)\par \pard\qr AB11=Segmento( SS2/S2/L2)\par \pard perp6 = Perpendicular( SS2 / LT )\par I12 = InterseccionRectas( perp6 / par3/L1)\par perp7 = Perpendicular( S2 / LT )\par I13 = InterseccionRectas( perp7 / par3/L1)\par \pard\qr AB12=Segmento(I12/I13/L2)\par \cf1\f0\fs16\par -proyeciones de la secci\'f3n\par \cf2\f1\fs20 elipsev=GP_ElipseEjeMayorPunto(O1v/ S1/I13/L3)\par elipseh= GP_ElipseEjeMayorPunto(O1h/S2/I11/L3)\par \cf1\f0\fs16\par -visibilidad de casquete inferior\par \pard\cf2\f1\fs20 par4 = Paralela( Oh / LT )\par I14 = InterseccionRectas( par4 / alfah/L1)\par perp8 = Perpendicular( I14 / LT )\par I15 = InterseccionRectas( perp8 / LT/L1)\par par5 = Paralela( I15 / alfav )\par v1/v2=InterseccionRectaConica(par5/esferav/L1)\par \pard\qr Cir1=ArcoCirc2pts(esferav/v2/v1/L3)\par \pard I17 = InterseccionRectas( par1 / alfav/L1)\par perp9 = Perpendicular( I17 / LT )\par I16 = InterseccionRectas( perp9 / LT/L1)\par par6 = Paralela( I16 / alfah )\par S3/SS3=InterseccionRectaConica(par6/esferah/L1)\par \pard\qr Cir2=ArcoCirc2pts(esferah/S3/SS3/L3)\par } Memopilot.pcPlantilla UnidadesOrigenOrigenXOrigenYAnguloXAnguloYAnguloZ DeformacionX DeformacionY DeformacionZ EscalaDibujoEscalaRealidad DibujarEscalaUnidadesDibujoMemopilot.pcMotor+Unidades Memopilot.pcMotor+UnidadesMemopilot.pcMotor+Unidadesvalue__ ACB4C???tCwCMemopilot.pcCapa             TSystem.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3aMemopilot.pcCapaLapizVisibleBorrableLeyendaNombreFuentePublicaMemopilot.PcPenSystem.Drawing.Font  PLANTILLA   DATOS   !PROCEDIMIENTOS "  #$ RESULTADOS %  &' REFERENCIA (  )*_TEMP + ,-_OUT . /0_IN 1 23L2 4 56OCULTA 7 89 PROCEDIMIENTO : ;<95 = >?10 @ AB80 C DEL1T F GHL1 I JKL3 LMemopilot.PcPenColor DashStyleWidthSystem.Drawing.Color"System.Drawing.Drawing2D.DashStyle System.Drawing.Colorvalue knownColorstatename # "System.Drawing.Drawing2D.DashStylevalue__System.Drawing.FontNameSizeStyleUnit System.Drawing.FontStyleSystem.Drawing.GraphicsUnitOArialASystem.Drawing.FontStylevalue__System.Drawing.GraphicsUnitvalue__O ?TArialA 4 ?"YArialA## @%^ArialA&_ ?(cArialA)! ?+hArialA, @.mArialA/% @1rArialA2# @4wArialA5# ?7|ArialA8 ?:ArialA~};|' {?=ArialAyx>w' v?@ArialAtsAr' q?CArialAonDm# l?FArialAjiGh# g?IArialAedJc# b@@LArialA`_