Jump to content

Yellowstone sequence: Difference between revisions

Yellowstone sequence (view source)

Revision as of 13:48, 10 May 2022

396 bytes added ,  2 years ago
m
→‎{{header|Phix}}: updated. added online link
No edit summary
m (→‎{{header|Phix}}: updated. added online link)
Line 1,751:
 
=={{header|Phix}}==
{{translibheader|JuliaPhix/pGUI}}
{{libheader|Phix/pGUIonline}}▼
<!--<lang Phix>(phixonline?)-->▼
You can run this online [http://phix.x10.mx/p2js/Yellowstone.htm here].
▲<!--<lang Phix>(phixonline?)-->
<span style="color: #000080;font-style:italic;">--IupSetAttribute(plot, "DS_MODE", "BAR") -- (optional)</span>▼
-- demo\rosetta\Yellowstone_sequence.exw
--</span>
<span style="color: #008080;">endwith</span> <span style="color: #008080;">forjavascript_semantics</span>▼
<span style="color: #7060A8;">IupPlotBeginrequires</span><span style="color: #0000FF;">(</span><span style="color: #000000008000;">plot"1.0.2"</span><span style="color: #0000FF;">)</span>▼
<span style="color: #008080;">function</span> <span style="color: #000000;">yellowstone</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">N</span><span style="color: #0000FF;">)</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">a</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">2</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">3</span><span style="color: #0000FF;">},</span>
Line 1,772 ⟶ 1,780:
<span style="color: #008080;">return</span> <span style="color: #000000;">a</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"The first 30 entries of the Yellowstone permutation:\n%Vv\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">yellowstone</span><span style="color: #0000FF;">(</span><span style="color: #000000;">30</span><span style="color: #0000FF;">)})</span>
<!--</lang>-->
<span style="color: #000080;font-style:italic;">-- a simple plot:</span>
{{out}}▼
<pre>▼
The first 30 entries of the Yellowstone permutation:▼
{1,2,3,4,9,8,15,14,5,6,25,12,35,16,7,10,21,20,27,22,39,11,13,33,26,45,28,51,32,17}▼
</pre>▼
=== a simple plot ===
▲{{libheader|Phix/pGUI}}
<!--<lang Phix>-->
<span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
<span style="color: #0000FF008080;">{}</span> <span style="color: #0000FF;">=include</span> <span style="color: #7060A8;">IupPlotEndIupGraph</span><span style="color: #0000FF;">(.</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">)e</span>▼
<span style="color: #008080;">forfunction</span> <span style="color: #000000;">xget_data</span><span style="color: #0000FF;">=(</span><span style="color: #000000004080;">1</span> <span style="color: #008080;">toIhandle</span> <span style="color: #000000;">500graph</span> <span style="color: #0080800000FF;">do)</span>▼
<span style="color: #004080;">sequence</span> <span style="color: #000000;">y500</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">yellowstone</span><span style="color: #0000FF;">(</span><span style="color: #000000;">500</span><span style="color: #0000FF;">)</span>▼
<span style="color: #7060A8004080;">IupPlotAddinteger</span> <span style="color: #0000FF;">({</span><span style="color: #000000;">plotw</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">xh</span><span style="color: #0000FF;">,}</span> <span style="color: #0000000000FF;">y500=</span> <span style="color: #7060A8;">IupGetIntInt</span><span style="color: #0000FF;">[(</span><span style="color: #000000;">xgraph</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"DRAWSIZE"</span><span style="color: #0000FF;">])</span>▼
<span style="color: #7060A8;">IupSetInt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">graph</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"XTICK"</span><span style="color: #0000FF;">,</span><span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">w</span><span style="color: #0000FF;"><</span><span style="color: #000000;">640</span><span style="color: #0000FF;">?</span><span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">h</span><span style="color: #0000FF;"><</span><span style="color: #000000;">300</span><span style="color: #0000FF;">?</span><span style="color: #000000;">100</span><span style="color: #0000FF;">:</span><span style="color: #000000;">50</span><span style="color: #0000FF;">):</span><span style="color: #000000;">20</span><span style="color: #0000FF;">))</span>
<span style="color: #7060A8;">IupSetInt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">graph</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"YTICK"</span><span style="color: #0000FF;">,</span><span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">h</span><span style="color: #0000FF;"><</span><span style="color: #000000;">250</span><span style="color: #0000FF;">?</span><span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">h</span><span style="color: #0000FF;"><</span><span style="color: #000000;">140</span><span style="color: #0000FF;">?</span><span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">h</span><span style="color: #0000FF;"><</span><span style="color: #000000;">120</span><span style="color: #0000FF;">?</span><span style="color: #000000;">700</span><span style="color: #0000FF;">:</span><span style="color: #000000;">350</span><span style="color: #0000FF;">):</span><span style="color: #000000;">200</span><span style="color: #0000FF;">):</span><span style="color: #000000;">100</span><span style="color: #0000FF;">))</span>
<span style="color: #004080008080;">Ihandlereturn</span> <span style="color: #0000000000FF;">dlg{{</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">=(</span> <span style="color: #7060A8000000;">IupDialog500</span><span style="color: #0000FF;">(),</span><span style="color: #000000;">ploty500</span><span style="color: #0000FF;">,</span><span style="color: #008000004600;">`TITLE="Yellowstone Names"`CD_RED</span><span style="color: #0000FF;">)}}</span>▼
<span style="color: #7060A8008080;">IupControlsOpenend</span> <span style="color: #0000FF008080;">()function</span>▼
<span style="color: #7060A8;">IupOpen</span><span style="color: #0000FF;">()</span>
<span style="color: #7060A8004080;">IupSetAttributeIhandle</span> <span style="color: #0000FF000000;">(graph</span> <span style="color: #0000000000FF;">plot=</span> <span style="color: #0000FF7060A8;">,IupGraph</span> <span style="color: #0080000000FF;">(</span><span style="AXS_YLABELcolor: #000000;">get_data</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"a(n)RASTERSIZE=960x600"</span><span style="color: #0000FF;">);</span>▼
▲ <span style="color: #7060A8;">IupControlsOpen</span><span style="color: #0000FF;">()</span>
<span style="color: #0040807060A8;">IhandleIupSetAttributes</span> <span style="color: #000000;">plot</span> <span style="color: #0000FF;">=(</span> <span style="color: #7060A8000000;">IupPlotgraph</span><span style="color: #0000FF;">(,</span><span style="color: #008000;">`GTITLE="MENUITEMPROPERTIES=Yes,Yellowstone SIZE=640x320Numbers"`</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">IupSetAttributeIupSetInt</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plotgraph</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"TITLETITLESTYLE"</span><span style="color: #0000FF;">,</span> <span style="color: #008000004600;">"Yellowstone Numbers"CD_ITALIC</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttributeIupSetAttributes</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plotgraph</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"TITLEFONTSIZE"</span><span style`XNAME="color: #0000FF;n">,</span> <span styleYNAME="color: #008000;">"10a(n)"`</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttributeIupSetAttributes</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plotgraph</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"TITLEFONTSTYLE"</span><span styleXTICK="color: #0000FF;">20,</span> <span styleXMIN=0,XMAX="color: #008000;">"ITALIC500"</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttributeIupSetAttributes</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plotgraph</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"GRIDLINESTYLE"</span><span styleYTICK="color: #0000FF;">100,</span> <span styleYMIN=0,YMAX="color: #008000;">"DOTTED1400"</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8004080;">IupSetAttributeIhandle</span> <span style="color: #0000FF000000;">(dlg</span> <span style="color: #0000000000FF;">plot=</span> <span style="color: #0000FF7060A8;">,IupDialog</span> <span style="color: #0080000000FF;">(</span><span style="GRIDcolor: #000000;">graph</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">`TITLE="YESYellowstone Names"`</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttributeIupSetAttributes</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plotdlg</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"AXS_XLABEL"</span><span styleMINSIZE="color: #0000FF;">,</span> <span style="color: #008000;">"n290x140"</span><span style="color: #0000FF;">);</span>
▲ <span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"AXS_YLABEL"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"a(n)"</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"AXS_XFONTSTYLE"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"ITALIC"</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"AXS_YFONTSTYLE"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"ITALIC"</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"AXS_YTICKSIZEAUTO"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"NO"</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"AXS_YTICKMAJORSIZE"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"8"</span><span style="color: #0000FF;">);</span>
<span style="color: #7060A8;">IupSetAttribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"AXS_YTICKMINORSIZE"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"0"</span><span style="color: #0000FF;">);</span>
▲ <span style="color: #7060A8;">IupPlotBegin</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">)</span>
▲ <span style="color: #004080;">sequence</span> <span style="color: #000000;">y500</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">yellowstone</span><span style="color: #0000FF;">(</span><span style="color: #000000;">500</span><span style="color: #0000FF;">)</span>
▲ <span style="color: #008080;">for</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">500</span> <span style="color: #008080;">do</span>
▲ <span style="color: #7060A8;">IupPlotAdd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">y500</span><span style="color: #0000FF;">[</span><span style="color: #000000;">x</span><span style="color: #0000FF;">])</span>
▲ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
▲ <span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupPlotEnd</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">)</span>
▲ <span style="color: #000080;font-style:italic;">--IupSetAttribute(plot, "DS_MODE", "BAR") -- (optional)</span>
▲ <span style="color: #004080;">Ihandle</span> <span style="color: #000000;">dlg</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">IupDialog</span><span style="color: #0000FF;">(</span><span style="color: #000000;">plot</span><span style="color: #0000FF;">,</span><span style="color: #008000;">`TITLE="Yellowstone Names"`</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">IupShow</span><span style="color: #0000FF;">(</span><span style="color: #000000;">dlg</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">if</span> <span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()!=</span><span style="color: #004600;">JS</span> <span style="color: #008080;">then</span>
Line 1,813 ⟶ 1,810:
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<!--</lang>-->
▲{{out}}
▲<pre>
▲The first 30 entries of the Yellowstone permutation:
▲{1,2,3,4,9,8,15,14,5,6,25,12,35,16,7,10,21,20,27,22,39,11,13,33,26,45,28,51,32,17}
▲</pre>
 
=={{header|Phixmonti}}==
Petelomax
7,820

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/298312"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information