Code: Select all
\documentclass[border=2mm,tikz]{standalone}\usepackage{fouriernc}\usepackage{tikz-3dplot}\usetikzlibrary{calc,backgrounds}\usepackage{tkz-euclide,amsmath}\usetkzobj{all}\usepackage{pgfplots}\begin{document}%polar coordinates of visibility\pgfmathsetmacro\th{60}\pgfmathsetmacro\az{130}\tdplotsetmaincoords{\th}{\az}%parameters of the cone\pgfmathsetmacro\R{3}\pgfmathsetmacro\v{5}\begin{tikzpicture} [scale=1, tdplot_main_coords, axis/.style={blue,thick}]\pathcoordinate (O) at (0,0,0)coordinate (S) at (0,0,\v);\coordinate (A) at ($(O) + (360/10:{\R} and {\R})$);\coordinate (B) at ($(O) + (2*360/10:{\R} and {\R})$);\coordinate (C) at ($(O) + (3*360/10:{\R} and {\R})$);\coordinate (D) at ($(O) + (4*360/10:{\R} and {\R})$);\coordinate (E) at ($(O) + (5*360/10:{\R} and {\R})$);\coordinate (F) at ($(O) + (6*360/10:{\R} and {\R})$);\coordinate (G) at ($(O) + (7*360/10:{\R} and {\R})$);\coordinate (H) at ($(O) + (8*360/10:{\R} and {\R})$);\coordinate (I) at ($(O) + (9*360/10:{\R} and {\R})$);\coordinate (J) at ($(O) + (10*360/10:{\R} and {\R})$);\tkzDrawPoints[fill = black,size = 5 pt](S,A,B,C,D,E,F,O,G,H,I,J)% % computation of tangential points\pgfmathsetmacro\cott{{cot(\th)}}\pgfmathsetmacro\fraction{\R*\cott/\v}\pgfmathsetmacro\angle{{acos(\fraction)}}
Code: Select all
[code]\coordinate (A) at ($(O) + (360/10:{\R} and {\R})$);\coordinate (B) at ($(O) + (2*360/10:{\R} and {\R})$);\coordinate (C) at ($(O) + (3*360/10:{\R} and {\R})$);\coordinate (D) at ($(O) + (4*360/10:{\R} and {\R})$);\coordinate (E) at ($(O) + (5*360/10:{\R} and {\R})$);\coordinate (F) at ($(O) + (6*360/10:{\R} and {\R})$);\coordinate (G) at ($(O) + (7*360/10:{\R} and {\R})$);\coordinate (H) at ($(O) + (8*360/10:{\R} and {\R})$);\coordinate (I) at ($(O) + (9*360/10:{\R} and {\R})$);\coordinate (J) at ($(O) + (10*360/10:{\R} and {\R})$);