約 1,771,031 件
https://w.atwiki.jp/itoshiihito1217/pages/25.html
#weblog どうもここ数日体調が良くない。 なんとなくおかしいぞ・・・ と思っていて・・・ 頭痛薬にも久しぶりにお世話になったにも かかわらず快方に向かわず・・・ う～～～～～～ん・・・ ついにベッドから起き上がるのもしんどいぐらいに なってしまって＾＾； ｍ 市販の風邪薬を買ってきてもらい、飲んだにも かかわらず ３８．０℃の発熱＞＜ 医者に連れて行ってもらって・・・ はい。点滴でした。 でもね、強い風邪菌ではなくて、 胃腸もやられていると思うから、そういうときに 飲み薬だけに頼っても薬の効きが良くないんだって。 だから、早く治るように直接血液に入れちゃうん だって。 久々点滴。30分ほどしてもらいました。 熱は無理に下げず、ということで、すぐには 熱は下がらなかったけど、やっぱり点滴の威力 はすごいわ。 まだ下がりきらないけど、平熱に近い状態に 戻ったし、体もかなり楽になりました。 首、背中、腰などの痛みからもほぼ解放されて。 今度は咳が微妙かな。 喉に絡まってる感じが・・・。 早く完治しなくちゃだよぉ～。 もうすでにパート2日間も休んじゃってるんだもん。 店長優しいから、しっかり治しておいでって言って くれて。 土日は、早朝入ってるし。 土曜日は忘年会も入ってるし。 早く完治しなくちゃ！！ みなさんも、気をつけてくださいね。
https://w.atwiki.jp/bura3sp/pages/27.html
攻撃力、防御力、消耗等の計算方法です。 大多数の方は南蛮にしか使わないでしょうが、自分の頭の整理のため残しておきます。 攻撃力 出兵画面に出るから割愛。 ただし、防御力の計算時に各兵科ごとの攻撃力が必要となる。 防御力 都市画面に出てくる数値をベースとし、攻撃側の各兵科ごとの攻撃力に応じて防御力が変わる。 つまり、都市画面の数値は攻撃側が単一兵科で攻撃してきた場合の防御力であり、複合兵科で攻撃してきた場合には計算が必要となる。 この計算後の防御力を「実質防御」とする。 兵士の消耗率 （攻撃力÷実質防御）^1.5 実質防御が攻撃力の２倍の相手に攻撃した場合、 （1÷2）^1.5≒0.353となり、約35.3%の兵士が倒される。 攻撃力が実質防御を超えているときはカッコ内が1以上となり、消耗率が1を超えるので防御側が全滅する。 なお、攻撃側の消耗を計算したい場合は、攻撃力と実質防御を逆にすればよい。 実質防御の計算方法 説明が面倒なので、気が向いたときに。。。
https://w.atwiki.jp/actuaries/pages/11.html
予定利率・・・現時点で金額１を運用すると１年後に受け取れると想定される金額。 現価率・・・１年後に金額１を受け取るために現在必要とされる金額。「原」価では「ない」ことに注意。 割引率・・・１年後に金額１を受け取るために現在割り引ける金額。dはdiscountの略。 -
https://w.atwiki.jp/ce00582/pages/660.html
Function ponu(s As Single, mx As Single, nx As Single, u) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nu As Single pp = 0 m1 = mx n1 = nx If m1 -10 Then pp = 1 If m1 -10 Then m1 = -10 If m1 9 Then pp = 1 If m1 9 Then m1 = 9 If n1 -10 Then pp = 1 If n1 -10 Then n1 = -10 If n1 9 Then pp = 1 If n1 9 Then n1 = 9 m2 = Int(m1) m3 = m2 + 1 n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (u(s, m3, n2) - u(s, m2, n2)) dn = (n1 - n2) * (u(s, m2, n3) - u(s, m2, n2)) nu = u(s, m2, n2) + dm + dn If pp = 1 Then nu = -999 ponu = nu End Function Function fastv(n As Single, h As Single, ws, fastu, v) As Single Dim bxs As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single uxs = fastu(n) wxs = seekw(uxs) mxs = (wxs - ws(99)) / h nxs = -0.1 * n * h fastv = uxs + nearv(99, mxs, nxs, v) End Function Function nearfast(nx As Single, fastu) As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim dn As Single n1 = nx pp = 0 If n1 9 Then pp = -999 If n1 9 Then n1 = 9 If n1 -9 Then pp = -999 If n1 -9 Then n1 = -9 n2 = Int(n1) n3 = n2 + 1 dn = (n1 - n2) * (fastu(n3) - fastu(n2)) nearfast = fastu(n2) + dn + pp End Function Function gotow(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single j = 3 bxs = 0 uxs = ponu(s, m, bxs, u) wxs = seekw(uxs) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = ponu(s, m, bx1, u) wx1 = seekw(ux1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) bx2 = bxs - j ux2 = ponu(s, m, bx2, u) wx2 = seekw(ux2) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop uxs = ponu(s, m, bxs, u) wxs = seekw(uxs) mxs = (wxs - ws(s - 1)) / h gotow = mxs End Function Function gotob(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single j = 3 bxs = 0 uxs = ponu(s, m, bxs, u) wxs = seekw(uxs) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = ponu(s, m, bx1, u) wx1 = seekw(ux1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) bx2 = bxs - j ux2 = ponu(s, m, bx2, u) wx2 = seekw(ux2) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop gotob = n - bxs End Function Function seekfastu(th, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = 0.5 ys = th(100) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h c1 = th(100) * l1 - bp y1 = th(100) * l1 u1 = Log(c1) + Log(1 - l1) l2 = ls - h c2 = th(100) * l2 - bp z = 0 u2 = Log(c2) + Log(1 - l2) If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seekfastu = us End Function Function seekv(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single j = 3 bxs = 0 uxs = nearu(s, m, bxs, u) wxs = seekw(uxs) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nearu(s, m, bx1, u) wx1 = seekw(ux1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) bx2 = bxs - j ux2 = nearu(s, m, bx2, u) wx2 = seekw(ux2) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop seekv = vxs End Function Function nearu(s As Single, mx As Single, nx As Single, u) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nu As Single pp = 0 m1 = mx n1 = nx If n1 -10 Then pp = 1 If n1 -10 Then n1 = -10 If n1 9 Then pp = 1 If n1 9 Then n1 = 9 n2 = Int(n1) n3 = n2 + 1 dn = (n1 - n2) * (u(s, m2, n3) - u(s, m2, n2)) nu = u(s, m2, n2) + dn If pp = 1 Then nu = -999 nearu = nu End Function Function nearv(s As Single, mx As Single, nx As Single, v) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nv As Single pp = 0 m1 = mx n1 = nx If m1 -9 Then pp = 1 If m1 -9 Then m1 = -9 If m1 9 Then pp = 1 If m1 9 Then m1 = 9 If n1 -29 Then pp = 1 If n1 -29 Then n1 = 9 If n1 29 Then pp = 1 If n1 29 Then n1 = 9 m2 = Int(m1) m3 = m2 + 1 n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (v(s, m3, n2) - v(s, m2, n2)) dn = (n1 - n2) * (v(s, m2, n3) - v(s, m2, n2)) nv = v(s, m2, n2) + dm + dn If pp = 1 Then nv = -999 nearv = nv End Function Function seeku(s As Single, th, wp As Single, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = (bp + 0.1) / th(s) ys = th(s) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) ws = Log(cs) + Log(1 - ys / th(s + 1)) If ws wp Then us = -999 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h If l1 0.99 Then l1 = ls c1 = th(s) * l1 - bp y1 = th(s) * l1 u1 = Log(c1) + Log(1 - l1) w1 = Log(c1) + Log(1 - y1 / th(s + 1)) If w1 wp Then u1 = -999 l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(s) * l2 - bp If c2 0.01 Then l2 = ls c2 = th(s) * l2 - bp y2 = th(s) * l2 u2 = Log(c2) + Log(1 - l2) w2 = Log(c2) + Log(1 - y2 / th(s + 1)) If w2 wp Then u2 = -999 If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seeku = us End Function Function seekw(wp As Single) As Single Dim x1 As Single Dim x2 As Single Dim x3 As Single Dim w1 As Single Dim w2 As Single Dim t As Single x1 = 0.3 x2 = 0.7 Do Until t 100 w1 = 2 * Log(x1) w2 = 2 * Log(x2) x3 = x2 + (wp - w2) * (x2 - x1) / (w2 - w1) x1 = x2 x2 = x3 If (wp - w2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop seekw = x2 End Function Function lx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 lx = ls End Function Function cx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 cx = (1 - tl) * th(s) * ls + tr End Function Function tls(th) As Single Dim maxw As Single Dim tl As Single Dim tr As Single Dim tp As Single Dim w1 As Single Dim n As Single maxw = -999 For n = 1 To 400 tl = 0.001 * n tr = trs(th, tl) w1 = wel(th, tl, tr) If w1 maxw Then tp = tl If w1 maxw Then maxw = w1 Next tls = tp End Function Function trs(th, tl As Single) As Single Dim tr1 As Single Dim tr2 As Single Dim tr3 As Single Dim b1 As Single Dim b2 As Single Dim t As Single tr1 = 0 tr2 = 0.1 t = 0 Do Until t 100 b1 = bud(th, tl, tr1) b2 = bud(th, tl, tr2) tr3 = tr2 - b2 * (tr2 - tr1) / (b2 - b1) tr1 = tr2 tr2 = tr3 If (tr1 - tr2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop trs = tr2 End Function Function wel(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single w1 = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 cs = cx(s, th, tl, tr) w1 = w1 + Log(cs) + Log(1 - ls) Next wel = w1 End Function Function bud(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single Dim ys As Single ys = 0 cs = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 ys = ys + th(s) * ls cs = cs + cx(s, th, tl, tr) Next bud = ys - cs End Function Private Sub Command1_Click() Dim th(1 To 100) As Single Dim s As Single Dim m As Single Dim n As Single Dim tl As Single Dim tr As Single Dim bs(1 To 100) As Single Dim ws(1 To 99) As Single Dim fastu(-100 To 100) As Single Dim u(1 To 99, -10 To 10, -10 To 10) As Single Dim v(1 To 99, -10 To 10, -30 To 30) As Single Dim w1 As Single Dim wp As Single Dim bp As Single Dim h As Single For s = 1 To 100 th(s) = 0.5 + 0.01 * s Next tl = tls(th) tr = trs(th, tl) Debug.Print tl, tr For s = 1 To 100 bs(s) = th(s) * lx(s, th, tl, tr) - cx(s, th, tl, tr) Next For s = 1 To 99 w1 = Log(cx(s, th, tl, tr)) + Log(1 - th(s) * lx(s, th, tl, tr) / th(s + 1)) ws(s) = seekw(w1) Next h = 10 ^ (-3) For s = 1 To 99 For m = -10 To 10 For n = -10 To 10 wp = 2 * Log(ws(s) + h * m) bp = bs(s) + h * n u(s, m, n) = seeku(s, th, wp, bp) Next Next Next For s = 1 To 99 For m = -10 To 10 For n = -30 To 30 v(s, m, n) = -999 Next Next Next s = 1 For m = -10 To 10 For n = -10 To 10 v(s, m, n) = u(s, m, n) Next Next For s = 2 To 99 For m = -10 To 10 For n = -10 To 10 v(s, m, n) = seekv(s, m, n, h, ws, u, v) Next Next Next For n = -100 To 100 fastu(n) = seekfastu(th, bs(100) + n * 0.1 * h) Next Dim opw(1 To 99) As Single Dim opb(1 To 99) As Single opw(99) = (seekw(fastu(-100)) - ws(99)) / h opb(99) = 10 For s1 = 1 To 98 s = 100 - s1 opb(s - 1) = gotob(s, opw(s), opb(s), h, ws, u, v) opw(s - 1) = gotow(s, opw(s), opb(s), h, ws, u, v) Debug.Print opb(s - 1), opw(s - 1) Next End Sub
https://w.atwiki.jp/denkai/pages/17.html
変更後の速度概算方法リアスプロケ変更改良前の速度計算方法 改良後の速度計算方法 アシストギア変更変更後のアシスト比概算 変更後の速度概算方法 リアスプロケ変更 改良前の速度計算方法 例として、27インチママチャリの電動アシスト自転車を改良する場合とする。 27インチママチャリのタイヤ側面に記載されてるサイズ表記（ETRTO）は「37-630」。これはタイヤの幅が「37mm」で、タイヤ内側のリムに接する部分の直径が「630mm」である事を示す。 これを下記の「タイヤ外径計算機」や「タイヤ周長一覧表」に照らし合わせると、このタイヤの外側の直径は「691mm」、外周は「2169mm」だと分かる。タイヤ1回転で進む距離が「約2m17cm」だと判明する。 ■タイヤ外径計算機 http //www.geocities.jp/jitensha_tanken/tire_size.html#diameter ■キャットアイ公式HP タイヤ周長ガイド http //www.cateye.co.jp/products/cc/tire.html http //www.cateye.co.jp/pdf/ccpdf/tire_guide.pdf ■タイヤ寸法表記とタイヤ外径の関係 http //www.geocities.jp/jitensha_tanken/tire_size.html http //www.geocities.jp/jitensha_tanken/tire_JIS.html 内装変速ハブの変速比は「1速は0.73倍減速、2速は1.00等倍、3速は1.36倍増速」となっている。フロントスプロケは「41T」、リアスプロケは「20T」と分かる。 GD値（ペダルを1回転させた時に自転車が進む距離）は、下記の式で求められる。 GD値＝前スプロケ÷後スプロケ×内装変速比×タイヤ周長 よって、改良前ノーマル状態の27インチママチャリの性能は、下記の通り。 段数 前ｽﾌﾟ歯数 後ｽﾌﾟ歯数 内装ｷﾞｱ比 総合ｷﾞｱ比 リム外径 ﾀｲﾔ幅 ﾀｲﾔ外径 ﾀｲﾔ外周 GD値 60rpm速度 24km/hｹｲﾃﾞﾝｽ 3速 41 21 1.36 2.66 630 37 691 2169 5.76 20.7 69 2速 41 21 1 1.95 630 37 691 2169 4.23 15.2 94 1速 41 21 0.73 1.43 630 37 691 2169 3.09 11.1 129 ノーマル状態では、トップギア（3速）でケイデンス60時は時速20.7km/h、また時速24km/h到達時のケイデンスは69となる。 改良後の速度計算方法 後は、前述の表のリアスプロケの部分を変更して表を作り直せば、改良後の見積もりが可能。 リアスプロケを21T→16Tにした場合 段数 前ｽﾌﾟ歯数 後ｽﾌﾟ歯数 内装ｷﾞｱ比 総合ｷﾞｱ比 リム外径 ﾀｲﾔ幅 ﾀｲﾔ外径 ﾀｲﾔ外周 GD値 60rpm速度 24km/hｹｲﾃﾞﾝｽ 3速 41 16 1.36 3.49 630 37 691 2169 7.56 27.2 53 2速 41 16 1 2.56 630 37 691 2169 5.56 20.0 72 1速 41 16 0.73 1.87 630 37 691 2169 4.06 14.6 99 まとめ：27インチママチャリのリアスプロケを21T→16Tに交換した場合 (1)変更前ギア比は前41T÷後21T×1.36=2.66 → 変更後ギア比は前41T÷後16T×1.36=3.49 (2)ペダル１回転で進む距離の変化 交換前約5m80cm → 交換後約7m60cmにアップ (3)ペダル回転数ごとの時速の変化 毎分60回転時…交換前時速21km/h→ 交換後時速27km/h（アシスト有効域内） 毎分70回転時…交換前時速24km/h→ 交換後時速32km/h（≒アシストゼロ域） 毎分80回転時…交換前時速28km/h→ 交換後時速36km/h（アシスト有効域外） リアスプロケを16Tにすると、時速32km/hまでアシストされる様になる。また改良前と同ケイデンスなら時速6km/h～8km/h近くアップする。 もし31km/h以上でもアシスト有効にしたいなら、SPSやアシストギア等も変更。ただし35km/hを越えた辺りからモーター負荷の限界が近付いて体感トルクが殆ど感じられなくなってくるので、加速性能と最高速度を両立させる事は難しくなっていく。 ■走行速度 ギア比計算機 http //www.geocities.jp/jitensha_tanken/speed.html アシストギア変更 変更後のアシスト比概算 アシストギアのみ変更後のママチャリのアシスト比概算 旧基準11T時…18.3km/hまでは電動負担45％→ 29.3km/hでアシスト0％、 旧基準12T時…20.0km/hまでは電動負担43％→ 32.0km/hでアシスト0％、 旧基準13T時…21.7km/hまでは電動負担41％→ 34.7km/hでアシスト0％、 旧基準14T時…23.3km/hまでは電動負担39％→ 37.3km/hでアシスト0％、 ノーマル旧基準車の補助率＝1-(速-15)/9、但し15km/h迄は1 1、 ノーマル新基準車の補助率＝2-(速-10)/7、但し10km/h迄は1 2、 アシスト比＝補助率/(補助率+1)×100（％）、 ノーマル時ママチャリのアシスト比 （人力＋電動＝100％とした場合の電動の負担する割合） 時速 新基準人力分 新基準電動分 旧基準人力分 旧基準電動分 10km/m 33 67 50 50 11km/m 35 65 50 50 12km/m 37 63 50 50 13km/m 39 61 50 50 14km/m 41 59 50 50 15km/m 44 56 50 50 16km/m 47 53 53 47 17km/m 50 50 56 44 18km/m 54 46 60 40 19km/m 58 42 64 36 20km/m 64 36 69 31 21km/m 70 30 75 25 22km/m 78 22 82 18 23km/m 87 13 90 10 24km/m 100 0 100 0
https://w.atwiki.jp/reversus/pages/151.html
更新周期は半年毎のようです・・・ 2013/4/1 12 00 更新内容 追加 ブレス 活力 後ディレイ消し 属性 追加ステ ※属性はMOB一律30として130－30＝100を上限としてます。100ｘ0.625？ ※実際のステは素ステ 追加ステに【クラブエフェクト ルーンスキル モンスターステ】の合計を入力 削除 覚醒の秘薬(魔だけです、物理は残してます) 兜アビ ※アビはスキル倍率に自分で･･･ モンスタースキルの追撃等は今回は見送りますｱｼｶﾗｽﾞ 主に狩り用のTWの計算機ﾃﾞｽ ※注意点 オープンオフィス製。通常のエクセル･オフィスでは開けません。 オープンオフィスをダウンロード＆インストールして下さい。 『窓の杜 オープンオフィス』 でぐぐってみてください 使い方について ①本ページ一番下の添付ファイル(てぃちぇるな計算機)をダウンロードし、開く。 ②青地の太枠(装備補正、ステータス、武器ディレイ)を埋めます。 ※黄色地と下のダメージ等の表には計算式等入ってます。よくわからない人はいじらないでね。 ③チェックボックスにチェック。細かいの色々。 キャラ選択ではテチクロエは基本的に同じスキルで固定してます。IM FB MB 。 テチを選択するとAW込みの上限が計算されます。AW使わない場合はクロエをチェックしてください。 ④あーらふしぎ、色々と計算されてるじゃないですか。 ⑤あとは保存して変化があったら随時変えていけば･･･。 ⑥物理スキル命中は使用するののみ入力してください。ダメとかは入力しても問題なし。スキルアビの分は自分で足してね♪ ⑦誤差はキニシナイ。前後ディレイはあくまでも武器ディレイからの計算です。正確には別サイト参照。 狩場について チェックボックスは複数選択可能ですが優先度が高いほうが計算されます。 チェックボックスの優先順位↓ シオカン＞影 西 西ﾎﾞｽ その他 デリンセヒル 他地域、スキルシートにレベルが記載されてます。そちらから探してください。 例)影55とデリンセヒルにチェックを入れてると影55が計算されます 魔法キャラ用と物理キャラ用は微妙に変えてます。 まずは魔から 赤丸のところが保存ﾃﾞｽﾖ 次に物理 不具合等ありましたらこちらまでお願いします。 名前 コメント さぁ貴方の狩り場のお供に！ -- ななし (2011-05-02 14 37 21)
https://w.atwiki.jp/jukai_bao/pages/224.html
EMSで送れるもの 公式転送で送れるもの それ以外でしか送れないもの 禁輸品 上記ついては各自自分で調べて確認するのがベスト あわせて読みたい：跨境配送方式 目次 配送方法の切り替え方 【自行联系卖家发货】 【任意の転送・代行業者を使った方がいいもの】長辺が40cm未満送料の計算方法は要確認 ボタン電池が入るもの（EMS・佐川） 『官方集运』（公式転送）の場合送れないor輸送が不安なもの 『官方集运』では関税が発生しそうな価格のもの 複数ショップで買った場合 【『官方集运』（公式転送）を使った方がいいもの】関税がかからない程度のもの 禁輸品でなく、それほど点数が多くない場合 吉名様の元ツイート 配送方法の切り替え方 【自行联系卖家发货】 セラーから日本へ直送する場合などに選択。 利用不可なセラーもあるため、購入前に要相談。 高額な送料が設定されていたら利用不可という意味かも。 送料の支払い方は、主に1元の商品を送料分購入するなどの方法がとられます。 『自行联系卖家发货』が利用できないセラーの場合は 任意の転送・代行業者 官方集运（タオバオ公式転送サービス） 以上どちらかを利用してください。 目次 自行联系卖家发货とは 日本へ直送してもらう際の主な流れ 高額な送料が設定されていたら利用不可かも 【任意の転送・代行業者を使った方がいいもの】 長辺が40cm未満 送料計算が実重量で行われるためEMSなど官方集运以外を利用しても送料が高くなりにくいと思われる 基本的には 40cm以上（40cm含む）の場合、容積重量で送料が計算される 大体は容積重量と実重量を比較して重い方が適用される あわせて読みたい：容積重量と実重量 送料の計算方法は要確認 転送・代行業者によっては 「EMSは全て容積重量計算を行う」としている場合もあるため、送料の計算方法は要確認 「40cm以上でも容積重量が実重量の2倍に達していない場合は実重量計算」という契約を中国郵政と行なっている場合もあり、これを送料計算に反映してくれる業者なら、容積重量計算になりにくく送料が抑えられる可能性がある あわせて読みたい：業者の中国郵政との契約 ボタン電池が入るもの（EMS・佐川） コス衣装などに付属する場合もあるので要確認 セラー・商品によっては事前にセラーに相談すれば電池を抜いてもらえる場合もある 『官方集运』（公式転送）の場合送れないor輸送が不安なもの 服、書籍、食品、壊れやすいものなど あわせて読みたい：4PX 独自ルール 『官方集运』では関税が発生しそうな価格のもの 10,000円〜16,666円以下 公式転送（官方集运）は送料など諸々込み10,000円超過で関税がかかる あわせて読みたい：4PX利用は申告価格×0.6の対象外 複数ショップで買った場合 ショップごとではなく、転送・代行業者がまとめて日本に送ってくれるので国際送料が節約できる 官方集运もまとめて送ってもらえる機能だが、タオバオで購入したものに限られる（多分）に対して、任意の転送・代行業者を利用した場合（業者に可能か事前確認推奨だが）闲鱼や阿里巴巴など他の通販サイトで購入したものもまとめて送れる 【『官方集运』（公式転送）を使った方がいいもの】 関税がかからない程度のもの 送料など諸々込みで10,000円以内 あわせて読みたい：4PX利用は申告価格×0.6の対象外 禁輸品でなく、それほど点数が多くない場合 転送・代行業者によっては手数料や梱包料などが嵩む 4PX 独自ルールに、同一商品は10点までとあるのであまり多いと送れない可能性がある また、点数が多いと商業輸入と判断され関税が課される場合もあるため要注意 吉名様の元ツイート このページは主に吉名様（Twitter：@__ysxf）のツイートをコピペ・編集させていただきました。 掲載をご快諾いただきありがとうございます。 2022年6月19日 ▪︎EMS(転送代行)を使った方がいいもの →長辺が40cm以内 (容積重量が実重量の2倍以上の場合は容積重量になるので注意) →ボタン電池が入るもの(EMS佐川) (コス衣装に付属する神の目はボタン電池入ってます) →服、書籍、食品、壊れやすいものなどの官方の場合送れないor輸送が不安なもの ↓ →関税がかかりそうなもの(代行さんによるのでチャットで聞く) (公式転送(官方)は送料など諸々込み10,000円以上から関税かかる) →複数ショップで買った場合 (ショップの事ではなく、代行さんの方でまとめて日本に送ってくれるので国際送料が1ショップ分になる) ▪︎公式転送(官方)を使った方がいいもの →長辺が40㎝以上 (官方は実重量計算のため、大きくて軽いものなどは官方がいい) →関税がかからない程度のもの (送料など諸々込みで10,000円以内) →禁輸品でなく、それほど点数が多くない場合 (転送代行を頼むと手数料や梱包料などが嵩む) とか？かな EMSで送れるもの、公式転送で送れるもの、それ以外でしか送れないとの、禁輸品については各自自分で調べて確認するのがベスト
https://w.atwiki.jp/note01/pages/17.html
ループで階乗を求める 解答例 #include stdio.h int main(void) { int i, n, kaijo; printf("入力 "); scanf("%d", n); kaijo = 1; i = n; while (i = 1) { kaijo = kaijo * i; --i; } printf("%dの階乗は%d\n", n, kaijo); return 0; } forループで階乗を求める 解答例 #include stdio.h int main(void) { int i, n, kaijo = 1; printf("入力 "); scanf("%d", n); for (i = 1; i = n; i++) { kaijo *= i; } printf("%dの階乗は%d\n", n, kaijo); return 0; } 再帰関数で階乗を求める 解答例 #include stdio.h int fac(int n) { if (n == 0) { return 1; } else { return n * fac(n-1); } } int main(void) { int n; printf("入力 "); scanf("%d", n); printf("%dの階乗は%d\n", n, fac(n)); return 0; } -
https://w.atwiki.jp/bdtrade/pages/4.html
貿易の売上について 利益＝原価×（売り相場×距離ボーナス×交渉ボーナス×価格保証－買い相場） 売り相場 100～130%を周期的に推移している他，売りが入るたびに少しずつ減少する． 同チャンネルの他ユーザと相場を共有するため，売りの多い貿易品は相場が100%を割ることもある． 謎の商団が出現した拠点では，相場が一気に200%まで上がる．こちらも，ユーザの売却により下がっていく． 例外として，皇室貿易については常に250%，接続されていない拠点は常に30%である． 買い相場 70～100%を周期的に推移する．売りと違って，購入数に制限があり，購入による相場の変動はない． 距離ボーナス 売り買いする貿易管理NPCの直線距離に応じて売却価格にボーナスがかかる． 実際の走行距離や時間とは関係がないため，回り道をすると損をする． 交渉ボーナス 行動力を支払って天秤操作．成功すると，貿易レベルに応じて売却価格にボーナスがかかる． 売却額が高いほど交渉ボーナスの効果も大きい． 価格保証 NPCから購入した貿易品、釣った魚などは時間経過で価格が落ちる。価格保証期間を過ぎると売却不可になる。 価格保証期間は24時間または12時間とあるが、100%を保証してくれるのはリアル数時間な模様。 価格保証期間24時間のものは、残り13時間22分で74%、6時間で33%に落ちていた。 オフライン中も価格保証期間は経過するため。貿易中にログアウトしたり、長時間離席することは避けたい。 効率の良いルート選択 皇室貿易＞商団＞普通の貿易 利益に最も影響するのは原価，次に売り相場． こまめに売却すると交渉ボーナスが得られないので，そこそこの距離を走ってまとめて売るのが良い． 距離の近い拠点であれば，高額品を130%で売れる拠点を選んだほうが良い． 同原価であれば，皇室貿易は５～６倍の利益を出す． ただし，オルビア→アルティノのように，距離は長いが原価が安いものの場合，時間利益が下がるので注意． 長時間放置する場合は距離の長い方がお得だが，アクティブなときは，距離よりも原価を考えたほうが時間利益は良くなる． まとめると，皇室貿易をベースとし，皇室貿易の帰りに高額品を買い，200%があればそちらへ運び，なければ次の皇室貿易の買い拠点付近で最も売り相場の良い拠点へ運ぶ．これの繰り返しである．
https://w.atwiki.jp/tomtom/pages/6.html
行列の表現 複素行列