Archive for December 18, 2017

[Perl] 移動平均の傾きを一気に計算する

移動平均を一気に計算する方法を別記事紹介しましたが、ここでは、Perlで移動平均の傾きを計算する方法を紹介します。

$movingslope[n]に、n日移動平均の傾きが格納されます。

サブルーチンとする場合には、スクリプト中の指示に従って修正してください。” moving_slope(1)”で呼び出します。

#!/usr/bin/perl

use CGI qw(:standard);
use strict;

#sub moving_slope { #サブルーチンとする場合は、行頭の#を取る

#—– 使用する変数 ここから
my @movingslope; #移動平均の傾き
my $finalrate; #最新の終値
my $data; #ファイルからの読み込みに使用
my @readdata; # $dataから日付や終値などを分割して格納
my $count = 0; #「何日移動平均」の「何日」
#—– 使用する変数 ここまで

#—– データを読み込みながら移動平均の傾きを計算 ここから
#為替データはタブ区切りテキスト”USD_JPY.txt”に保存されているとします。
#[日付] (tab) [始値] (tab) [高値] (tab) [安値] (tab) [終値] で1行を構成しているとします
# 1行目に最新の値、最終行に最古の値とします。

open IN, “USD_JPY.txt”;
while(<IN>) {
$count = ++ $count;
$data = $_;
chop $data;
@readdata = split(“\t”, $data);
#$readdata[0]: 日付
#$readdata[1]: 始値
#$readdata[2]: 高値
#$readdata[3]: 安値
#$readdata[4]: 終値

if ($count eq 1) {
$finalrate = $readdata[4];
} else {
$movingslope[$count] = ($readdata[4] – $finalrate) / $count;
}
}
close IN;
#—– データを読み込みながら移動平均の傾きを計算 ここまで

#return(@movingslope); #サブルーチンとする場合は行頭の#を取る

#} #サブルーチンとする場合は行頭の#を取る

exit; #サブルーチンとする場合はこの行を除去

#1; #サブルーチンとする場合は行頭の#を取る

 

キーワード: Perl; 移動平均; 傾き; 為替レート; 株価; 為替市場; 株式市場; 先物市場; fx; ビットコイン

あわせてどうぞ

[Perl] 為替レートや株価の4本値から移動平均を一気に計算する

【ほぼ日替わり】本日のおすすめ論文

リアルタイムで更新中。

2017/12/26

ナノ粒子
[RSC Adv. 2017, 7, 56306–56310.]
Thiourea bridged periodic mesoporous organosilica with ultra-small Pd nanoparticles for coupling reactions
Doustkhah, Esmail; Rostamnia, Sadegh; Imura, Masataka; Ide, Yusuke; Mohammadi, Shiva; Hyland, Christopher J. T.; You, Jungmok; Tsunoji, Nao; Zeynizadeh, Behzad; Yamauchi, Yusuke
Tag: PMO, Cat, EM, NP, TU, TEM
http://dx.doi.org/10.1039/C7RA11711F

[RSC Adv. 2017, 7, 56697–56703.] Resistivity and piezoelectric properties of Ca3TaGa1.5Al1.5Si2O14 single crystals for high temperature sensors
Fu, Xiuwei; Villora, Encarnacion G.; Matsushita, Yoshitaka; Kitanaka, Yuuki; Noguchi, Yuji; Miyayama, Masaru; Shimamura, Kiyoshi; Ohashi, Naoki
Tag: O, Iso
http://dx.doi.org/10.1039/C7RA11926G

[J. Mater. Chem. C 2018, 6, 162–170.] Degradation of encapsulated perovskite solar cells driven by deep trap states and interfacial deterioration
Khadka, Dhruba B.; Shirai, Yasuhiro; Yanagida, Masatoshi; Miyano, Kenjiro
Tag: PSC, DOS, Ea
http://dx.doi.org/10.1039/C7TC03733C

[J. Mater. Chem. B 2018, 6, 174–182.] Structural effects of phosphate groups on apatite formation in a copolymer modified with Ca2+ in a simulated body fluid
Hamai, Ryo; Maeda, Hirotaka; Sawai, Hikaru; Shirosaki, Yuki; Kasuga, Toshihiro; Miyazaki, Toshiki
Tag: PE, SBF, XPS, PA, PS, FG, ZP
http://dx.doi.org/10.1039/C7TB02363D

