[racket-users] Re: rotate and union of a list of list of points
segunda-feira, 21 de Dezembro de 2015 às 14:09:30 UTC, Raquel Oliveira escreveu: > I'm a beginner at racket and I am finding it difficult to make a list of > lists of points follow an elliptical path and also rotate them so that the > shape that they make it's facing the centre of the ellipse. I can't make a > union on this list either. Can anyone explain me a procedure to do this, > please. Sorry, I have very few knowledge in racket language, maybe I did not explain myself well. Basically, I defined points that would create lists. This lists were then used on another list that formed a shape that I wanted (I think this is called a list of lists). After this, I tried to make the recursion of the shape of the list of lists by adding an angle in which it would create the same shape, this following a path (the ellipse). Moreover, I apllied rotate so that the shape faces the interior of the ellipse. Well, this is a homework problem, and I did reached out to my instructor who told me that the solution would be to make sure that everything was united correctly so that there would be no problem with the rotate. However, I can't make it work, so I thought I would ask a second opinion. -- You received this message because you are subscribed to the Google Groups "Racket Users" group. To unsubscribe from this group and stop receiving emails from it, send an email to racket-users+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
[racket-users] Re: rotate and union of a list of list of points
segunda-feira, 21 de Dezembro de 2015 às 14:09:30 UTC, Raquel Oliveira escreveu: > I'm a beginner at racket and I am finding it difficult to make a list of > lists of points follow an elliptical path and also rotate them so that the > shape that they make it's facing the centre of the ellipse. I can't make a > union on this list either. Can anyone explain me a procedure to do this, > please. It's quite a lot, but it's what it takes for what I want to do. The problem that I was refering to is in (define (elipse-petalas p dx dy h mov e a0 a1 da). I hope the code is clear enough. (define (trelica-espacial curvas) (let ((as (car curvas)) (bs (cadr curvas)) (cs (caddr curvas))) (nos-trelica as) (nos-trelica bs) (barras-trelica as cs) (barras-trelica bs as) (barras-trelica bs cs) (barras-trelica bs (cdr as)) (barras-trelica bs (cdr cs)) (barras-trelica (cdr as) as) (barras-trelica (cdr bs) bs) (if (null? (cdddr curvas)) (begin (nos-trelica cs) (barras-trelica (cdr cs) cs)) (begin (barras-trelica bs (cadddr curvas)) (trelica-espacial (cddr curvas)) (define (treliça-petala p dx dy h) (let* ((p1 (+xyz p (/ dx 19) (-( / dy 17/4)) (/ h 5000/951))) (p2 (+xyz p (/ dx 20) 0 (/ h 5000/953))) (p3 (+xyz p (/ dx 19) ( / dy 17/4)(/ h 5000/951))) (p4 (+xyz p (- (/ dx 100)) (- (/ dy (/ 17 2))) (/ h 23/10))) (p5 (+xyz p (- (/ dx 100)) (/ dy 17/2) (/ h 23/10))) (p6 (+xyz p (/ dx 360/57) (- (/ dy 2)) (/ h 23/12))) (p7 (+xyz p (/ dx 360/62) 0 (/ h 23/12))) (p8 (+xyz p (/ dx 360/57) (/ dy 2) (/ h 23/12))) (p9 (+xyz p (- (/ dx (/ 360 8))) (- (/ dy (/ 17 2))) (/ h (/ 23 18 (p10 (+xyz p (- (/ dx 360/8)) (/ dy 17/2) (/ h 23/18))) (p11 (+xyz p (/ dx 36/4) (- (/ dy 17/6)) (/ h (/ 23 20.5 (p12 (+xyz p (/ dx (/ 36 4)) 0 (/ h (/ 23 20.5 (p13 (+xyz p (/ dx 36/2) (/ dy 17/6) (/ h (/ 23 20.5 (p14 (+xyz p (-(/ dx (/ 36 3))) (- (/ dy (/ 17 2))) (/ h (/ 23 20 (p15 (+xyz p (- (/ dx 36/3)) (/ dy 17/2) (/ h 23/20))) (p16 (+xyz p (-(/ dx 36/4)) (-(/ dy 17/3)) (+ h 0.5))) (p17 (+xyz p (- (/ dx 36/4)) 0 (/ h (/ 23 22.2 (p18 (+xyz p (-(/ dx 36/4)) (/ dy 17/5) (/ h (/ 23 21.5 (p19 (+xyz p (-(/ dx 36/20)) (- (/ dy (/ 17 5))) (/ h 23/20))) (p20 (+xyz p (-(/ dx (/ 36 20))) (/ dy (/ 17 2)) (/ h 23/20))) (p21 (+xyz p (-(/ dx (/ 36 29))) (- (/ dy (/ 17 2))) (/ h (/ 23 21 (p22 (+xyz p (-(/ dx 36/29)) (/ dy 17/2) (/ h (/ 23 21 (p23 (+xyz p (-(/ dx 36/15)) (/ dy 17/4) (/ h 23/21 (trelica-espacial (list (list p1 p2 p3) (list p4 p5 ) (list p6 p7 p8) (list p9 p10) (list p11 p12 p13) (list p14 p15) (list p16 p17 p18) (list p19 p20) (list p21 p22 p23) #|(treliça-petala (xyz 0 0 0) 25 17 23)|# ;petala (define (pano-petala p dx dy h mov e) (let* ((p1 (+xyz p (- (/ dx 18)) (- (/ dy (/ 17 4))) (/ h(/ 5000 953 (p2 (+xyz p (- (/ dx (/ 360 67))) (- (/ dy 2)) (/ h (/ 23 12 (p3 (+xyz p (- (/ dx (/ 36 7))) (- (/ dy (/ 17 8))) (/ h (/ 23 17 (p4 (+xyz p (/ dx (/ 36 29)) (- (/ dy (/ 17 2))) (/ h 23/21))) (p5 (+xyz p (/ dx 36/29) (/ dy 17/2) (/ h 23/21))) (p6 (+xyz p 0 (/ dy 17/4) h)) (p7 (+xyz p (- (/ dx 36/7)) (/ dy 17/8) (/ h 23/17))) (p8 (+xyz p (- (/ dx 360/67)) (/ dy 2) (/ h 23/12))) (p9 (+xyz p (- (/ dx 18)) (/ dy 17/4) (/ h 5000/953))) (p10 (+xyz p (/ dx 9) (/ dy 17/10) (/ h 23/15))) (p11 (+xyz p (/ dx 90/19) (/ dy 17/10) (/ h 23/21 (move (rotate (union (thicken (loft (list (spline (list p p1 p2 p3 p4)) (spline (list p4 p6 p7 p8 p9 p e) (thicken (loft (list (spline (list p4 p6 p7 p8 p9)) (spline (list p9 p10 p11 p5 e)) pi) (x mov #|(pano-petala (xyz 0 0 0) 25 25 23 70 0.08)|# (define (petala p dx dy h mov e) (union (pano-petala p dx dy h mov e) (treliça-petala p dx dy h))) #|(petala (xyz 0 0 0) 25 25 23 0 0.08)|# (define (elipse-petalas p dx dy h mov e a0 a1 da) (if (> a0 a1) #T (begin (rotate (petala p dx dy h mov e) a0) (elipse-petalas p dx dy h mov e (+ a0 da) a1 da (elipse-petalas (xyz 0 0 0) 12 12 23 33 0.08 0 2pi (/ pi 8)) -- You received this message because you are subscribed to the Google Groups "Racket Users" group. To unsubscribe from this group and stop receiving emails from it, send an email to racket-users+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
Re: [racket-users] Re: rotate and union of a list of list of points
On Dec 21, 2015, at 10:29 AM, Raquel Oliveira wrote: > segunda-feira, 21 de Dezembro de 2015 às 14:09:30 UTC, Raquel Oliveira > escreveu: >> I'm a beginner at racket and I am finding it difficult to make a list of >> lists of points follow an elliptical path and also rotate them so that the >> shape that they make it's facing the centre of the ellipse. I can't make a >> union on this list either. Can anyone explain me a procedure to do this, >> please. > > > Sorry, I have very few knowledge in racket language, maybe I did not explain > myself well. > Basically, I defined points that would create lists. This lists were then > used on another list that formed a shape that I wanted (I think this is > called a list of lists). After this, I tried to make the recursion of the > shape of the list of lists by adding an angle in which it would create the > same shape, this following a path (the ellipse). Moreover, I apllied rotate > so that the shape faces the interior of the ellipse. > > Well, this is a homework problem, and I did reached out to my instructor who > told me that the solution would be to make sure that everything was united > correctly so that there would be no problem with the rotate. However, I can't > make it work, so I thought I would ask a second opinion. > It sounds like you'd be best off if you shared what you got with the group. -- You received this message because you are subscribed to the Google Groups "Racket Users" group. To unsubscribe from this group and stop receiving emails from it, send an email to racket-users+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
