FProcecad, Version=1.0.2299.13477, Culture=neutral, PublicKeyToken=nullMemopilot.pcDocumento PlantillaCapasListadoMemopilot.pcPlantillaMemopilot.pcCapa[]  @{\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 -circunferencia-060520\par -Definir la proyecci\'f3n di\'e9drica de la circunferencia que pasa por los puntos (A,B y C)\par -A(110;10;28)\par -B(80;08;65)\par -C(50;50;40)\par \par -DESARROLLO:\cf2\f1\fs20\par \cf1\f0\fs16 -REPRESENTACI\'d3N DI\'c9DRICA DE LOS DATOS\par \pard\cf2\b L1T:\cf1\b0\par \cf2\f1\fs20 A = PuntoXYZ( 110/10/28)\par B = PuntoXYZ( 80/8/65)\par C = PuntoXYZ( 50/50/40)\cf1\f0\fs16\par \cf2\f1\fs20 Ah / Av = DobleProyeccionPunto( A )\par Bh / Bv = DobleProyeccionPunto( B )\par Ch / Cv = DobleProyeccionPunto( C )\par \b\f0\fs16 L1:\cf1\b0\par \cf2\f1\fs20 pa = Segmento( Ah / Av )\par pb = Segmento( Bh / Bv )\par pc = Segmento( Ch / Cv )\par \cf1\f0\fs16\par \pard\qr -TRAZAS DEL PLANO\par \pard\cf2\b PROCEDIMIENTO:\par \cf1\b0 -trazas de la recta C_V\par \cf2\f1\fs20 Cv_Bv = Recta2Pts( Cv / Bv )\par Ch_Bh = Recta2Pts( Ch / Bh )\par Vv = InterseccionRectas( Cv_Bv / LT /L1T)\par Hh = InterseccionRectas( Ch_Bh / LT /L1T)\par pytV = Perpendicular( Vv / LT )\par pytH = Perpendicular( Hh / LT )\par \cf1\f0\fs16\par \cf2\f1\fs20 Vh = InterseccionRectas( pytV / Ch_Bh /L1T)\par Hv = InterseccionRectas( pytH / Cv_Bv /L1T)\par \cf1\f0\fs16 -traza vertical de la recta C_A\par \cf2\f1\fs20 Ch_Ah = Recta2Pts( Ch / Ah )\par Cv_Av = Recta2Pts( Cv / Av )\par V1h = InterseccionRectas( Ch_Ah / LT /L1T)\par pytV1 = Perpendicular( V1h / LT )\par V1v = InterseccionRectas( Cv_Av / pytV1 /L1T)\par \cf1\f0\fs16 -traza vertical del plano\par \cf2\f1\fs20 traza vertical = Recta2Pts( Hv / V1v )\par \cf1\f0\fs16 -traza horizontal del plano\cf2\f1\fs20\par orig_traza = InterseccionRectas( trazavertical / LT )\par traza horizontal = Recta2Pts( orig_traza / Vh )\par I0 = InterseccionRectas( superior / trazavertical )\par I1 = InterseccionRectas( inferior / traza horizontal )\par alfa_v = Segmento( I0 / orig_traza /L2)\par alfa_h = Segmento( orig_traza / I1 /L2)\par \par \pard\qr\cf1\f0\fs16 -REBATIMIENTO DE TRAZA\cf2\f1\fs20\par \pard Cir = CircCentroPto( orig_traza / V1v )\par perp = Perpendicular( V1h / trazahorizontal )\par S / SS = InterseccionRectaConica( perp / Cir )\par AB = SemiRecta2Pts( orig_traza / S )\par I = InterseccionRectas( AB / inferior )\par alfa_r = Segmento( orig_traza / I /L2)\par \par \pard\qr\cf1\f0\fs16 -REBATIMIENTO DE (A,B y C)\cf2\f1\fs20\par \pard perp0 = Perpendicular( Hh / trazahorizontal )\par I2 = InterseccionRectas( perp0 / alfa_r )\par CB_r = Segmento( Vh / I2 )\par perp1 = Perpendicular( Ch / alfa_h )\par perp2 = Perpendicular( Bh / alfa_h )\par Cr = InterseccionRectas( CB_r / perp1 /L1T)\par Br = InterseccionRectas( CB_r / perp2 /L1T)\par \par Bh-Ah = SemiRecta2Pts( Bh / Ah )\par I3 = InterseccionRectas( Bh-Ah / trazahorizontal )\par AB0 = SemiRecta2Pts( I3 / Br )\par perp3 = Perpendicular( Ah / trazahorizontal )\par Ar = InterseccionRectas( AB0 / perp3 /L1T)\par \cf1\f0\fs16\par \pard\qr -CIRCUNFERENCIA REBATIDA\par \pard\cf2\f1\fs20 Cr-Br = Segmento( Cr / Br /L1)\par Ar-Br = Segmento( Ar / Br /L1)\par M = PuntoMedioDeSegmento( Cr-Br )\par M1 = PuntoMedioDeSegmento( Ar-Br )\par perp4 = Perpendicular( M / Cr-Br )\par perp5 = Perpendicular( M1 / Ar-Br )\par Or = InterseccionRectas( perp4 / perp5 /L1T)\par Cir0 = CircCentroPto( Or / Ar /L1)\par \cf1\f0\fs16\par \pard\qr -DETERMINACI\'d3N DEL RADIO\par \pard\cf2\f1\fs20 radio = Distancia2Pts( Or / Ar )\par \cf1\f0\fs16\par \pard\qr -EJE MAYOR DE LA ELIPSE HORIZONTAL\par \pard -proyecciones horizontales de (O) y eje mayor de la elipse horizontal\par \cf2\f1\fs20 hr = Paralela( Or / alfa_h )\par I4 = InterseccionRectas( hr / alfa_r /L1)\par perp6 = Perpendicular( I4 / alfa_h )\par I5 = InterseccionRectas( perp6 / LT /L1)\par par = Paralela( I5 / alfa_h )\par perp7 = Perpendicular( Or / alfa_h )\par Oh = InterseccionRectas( perp7 / par /L1T)\par emh1r / emh2r = InterseccionRectaConica( hr / Cir0 /L1)\par AB1 = Segmento( emh1r / emh2r /L1)\par perp8 = Perpendicular( emh1r / alfa_h )\par perp9 = Perpendicular( emh2r / alfa_h )\par emh1h = InterseccionRectas( par / perp8 /L1)\par emh2h = InterseccionRectas( par / perp9 /L1)\par 2a_h = Segmento( emh1h / emh2h /L1)\par \cf1\f0\fs16\par -proyecci\'f3n vertical de (O) y del eje mayor horizontal\par \cf2\f1\fs20 perp10 = Perpendicular( I5 / LT )\par I6 = InterseccionRectas( perp10 / alfa_v )\par hhvv = Paralela( I6 / LT )\par perp11 = Perpendicular( Oh / LT )\par Ov = InterseccionRectas( hhvv / perp11 /L1T)\par perp12 = Perpendicular( emh1h / LT )\par I7 = InterseccionRectas( perp12 / hhvv /L1)\par perp13 = Perpendicular( emh2h / hhvv )\par I8 = InterseccionRectas( perp13 / hhvv /L1)\par AB2 = Segmento( I7 / I8 /L1)\par AB7 = Segmento( emh1h / I7 /L1)\par AB5 = Segmento( Oh / Ov /L1)\par \cf1\f0\fs16\par \pard\qr -EJE MAYOR DE LA ELIPSE VERTICAL\par \pard -proyecci\'f3n vertical del eje mayor de la elipse vertical\par \cf2\f1\fs20 par0 = Paralela( Ov / alfa_v )\par Cir1 = CircCentroRadio( Ov / radio )\par x1 / x2 = InterseccionRectaConica( par0 / Cir1 )\par AB4 = Segmento( x2 / x1 /L1)\par \cf1\f0\fs16 -proyecci\'f3n horizontal del eje mayor vertical de la elipse\par \cf2\f1\fs20 par1 = Paralela( Oh / LT )\par perp14 = Perpendicular( x2 / LT )\par perp15 = Perpendicular( x1 / LT )\par I9 = InterseccionRectas( perp14 / par1 )\par I10 = InterseccionRectas( perp15 / par1 )\par AB3 = Segmento( I9 / I10 /L1)\par AB6 = Segmento( I10 / x1 /L1)\par \cf1\f0\fs16\par \pard\qr -PROYECCI\'d3N VERTICAL DE LA CIRCUNFERENCIA\par \pard\cf2\b L2:\cf1\b0\par \cf2\f1\fs20 Elip = GP_ElipseEjeMayorPunto( Ov / x2 / Cv )\par \par \pard\qr\cf1\f0\fs16 -PROYECCI\'d3N HORIZONTAL DE LA CIRCUNFERENCIA\par \pard\cf2\f1\fs20 Elip0 = GP_ElipseEjeMayorPunto( Oh / emh1h / I9 )\par \cf1\f0\fs16\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 JKL2T 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`_