三浦先生@大阪大。 C-H結合活性化
[Chem. Sci. 2018, 9, 22–32.]
A lesson for site-selective C-H functionalization on 2-pyridones: radical, organometallic, directing group and steric controls
Hirano, Koji; Miura, Masahiro
Tag: DG, R
http://dx.doi.org/10.1039/C7SC04509C

酸化グラフェン 層状複水酸化物
[Chem. Sci. 2018, 9, 33–43.]
Recent progress on exploring exceptionally high and anisotropic H+/OH- ion conduction in two-dimensional materials
Sun, Pengzhan; Ma, Renzhi; Sasaki, Takayoshi
Tag: PEM, NS, IP, AEM, LDH, FC, LDH, GO
http://dx.doi.org/10.1039/C7SC04019A

ナノ粒子 ポルフィリン
[Chem. Sci. 2018, 9, 261–265.]
Ligand effect on the catalytic activity of porphyrin-protected gold clusters in the electrochemical hydrogen evolution reaction
Eguchi, Daichi; Sakamoto, Masanori; Teranishi, Toshiharu
Tag: PES, GNP, RHE, AuNP, Au, Cat, H, EC, NP, Por, HER
http://dx.doi.org/10.1039/C7SC03997B

中條先生@京都大。
[Asian J. Org. Chem. 2017, 6, 1818–1822.]
Solid-State Thermochromic Luminescence through Twisted Intramolecular Charge Transfer and Excimer Formation of a Carborane-Pyrene Dyad with an Ethynyl Spacer
Nishino, Kenta; Yamamoto, Hideki; Tanaka, Kazuo; Chujo, Yoshiki
Tag: TICT, CT, em, SS, ACQ, ICT, Pyr, Py
http://dx.doi.org/10.1002/ajoc.201700390

全合成
[Asian J. Org. Chem. 2017, 6, 1760–1763.]
Diastereodivergent Henry Reaction for the Stereoselective Construction of Nitrogen-Containing Tetrasubstituted Carbons: Application to Total Synthesis of Manzacidins A and C
Kudoh, Takayuki; Araki, Yuya; Miyoshi, Natsumi; Tanioka, Mizuho; Sakakura, Akira
Tag: C, N, PG
http://dx.doi.org/10.1002/ajoc.201700568

中條先生@京都大。
[Asian J. Org. Chem. 2017, 6, 1699–1699.]
Front Cover: Solid-State Thermochromic Luminescence through Twisted Intramolecular Charge Transfer and Excimer Formation of a Carborane-Pyrene Dyad with an Ethynyl Spacer (Asian J. Org. Chem. 12/2017)
Nishino, Kenta; Yamamoto, Hideki; Tanaka, Kazuo; Chujo, Yoshiki
Tag: TICT, CT, SS, ICT
http://dx.doi.org/10.1002/ajoc.201700647

榧木先生@東工大。 桑田先生@東工大。 銅触媒
[ChemCatChem 2017, 9, 4501–4507.]
Distinct Promotive Effects of 1,8-Diazabicyclo[5.4.0]undec-7-ene (DBU) on Polymer Supports in Copper-Catalyzed Hydrogenation of C=O Bonds
Watari, Ryo; Matsumoto, Norio; Kuwata, Shigeki; Kayaki, Yoshihito
Tag: 98-86-2, Cat, Cu, PSt, PS
http://dx.doi.org/10.1002/cctc.201701316

ヒドロアミノ化
[ChemCatChem 2017, 9, 4490–4500.]
Intramolecular Hydroamination by a Primary Amine of an Unactivated Alkene on Gold Nanoclusters: A DFT Study
Bobuatong, Karan; Sakurai, Hidehiro; Ehara, Masahiro
Tag: NC, Au, Cat, H, TS, LA, NH2, Nu, DFT, HP, 64-18-6, HCOOH, H2O2, NBO
http://dx.doi.org/10.1002/cctc.201700839

ヒドロアミノ化
[ChemCatChem 2017, 9, 4450–4450.]
Intramolecular Hydroamination by a Primary Amine of an Unactivated Alkene on Gold Nanoclusters: A DFT Study
Bobuatong, Karan; Sakurai, Hidehiro; Ehara, Masahiro
Tag: NC, Au, NH2
http://dx.doi.org/10.1002/cctc.201701915

