数学研发论坛

 找回密码
 欢迎注册
查看: 284|回复: 4

[提问] 写一个连分式程序

[复制链接]
发表于 2019-4-24 21:49:56 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?欢迎注册

x
本帖最后由 kte 于 2019-4-24 22:05 编辑

p[-1]=1;p[-2]=0  

q[-1]=0;q[-2]=1


p[n]=a[n]*p[n-1]+p[n-2]


q[n]=a[n]*q[n-1]+q[n-2]



FromContinuedFraction[{10 + 3 I, -2 I, -2 + I, 1 - I, 3 + 2 I, -3,  1 - I, 9 + 3 I, 2 + I}]



$\frac{6730755}{677456}+\frac{2318341 i}{677456}$

mathematica返回了一个分数值,我这里要求出p[n],q[n]


毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-4-26 11:43:06 | 显示全部楼层
别想了,
你看,你的问题不能引起别人的兴趣
还有写代码也很痛苦的
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-4-26 20:29:27 | 显示全部楼层
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2019-4-27 08:18:47 | 显示全部楼层
zeroieme 发表于 2019-4-26 20:29
Fold函数
https://reference.wolfram.com/language/ref/Fold.html.zh

用不成

  1. 10 + 3 I +
  2. Fold[1/(#2 + #1) &, 0,
  3.   Reverse[{-2 I, -2 + I, 1 - I, 3 + 2 I, -3, 1 - I, 9 + 3 I, 2 + I}]]
复制代码



$\frac{6730755}{677456}+\frac{2318341 i}{677456}$
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-4-27 12:40:21 | 显示全部楼层
  1. Fold[{#1[[2]],#1[[1]]+#1[[2]]#2}&,{{0,1},{1,0}},{10+3I,-2I,-2+I,1-I,3+2I,-3,1-I,9+3I,2+I}][[2]]
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2019-5-25 01:22 , Processed in 0.086153 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表