| |
▼塚本 さん：
こんばんは。
>はじめまして。私は大学の卒論に着手している塚本と申します。
私にとっては、何十年前だろう？？
>ｘ＝ａｃｏｓθ＋５ａｃｏｓ（β−α）＝ａｃｏｓθ＋５ａｃｏｓ｛ａｒｃｃｏｓ（５−４ｃｏｓθ
>／５√（５−４ｃｏｓθ））−ａｒｃｃｏｓ（２−ｃｏｓθ／√（５−４ｃｏｓθ））｝
>
>
>ｙ＝ａｓｉｎθ＋５ａｓｉｎ｛ａｒｃｃｏｓ（５−４ｃｏｓθ／５√（５−４ｃｏｓθ））
>−ａｒｃｃｏｓ（２−ｃｏｓθ／√（５−４ｃｏｓθ））｝
まず、上記の式の「ａｃｏｓθ」というのは、
アークコサインではなく、a*cosθという意味ですよね？
（だって、アークコサインはａｒｃｃｏｓと区別されていますからね）
同様にasinθもa*sinθですよね？
ＶＢＡでは、
sin、cosは、関数があります。
アークサイン、アークコサインは、ＶＢＡの関数としてはないけど、
Excelのワークシート関数にあります。
WorksheetFunction.Acos(x)
等とするとＶＢＡ内で使用出来ます。
すると、提示された式は、
'===================================================
With WorksheetFunction
x = a * Cos(θ) + 5 * a * Cos(β - α) = _
a * Cos(θ) + 5 * a * Cos( _
.Acos(5 - 4 * Cos(θ) / 5 * Sqr(5 - 4 * Cos(θ))) - _
.Acos(2 - Cos(θ) / Sqr(5 - 4 * Cos(θ))))
y = a * Sin(θ) + 5 * a * Sin( _
.Acos(5 - 4 * Cos(θ) / 5 * Sqr(5 - 4 * Cos(θ))) - _
.Acos(2 - Cos(θ) / Sqr(5 - 4 * Cos(θ))))
End With
等と記述することができます。
x、y、a、α、β、θは、変数です。
以上、少しでも参考になればよいのですが・・・。
|
|
- 04/1/18(日) 18:19 -