榧木先生@東工大。 桑田先生@東工大。 銅触媒
[ChemCatChem 2017, 9, 4449–4449.]
Cover Feature: Distinct Promotive Effects of 1,8-Diazabicyclo[5.4.0]undec-7-ene (DBU) on Polymer Supports in Copper-Catalyzed Hydrogenation of C=O Bonds (ChemCatChem 24/2017)
Watari, Ryo; Matsumoto, Norio; Kuwata, Shigeki; Kayaki, Yoshihito
Tag: Cu
http://dx.doi.org/10.1002/cctc.201701914

ヒドロアミノ化
[ChemCatChem 2017, 9, 4448–4448.]
Front Cover: Intramolecular Hydroamination by a Primary Amine of an Unactivated Alkene on Gold Nanoclusters: A DFT Study (ChemCatChem 24/2017)
Bobuatong, Karan; Sakurai, Hidehiro; Ehara, Masahiro
Tag: NC, Au, NH2
http://dx.doi.org/10.1002/cctc.201701911

[ChemMedChem 2017, 12, 2016–2021.] DNA Microcapsule for Photo-Triggered Drug Release Systems
Kamiya, Yukiko; Yamada, Yoshinobu; Muro, Takahiro; Matsuura, Kazunori; Asanuma, Hiroyuki
Tag: DO, Doxo, DOX, TWJ, 3WJ, MC, AZB, AB, AZO
http://dx.doi.org/10.1002/cmdc.201700512

[ChemMedChem 2017, 12, 2014–2014.] Front Cover: DNA Microcapsule for Photo-Triggered Drug Release Systems (ChemMedChem 24/2017)
Kamiya, Yukiko; Yamada, Yoshinobu; Muro, Takahiro; Matsuura, Kazunori; Asanuma, Hiroyuki
Tag: MC
http://dx.doi.org/10.1002/cmdc.201700750

自己集合
[Chem. Asian J. 2017, 12, 3203–3207.]
Quantitative Analysis of the Self-Assembly Process of a Pd12L24 Coordination Sphere
Kai, Shumpei; Shigeta, Taro; Kojima, Tatsuo; Hiraoka, Shuichi
Tag: Pyr, SA
http://dx.doi.org/10.1002/asia.201701351

[Chem. Asian J. 2017, 12, 3123–3127.] Benziodoxole Triflate as a Versatile Reagent for Iodo(III)cyclization of Alkynes
Wu, Bin; Wu, Junliang; Yoshikai, Naohiko
Tag: IND, BT, E, Nu, El
http://dx.doi.org/10.1002/asia.201701530

[Chem. Asian J. 2017, 12, 3098–3109.] Horseradish Peroxidase Catalyzed Hydrogelation for Biomedical, Biopharmaceutical, and Biofabrication Applications
Sakai, Shinji; Nakahata, Masaki
Tag: TE, HRP
http://dx.doi.org/10.1002/asia.201701364

[Chem. Asian J. 2017, 12, 3097–3097.] Cover Feature: Horseradish Peroxidase Catalyzed Hydrogelation for Biomedical, Biopharmaceutical, and Biofabrication Applications (Chem. Asian J. 24/2017)
Sakai, Shinji; Nakahata, Masaki
Tag: HRP
http://dx.doi.org/10.1002/asia.201701489

[ACS Photonics 2017, 4, 3012–3017.] Propagating Plasmons in a Charge-Neutral Quantum Tunneling Transistor
Woessner, Achim; Misra, Abhishek; Cao, Yang; Torre, Iacopo; Mishchenko, Artem; Lundeberg, Mark B.; Watanabe, Kenji; Taniguchi, Takashi; Polini, Marco; Novoselov, Kostya S.; Koppens, Frank H. L.
Tag: B, ML, HEX, Hx, BN, hBN
http://dx.doi.org/10.1021/acsphotonics.7b01020

[ACS Synth. Biol. 2017, 6, 2339–2349.] Development of a Terpenoid-Production Platform in Streptomyces reveromyceticus SN-593
Khalid, Ammara; Takagi, Hiroshi; Panthee, Suresh; Muroi, Makoto; Chappell, Joe; Osada, Hiroyuki; Takahashi, Shunji
Tag: PK
http://dx.doi.org/10.1021/acssynbio.7b00249

