Posted on 2019/09/07, 2:24 PM By admin22
Excelで3Dの散布図を描画しようとしたら、できないことに気づきました。似たようなことは等高線を使うようですが、ちょっと意図が違うので以前の投稿を参考にProcessingで描画してみました。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
float rotx = -0.04; float roty = -0.04; int zz = 1024; void setup(){ size(1024, 1024, P3D); noLoop(); } void setPoint(float x, float y, float z, int r, int g, int b){ pushMatrix(); translate(width/2 + x, height/2 + y, zz/2 - z); noStroke(); fill(r,g,b); sphere(2); popMatrix(); } void draw(){ background(0); rotateX(rotx); rotateY(roty); for(int i=-50;i<50;i++){ setPoint(i*10, 0, 0, 255, 0, 0); } for(int i=-50;i<50;i++){ setPoint(0, i*10, 0, 0, 255, 0); } for(int i=-50;i<50;i++){ setPoint(0, 0, i*10, 0, 0 , 255); } float px = 100; float py = -100; float pz = -100; for(int i=0; i<10000 ; i++){ float rx = random(0, 500); float ry = random(-500, 0); float rz = random(-500, 0); if(sqrt((px-rx)*(px-rx)+(py-ry)*(py-ry)+(pz-rz)*(pz-rz)) < 50){ setPoint(rx, ry, rz, 255, 255, 0); } else{ setPoint(rx, ry, rz, 100, 255, 255); } } setPoint(px, py, pz, 255, 0, 0); } |
右上手前の事象にランダムな点を描画し、そのうちの赤点px,py,pzからの距離が50のものを黄色で表示しました。
参考にしたプログラムは、ループするのでランダムな点がアニメーションしてしまうため一回のみのループとしました。そのためマウスドラッグによる視点変更ができなくなっています。
過去のコードをすぐ引用できるのでこういうときBlogに記述しておくと便利だなぁ、と今回改めて感じました。
Categories: 未分類 タグ: Processing