General ⇒ How can I reduce my code?

[Tran Van Toan]

I draw a cone with base is a regular polygon with ten edgs. This is my code:

Code: Select all

Code, edit and compile here:

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
\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}]
\path
coordinate (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)}}
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Run LaTeX here

How can I reduce the lines?

Code: Select all

Code, edit and compile here:

1
2
3
4
5
6
7
8
9
10
[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})$);
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Run LaTeX here

[/code]

[rais]

You could use a \foreach statement instead, say

Code: Select all

1
2
\foreach \a/\b in {A/1,B/2,C/3,D/4,E/5,F/6,G/7,H/8,I/9,J/10}
    \coordinate (\a) at ($(O) + (\b*36:{\R})$);
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

KR
Rainer

[Tran Van Toan]

Thank you very much.

[Stefan Kottwitz]

Hi,

even simpler:

Code: Select all

1
2
\foreach \i in {1,...,10}
    \coordinate (\Alph{\i}) at ($(O) + (\i*36:{\R})$);
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

That of course requires a macro \Alph to turn numbers into letters. There is one internal macro, that could be used that way if you would add to the document preamble:

Code: Select all

Code, edit and compile here:

1
2
3
\makeatletter
\let\Alph\@Alph
\makeatother
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Run LaTeX here

Stefan

[Tran Van Toan]

Thank you very much. I still a small problem:
How can I reduce this command

Code: Select all

1
\draw[dashed] (\Alph{1}) -- (\Alph{2})-- (\Alph{3}) -- (\Alph{4})--(\Alph{5}) -- (\Alph{6})-- (\Alph{7}) -- (\Alph{8})--(\Alph{9}) -- (\Alph{10})--cycle;
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

[Stefan Kottwitz]

For example:

\draw[red,foreach/.style={insert path=--(\Alph{#1})}] (A) [foreach/.list={2,...,10,1}] --cycle;

Stefan

[Tran Van Toan]

Thank you for all your helps. I repaired my code and got the same results.
Please comment my code. I need all comments.
A big problem is how to write a marco to draw style of line (dashed, not dashed) automatically. I can not solve this question by myselt.
This is solved by hand.

Code: Select all

1
2
\foreach \i in {1,...,4,8,9,10} \draw[thick] (S)--(\Alph{\i});
\foreach \i in {5,6,7} \draw[dashed] (S)--(\Alph{\i});
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

If regullar polygon with 20 edgs, it's difficult for me to choice style of lines.

And this is my full code.

Code: Select all

Code, edit and compile here:

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
\documentclass[border=2mm,tikz]{standalone}
\usepackage{fouriernc}
\usepackage{tikz-3dplot}
\usetikzlibrary{calc,backgrounds}
\usepackage{tkz-euclide,amsmath}
\usetkzobj{all}
\usepackage{pgfplots}
\makeatletter
\let\Alph\@Alph
\makeatother
\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}]
\path
coordinate (O) at (0,0,0)
coordinate (S) at (0,0,\v);
\foreach \i in {1,...,10} \coordinate (\Alph{\i}) at ($(O) + (\i*36:{\R})$);
%\foreach \i in {1,...,10} \tkzDrawPoints[fill = black,size = 5 pt] (\Alph{\i})
\tkzDrawPoints[fill = black,size = 5 pt](S);
% % computation of tangential points
\pgfmathsetmacro\cott{{cot(\th)}}
\pgfmathsetmacro\fraction{\R*\cott/\v}
\pgfmathsetmacro\angle{{acos(\fraction)}}
% % angles for transformed lines
\pgfmathsetmacro\PhiOne{180+(\az-90)+\angle}
\pgfmathsetmacro\PhiTwo{180+(\az-90)-\angle}
% % coordinates for transformed surface lines
\pgfmathsetmacro\sinPhiOne{{sin(\PhiOne)}}
\pgfmathsetmacro\cosPhiOne{{cos(\PhiOne)}}
\pgfmathsetmacro\sinPhiTwo{{sin(\PhiTwo)}}
\pgfmathsetmacro\cosPhiTwo{{cos(\PhiTwo)}}
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Run LaTeX here

[Stefan Kottwitz]

TikZ cannot automatically detect when a line is behind some area. The area is not even drawn. You have to decide what you make dashed for a simulated background appearance.

Anyway, just for better reading and for doing it in a simple loop, you could also write

Code: Select all

Code, edit and compile here:

1
2
3
4
\foreach \point/\style in {A/thick,  B/thick,  C/thick,  D/thick,
                           E/dashed, F/dashed, G/dashed,
                           H/thick,  I/thick,  J/thick}
         \draw[\style] (S)--(\point);
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Run LaTeX here

Stefan

[Tran Van Toan]

Thank you very much.