[ACS Synth. Biol. 2017, 6, 2191–2197.] Control of Adipogenic Differentiation in Mesenchymal Stem Cells via Endogenous Gene Activation Using CRISPR-Cas9
Furuhata, Yuichi; Nihongaki, Yuta; Sato, Moritoshi; Yoshimoto, Keitaro
Tag: TF, MSC
http://dx.doi.org/10.1021/acssynbio.7b00246

[Biochemistry 2017, 56, 6615–6625.] Pyrroloquinoline Quinone, a Redox-Active o-Quinone, Stimulates Mitochondrial Biogenesis by Activating the SIRT1/PGC-1α Signaling Pathway
Saihara, Kazuhiro; Kamikubo, Ryosuke; Ikemoto, Kazuto; Uchida, Koji; Akagawa, Mitsugu
Tag: CcO, m, PQQ, PPAR
http://dx.doi.org/10.1021/acs.biochem.7b01185

[Bioconjugate Chem. 2017, 28, 3029–3035.] Rational Design and Synthesis of Post-Functionalizable Peptide Foldamers as Helical Templates
Misawa, Takashi; Kanda, Yasunari; Demizu, Yosuke
Tag: FG
http://dx.doi.org/10.1021/acs.bioconjchem.7b00621

[Bioconjugate Chem. 2017, 28, 2954–2961.] Primary Amine-Clustered DNA Aptamer for DNA?Protein Conjugation Catalyzed by Microbial Transglutaminase
Takahara, Mari; Wakabayashi, Rie; Minamihata, Kosuke; Goto, Masahiro; Kamiya, Noriho
Tag: FP, FL, ret, Gln, Q, GFP, NH2, eGFP, EGFP, MTG
http://dx.doi.org/10.1021/acs.bioconjchem.7b00594

[

[Perl] 為替レートや株価の4本値から移動平均を一気に計算する

為替相場や株式相場のテクニカル分析法の一つに、移動平均を使うものがよく知られています。

エクセルなどで計算してもいいのですが、Perlなどのスクリプトで2日移動平均からデータが許す最長の移動平均まで一気に計算した方が、融通がきく場合もあるかと思います。

ここでは、Perlによる移動平均の計算方法を紹介します。

$movingaverage[n]に、n日移動平均が格納されます。

サブルーチンとする場合には、スクリプト中の指示に従って修正してください。” moving_average(1)”で呼び出します。

#!/usr/bin/perl

use CGI qw(:standard);
use strict;

#sub moving_average { #サブルーチンとする場合は、行頭の#を取る

#—– 使用する変数 ここから
my @movingaverage; #移動平均
my $data; #ファイルからの読み込みに使用
my @readdata; # $dataから日付や終値などを分割して格納
my $count = 0; #「何日移動平均」の「何日」
#—– 使用する変数 ここまで

#—– データを読み込みながら移動平均を計算 ここから
#為替データはタブ区切りテキスト”USD_JPY.txt”に保存されているとします。
#[日付] (tab) [始値] (tab) [高値] (tab) [安値] (tab) [終値] で1行を構成しているとします
# 1行目に最新の値、最終行に最古の値とします。

open IN, “USD_JPY.txt”;
while(<IN>) {
$count = ++ $count;
$data = $_;
chop $data;
@readdata = split(“\t”, $data);
#$readdata[0]: 日付
#$readdata[1]: 始値
#$readdata[2]: 高値
#$readdata[3]: 安値
#$readdata[4]: 終値
$movingaverage[$count] = $movingaverage[$count] + $readdata[4];
$movingaverage[$count + 1] = $movingaverage[$count];
$movingaverage[$count] = $movingaverage[$count] / $count;
}
close IN;
#—– データを読み込みながら移動平均を計算 ここまで

#return(@movingaverage); #サブルーチンとする場合は行頭の#を取る

#} #サブルーチンとする場合は行頭の#を取る

exit; #サブルーチンとする場合はこの行を除去

#1; #サブルーチンとする場合は行頭の#を取る

 

キーワード: Perl; 移動平均; 為替レート; 株価; 為替市場; 株式市場; 先物市場; fx; ビットコイン

あわせてどうぞ

[Perl] 移動平均の傾きを一気に計算する