Advertisement
Guest User

Untitled

a guest
Aug 10th, 2012
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.72 KB | None | 0 0
  1.  
  2. with numeric unput
  3.  
  4. Clear[x1]; Clear[x2]; Clear[x3]; Clear[x4]; Clear[x5]; Clear[x6];
  5. Clear[x7]; Clear[x8]; Clear[x9]; Clear[x10]
  6. Clear[y1]; Clear[y2]; Clear[y3]; Clear[y4]; Clear[y5]; Clear[y6];
  7. Clear[y7]; Clear[y8]; Clear[y9]; Clear[y10];
  8. u1 = 60.5 ; u2 = 71; u3 = 172; u4 = 178; u5 = 21.5; u6 = 35.9; u7 =
  9. 130; u8 = 139; u9 = 148; u10 = 157;
  10. v1 = 102; v2 = 62.9; v3 = 80.4; v4 = 37.1; v5 = 250; v6 = 197; v7 =
  11. 186; v8 = 133; v9 = 243; v10 = 183;
  12. NSolve[u1 == (m13 + m11 x1 + m12 y1)/(1 + m31 x1 + m32 y1) &&
  13. v1 == (m23 + m21 x1 + m22 y1)/(1 + m31 x1 + m32 y1) &&
  14. u2 == (m13 + m11 x2 + m12 y2)/(1 + m31 x2 + m32 y2) &&
  15. v2 == (m23 + m21 x2 + m22 y2)/(1 + m31 x2 + m32 y2) &&
  16. u3 == (m13 + m11 x3 + m12 y3)/(1 + m31 x3 + m32 y3) &&
  17. v3 == (m23 + m21 x3 + m22 y3)/(1 + m31 x3 + m32 y3) &&
  18. u4 == (m13 + m11 x4 + m12 y4)/(1 + m31 x4 + m32 y4) &&
  19. v4 == (m23 + m21 x4 + m22 y4)/(1 + m31 x4 + m32 y4) &&
  20. u5 == (m13 + m11 x5 + m12 y5)/(1 + m31 x5 + m32 y5) &&
  21. v5 == (m23 + m21 x5 + m22 y5)/(1 + m31 x5 + m32 y5) &&
  22. u6 == (m13 + m11 x6 + m12 y6)/(1 + m31 x6 + m32 y6) &&
  23. v6 == (m23 + m21 x6 + m22 y6)/(1 + m31 x6 + m32 y6) &&
  24. u7 == (m13 + m11 x7 + m12 y7)/(1 + m31 x7 + m32 y7) &&
  25. v7 == (m23 + m21 x7 + m22 y7)/(1 + m31 x7 + m32 y7) &&
  26. u8 == (m13 + m11 x8 + m12 y8)/(1 + m31 x8 + m32 y8) &&
  27. v8 == (m23 + m21 x8 + m22 y8)/(1 + m31 x8 + m32 y8) &&
  28. u9 == (m13 + m11 x9 + m12 y9)/(1 + m31 x9 + m32 y9) &&
  29. v9 == (m23 + m21 x9 + m22 y9)/(1 + m31 x9 + m32 y9) &&
  30. u10 == (m13 + m11 x10 + m12 y10)/(1 + m31 x10 + m32 y10) &&
  31. v10 == (m23 + m21 x10 + m22 y10)/(1 + m31 x10 + m32 y10) &&
  32. dx == x2 - x1 && dx == x4 - x3 && dx == x6 - x5 && dx == x8 - x7 &&
  33. dx == x10 - x9 && dy == y2 - y1 && dy == y4 - y3 && dy == y6 - y5 &&
  34. dy == y8 - y7 && dy == y10 - y9
  35. , {dx, dy, m11, m12, m13, m21, m22, m23, m31, m32,
  36. x1, x2, x3, x4, x5, x6, x7, x8, x9, x10,
  37. y1, y2, y3, y4, y5, y6, y7, y8, y9, y10}]
  38.  
  39. without division
  40. Clear[x1]; Clear[x2]; Clear[x3]; Clear[x4]; Clear[x5]; Clear[x6];
  41. Clear[x7]; Clear[x8]; Clear[x9]; Clear[x10]
  42. Clear[y1]; Clear[y2]; Clear[y3]; Clear[y4]; Clear[y5]; Clear[y6];
  43. Clear[y7]; Clear[y8]; Clear[y9]; Clear[y10];
  44. u1 = 60.5 ; u2 = 71; u3 = 172; u4 = 178; u5 = 21.5; u6 = 35.9; u7 =
  45. 130; u8 = 139; u9 = 148; u10 = 157;
  46. v1 = 102; v2 = 62.9; v3 = 80.4; v4 = 37.1; v5 = 250; v6 = 197; v7 =
  47. 186; v8 = 133; v9 = 243; v10 = 183;
  48. NSolve[u1 (1 + m31 x1 + m32 y1) == (m13 + m11 x1 + m12 y1) &&
  49. v1 (1 + m31 x1 + m32 y1) == (m23 + m21 x1 + m22 y1) &&
  50. u2 (1 + m31 x2 + m32 y2) == (m13 + m11 x2 + m12 y2) &&
  51. v2 (1 + m31 x2 + m32 y2) == (m23 + m21 x2 + m22 y2) &&
  52. u3 (1 + m31 x3 + m32 y3) == (m13 + m11 x3 + m12 y3) &&
  53. v3 (1 + m31 x3 + m32 y3) == (m23 + m21 x3 + m22 y3) &&
  54. u4 (1 + m31 x4 + m32 y4) == (m13 + m11 x4 + m12 y4) &&
  55. v4 (1 + m31 x4 + m32 y4) == (m23 + m21 x4 + m22 y4) &&
  56. u5 (1 + m31 x5 + m32 y5) == (m13 + m11 x5 + m12 y5) &&
  57. v5 (1 + m31 x5 + m32 y5) == (m23 + m21 x5 + m22 y5) &&
  58. u6 (1 + m31 x6 + m32 y6) == (m13 + m11 x6 + m12 y6) &&
  59. v6 (1 + m31 x6 + m32 y6) == (m23 + m21 x6 + m22 y6) &&
  60. u7 (1 + m31 x7 + m32 y7) == (m13 + m11 x7 + m12 y7) &&
  61. v7 (1 + m31 x7 + m32 y7) == (m23 + m21 x7 + m22 y7) &&
  62. u8 (1 + m31 x8 + m32 y8) == (m13 + m11 x8 + m12 y8) &&
  63. v8 (1 + m31 x8 + m32 y8) == (m23 + m21 x8 + m22 y8) &&
  64. u9 (1 + m31 x9 + m32 y9) == (m13 + m11 x9 + m12 y9) &&
  65. v9 (1 + m31 x9 + m32 y9) == (m23 + m21 x9 + m22 y9) &&
  66. u10 (1 + m31 x10 + m32 y10) == (m13 + m11 x10 + m12 y10) &&
  67. v10 (1 + m31 x10 + m32 y10) == (m23 + m21 x10 + m22 y10) &&
  68. dx == x2 - x1 && dx == x4 - x3 && dx == x6 - x5 && dx == x8 - x7 &&
  69. dx == x10 - x9 && dy == y2 - y1 && dy == y4 - y3 && dy == y6 - y5 &&
  70. dy == y8 - y7 && dy == y10 - y9
  71. , {dx, dy, m11, m12, m13, m21, m22, m23, m31, m32,
  72. x1, x2, x3, x4, x5, x6, x7, x8, x9, x10,
  73. y1, y2, y3, y4, y5, y6, y7, y8, y9, y10}]
  74.  
  75.  
  76. affine m31=m32=0
  77. no solutions?
  78. Clear[x1]; Clear[x2]; Clear[x3]; Clear[x4]; Clear[x5]; Clear[x6];
  79. Clear[x7]; Clear[x8]; Clear[x9]; Clear[x10]
  80. Clear[y1]; Clear[y2]; Clear[y3]; Clear[y4]; Clear[y5]; Clear[y6];
  81. Clear[y7]; Clear[y8]; Clear[y9]; Clear[y10];
  82. u1 = 60.5 ; u2 = 71; u3 = 172; u4 = 178; u5 = 21.5; u6 = 35.9; u7 =
  83. 130; u8 = 139; u9 = 148; u10 = 157;
  84. v1 = 102; v2 = 62.9; v3 = 80.4; v4 = 37.1; v5 = 250; v6 = 197; v7 =
  85. 186; v8 = 133; v9 = 243; v10 = 183;
  86. m32 = 0; m31 = 0;
  87. NSolve[u1 (1 + m31 x1 + m32 y1) == (m13 + m11 x1 + m12 y1) &&
  88. v1 (1 + m31 x1 + m32 y1) == (m23 + m21 x1 + m22 y1) &&
  89. u2 (1 + m31 x2 + m32 y2) == (m13 + m11 x2 + m12 y2) &&
  90. v2 (1 + m31 x2 + m32 y2) == (m23 + m21 x2 + m22 y2) &&
  91. u3 (1 + m31 x3 + m32 y3) == (m13 + m11 x3 + m12 y3) &&
  92. v3 (1 + m31 x3 + m32 y3) == (m23 + m21 x3 + m22 y3) &&
  93. u4 (1 + m31 x4 + m32 y4) == (m13 + m11 x4 + m12 y4) &&
  94. v4 (1 + m31 x4 + m32 y4) == (m23 + m21 x4 + m22 y4) &&
  95. u5 (1 + m31 x5 + m32 y5) == (m13 + m11 x5 + m12 y5) &&
  96. v5 (1 + m31 x5 + m32 y5) == (m23 + m21 x5 + m22 y5) &&
  97. u6 (1 + m31 x6 + m32 y6) == (m13 + m11 x6 + m12 y6) &&
  98. v6 (1 + m31 x6 + m32 y6) == (m23 + m21 x6 + m22 y6) &&
  99. u7 (1 + m31 x7 + m32 y7) == (m13 + m11 x7 + m12 y7) &&
  100. v7 (1 + m31 x7 + m32 y7) == (m23 + m21 x7 + m22 y7) &&
  101. u8 (1 + m31 x8 + m32 y8) == (m13 + m11 x8 + m12 y8) &&
  102. v8 (1 + m31 x8 + m32 y8) == (m23 + m21 x8 + m22 y8) &&
  103. u9 (1 + m31 x9 + m32 y9) == (m13 + m11 x9 + m12 y9) &&
  104. v9 (1 + m31 x9 + m32 y9) == (m23 + m21 x9 + m22 y9) &&
  105. u10 (1 + m31 x10 + m32 y10) == (m13 + m11 x10 + m12 y10) &&
  106. v10 (1 + m31 x10 + m32 y10) == (m23 + m21 x10 + m22 y10) &&
  107. dx == x2 - x1 && dx == x4 - x3 && dx == x6 - x5 && dx == x8 - x7 &&
  108. dx == x10 - x9 && dy == y2 - y1 && dy == y4 - y3 && dy == y6 - y5
  109. , {dx, dy, m11, m12, m13, m21, m22, m23,
  110. x1, x2, x3, x4, x5, x6, x7, x8, x9, x10,
  111. y1, y2, y3, y4, y5, y6, y7, y8, y9, y10}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement