、、、不同角度的理解、诠释、运用和发掘规律、、、
新闻或者幻觉:马王堆墓穴中发掘出了丝绸做的鞋,不算是现代意义上真正的鞋,但是完成了一个完整的公式。
有一部分需要是共同的,在离开了沙滩和草地的时候。
找一个成熟的不一样的数学思维合作者,(可以一起申请参加sg2014活动,也可以不)
我想听到人们写给自己的语言,我不害怕听不懂;
也不在意你能看到我的美丽的脚和我们美丽的城市。
你存在?存在0.1%?如果≥1/4
With the two version of the PDF in the file upload, doubt, 10th should be able to see the many PDF.
There are some scruples, confusion ——"The additional property of professional activities",——Subject classification, commercial, regional、、、
There is a place Africa, people don't wear shoes, A few people with grass or leather on the foot (and buildings——In order to spatial density) winding,
the manufacture of shoes, two sales do two judgment:
A There is no life belongs to shoes
B this is the market.
I spent a lot of energy explained to students, which is not to do programming people do、、、 the different angle understanding, interpretation, application and explore the law、、、
The news or illusion:Mawangdui tomb unearthed silk shoes , is not the modern sense of true shoes, but the completion of a complete formula.
There is a need is common, when they leave the beach and grass.
Find a mathematically mature different thinking partners,(Can apply to participate in the activities of the sg2014, also can not)
I want to hear people wrote their own language, I am not afraid of don't understand;
Don't care what you can see my beautiful feet and our beautiful city.
Do you have? There are 0.1%? If ≥1 / 4 You know what I did wheni found out about you?
msxf6688@163.com
…
nkels bei Zerlegung in 2 Dreiecke'Zeichnen der Zerlegung nach dem kleineren Winkel 'Eingabe: 4 Punkte im Raum 'Peter Mayrhofer 05-2007'==================================================Sub Main() Dim arrPts 'Array der 4 Eingabepunkte Dim arrN1, arrN2 'Normalvektoren einer Zerlegung in 2 Dreiecke Dim winkel1, winkel2, wmin, wmax 'Winkel bei gemeinsamer Kante Dim pi, grad pi = 4*Atn(1): grad = 180/pi 'Eingabe arrPts = GetPoints(,, "4 Punkte eingeben..." ,, 4)'Punkte 0,1,2,3 'Berechnung Winkel1 bei Zerlegung mit gemeinsamer Kante [1,3] arrN1 = VectorUnitize(VectorCrossProduct(VectorCreate(arrPts(0), arrPts(1)),VectorCreate(arrPts(0), arrPts(3)))) arrN2 = VectorUnitize(VectorCrossProduct(VectorCreate(arrPts(2), arrPts(3)),VectorCreate(arrPts(2), arrPts(1)))) If VectorCompare (arrN1, arrN2) Then winkel1 = 180 'Das Viereck ist planar! MessageBox "*Viereck ist planar*" Exit Sub Else winkel1 = Arccos(VectorDotProduct(arrN1, arrN2))*grad End If 'Berechnung Winkel2 bei Zerlegung mit gemeinsamer Kante [0,2] arrN1 = VectorUnitize(VectorCrossProduct(VectorCreate(arrPts(1), arrPts(2)),VectorCreate(arrPts(1), arrPts(0)))) arrN2 = VectorUnitize(VectorCrossProduct(VectorCreate(arrPts(3), arrPts(0)),VectorCreate(arrPts(3), arrPts(2)))) winkel2 = Arccos(VectorDotProduct(arrN1, arrN2))*grad 'Winkelvergleich und Ausgabemeldung If winkel1 <= winkel2 Then wmin = winkel1 : wmax = winkel2 AddLine arrPts(0), arrPts(2) 'Dreieckszerlegung bei kleinerem Winkel Else wmin = winkel2 : wmax = winkel1 AddLine arrPts(1), arrPts(3) 'Dreieckszerlegung bei kleinerem Winkel End If wmin = Fix(wmin*100)/100: wmax = Fix(wmax*100)/100 MessageBox "*Viereck nicht planar*"&vbNewLine& _ " Minimalwinkel = "&wmin&"°"&vbNewLine& _ " Maximalwinkel = "&wmax&"°"End SubMain 'Aufruf des Hauptprogramms
'================================='Funktionen aus der Vector-Library'================================='Make a vector from two 3D pointsPublic Function VectorCreate(p1, p2) VectorCreate = Null If Not IsArray(p1) Or (UBound(p1) <> 2) Then Exit Function If Not IsArray(p2) Or (UBound(p2) <> 2) Then Exit Function VectorCreate = Array(p2(0) - p1(0), p2(1) - p1(1), p2(2) - p1(2))End Function
'Unitize a 3D vectorPublic Function VectorUnitize(v) VectorUnitize = Null If Not IsArray(v) Or (UBound(v) <> 2) Then Exit Function Dim dist, x, y, z, x2, y2, z2 x = v(0) : y = v(1) : z = v(2) x2 = x * x : y2 = y * y : z2 = z * z dist = x2 + y2 + z2 If (dist < 0.0) Then Exit Function dist = Sqr(dist) x = x / dist y = y / dist z = z / dist VectorUnitize = Array(x, y, z)End Function
'Return the dot product of two 3D vectorsPublic Function VectorDotProduct(v1, v2) VectorDotProduct = Null If Not IsArray(v1) Or (UBound(v1) <> 2) Then Exit Function If Not IsArray(v2) Or (UBound(v2) <> 2) Then Exit Function VectorDotProduct = v1(0) * v2(0) + v1(1) * v2(1) + v1(2) * v2(2)End Function
'Return the cross product of two 3D vectorsPublic Function VectorCrossProduct(v1, v2) VectorCrossProduct = Null If Not IsArray(v1) Or (UBound(v1) <> 2) Then Exit Function If Not IsArray(v2) Or (UBound(v2) <> 2) Then Exit Function Dim x, y, z x = v1(1) * v2(2) - v1(2) * v2(1) y = v1(2) * v2(0) - v1(0) * v2(2) z = v1(0) * v2(1) - v1(1) * v2(0) VectorCrossProduct = Array(x, y, z)End Function
'Function: ArccosFunction Arccos(x) Arccos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)End Function
'Compare two 3D vectors for equalityPublic Function VectorCompare(v1, v2) VectorCompare = False If Not IsArray(v1) Or (UBound(v1) <> 2) Then Exit Function If Not IsArray(v2) Or (UBound(v2) <> 2) Then Exit Function If v1(0) = v2(0) And v1(1) = v2(1) And v1(2) = v2(2) Then VectorCompare = True End IfEnd Function
…
n cells and square cells.3. the tringle cells to be as holles in between the extrude shapes. (in the tringle cells I don't want to contain a 3d shape).4. The extrude of Hexagon and square should be gradual: from 2d shape on the grid, to 3d shape (by extruding and atrractors point)5. than to manipulate the grid by gradual enlarging and reducing it, etc. Therfore, as start I would like to create the grid when each shape cells will be sorted in separate array. Than to flow the grid along a 3d surface.
(all above I need to create in grasshopper).
THANK YOU !Niarch…
ith 4 points).
You can easily find a x^2 equation minimal value, and slider can have 2^300 unique states (lots of .0000, nearly .00(0) ;) )
Can you tell more about problem from your lecture ?
And about randomness - you use system.random class to generate first generation (and mutations) ?
I know that this class generates statistically good results, but when evaluating 2d space with uv coords you can see some patterns...this makes me think is there any better idea to generate random values ? (I know more-less how random class works)…
imizing:
-you dont need to move and rotate the 2 objects, 1 moving around the other one is enough.
-you can work in 2D only, your objects are just simple extrusion of planar polylines, and you dont seem to move them in 3D. So you can use region intersection.
Also:
-the bounding box needs an orientation plane, or it will always be oriented in XY by default.
-there is one optimal solution, and 4 equivalent sub-optimal solutions to your problem with the provided shapes and movement constraints .…
is helpful for the relaxation of the mesh in few second.
Briefly....with some bases curve attracted themselves with kangaroo I'have drowed the path for the bloobed mesh, then relaxed with 3d studio relax tool.
…