此文件包含两个单独的程序（recaman1.f和recaman2.f）用于雷卡曼序列A005132（a（*））、A057167（h（*））和A057167（h（*）），以及许多相关序列。c重铸1.fc Recaman序列A005132（a（*））、A057167（h（*），c A064227、A064228、A064288、A064 289等c（c）c a（*）=序列如果已经命中i，则ch（n）=1，否则为cc tim（n）=n出现的次数c rec（n）=创纪录的击球时间c ntough（n）=困难n的列表c ht=当前项的高度=加法步骤数-减法步骤数c高度（n）=出现时n的高度c htime（n）=第n步达到的数字高度=第n项的htc recht（m）=高度的第一个数字mc rechtn（m）=获得高度m第一个数字的时间c lasth（m）=最后一个高度mc lasthn（m）=获取最后一个高度m的时间c（c）隐式整数（a-z）整数rec（10000），ntough（1000），tim（100）整数高度（100），htime（100）、recht（100）和lasthn（100）整数rechtn（100），lasth（100）实数xjjj整数*4小时，a普通/fred/h（1300000000），a（100000000）c设置限制最大值=1300000000c最大值=926169最大值=1000最大记录=1000最大值=100最大值=100c启动阵列等c=-1如果已经命中i，则ch（i）=1，否则为cdo 1 i=1，最大值1小时（i）=cc tim（n）=n出现的次数do 16 i=1，最大值16时间（i）=0a（1）=1h（1）=1tim（1）=1记录=1rec（1）=1ntough（1）=1norec=1ht=1高度（1）=1h时间（1）=1recht（1）=1rechtn（1）=1最后（1）=1lasthn（1）=1亮=1c主回路do 10 nx=2，最大值c写入（*，*）“nx=”，nx，a（nx-1）我们可以减法吗？t1=a（nx-1）-nx如果（t1.le.0）转到11如果（t1.gt.maxn）转到3如果（h（t1）.eq.c）转到12c否必须添加11 t1=a（nx-1）+nxht=ht+1如果（ht.le.bight）达到30c新记录高度bight=ht如果（bight.le.maxht）recht（ht）=t1如果（bight.le.maxht）rechtn（ht）=nx30继续如果（t1.gt.maxn）转到2a（nx）=t1如果（h（t1）.eq.c）h（t1）=nx如果（t1.le.maxt）tim（t1）=tim（tl）+1如果（h（t1）.eq.nx.和.t1.le.maxht）高度（t1如果（nx.le.maxht）htime（nx）=ht如果（ht.le.maxht）lasth（ht）=t1如果（ht.le.maxht）lasthn（ht）=nx转到10c是可以减法12安（nx）=t1h（t1）=nxht=ht-1如果（t1.le.maxt）tim（t1）=tim（tl）+1如果（t1.le.maxht）高度（t1）=ht如果（nx.le.maxht）htime（nx）=ht如果（ht.le.maxht）lasth（ht）=t1如果（ht.le.maxht）lasthn（ht）=nx10继续c已完成xjjj=-浮点数（a（最大值））/浮点数（最大）+浮点数（ht）jjj=xjjjc获取记录nlast=最大值do 4 n=1，最大值如果（h（n）.eq.c）转到5如果（h（n）.le.record）转到4norec=norec+1记录=h（n）如果（norec.le.maxrec）转到6写入（*，*）“记录太多”停止6 rec（norec）=h（n）ntough（norec）=n4继续5 nlast=n写入（*，*）“序列”写入（*，101）（a（i），i=1500）写下（*，*）“当它点击时”写入（*，101）（h（i），i=13000）101格式（10i8）写入（*，*）“记录：”写入（*，101）（rec（i），i=1，norec）写下（*，*）“艰难的n’s：”写入（*，101）（ntough（i），i=1，norec）写入（*，*）“第一个缺少n=”，nlast写入（*，*）“频率：”写入（*，101）（tim（i），i=1，maxt）写下（*，*）“n的高度：”写入（*，101）（高度（i），i=1，最大值）写下（*，*）“a（n）的高度：”写入（*，101）（htime（i），i=1，maxht）写入（*，*）“高度记录（值）”写入（*，101）（recht（i），i=1，maxht）写入（*，*）“高度记录（次）”写入（*，101）（rechtn（i），i=1，最大值）写入（*，*）“jjj=”，jjjwrite（*，*）“上次的值具有高度h:”写入（*，101）（最后一个（i），i=1，jjj）写下（*，*）“上次高度为h：”write（*，101）（lasthn（i），i=1，jjj）停止c术语太大了2继续写入（*，*）“巨大2:”，nx，t1停止3继续写入（*，*）“巨大3:”，nx，t1停止结束c重铸2.fc此版本计算前10亿项c Recaman序列A005132（a（*））、A057167（h（*），c A064227、A064228、A064288、A064 289等c（c）c a（*）=序列c h（n）=1如果我们已经命中i，否则cc tim（n）=n出现的次数c rec（n）=创纪录的击球时间c ntough（n）=困难n的列表c ht=当前项的高度=加法步骤数-减法步骤数c高度（n）=出现时n的高度c htime（n）=第n步达到的数字高度=第n项的htc recht（m）=高度的第一个数字mc rechtn（m）=获得高度m第一个数字的时间c lasth（m）=最后一个高度mc lasthn（m）=获得最后一个高度m的时间c（c）隐式整数（a-z）整数rec（10000），ntough（1000），tim（100）整数高度（100），htime（100）、recht（100）和lasthn（100）整数rechtn（100），lasth（100）实数xjjj整数*1小时普通/fred/h（16000000000）c设置限制最大值=16000000000最大值=1000000000最大记录=1000最大值=100最大值=100c启动阵列等c=0如果已经命中i，则ch（i）=1，否则为cc do 1 i=1，最大值c1小时（i）=cc tim（n）=n出现的次数do 16 i=1，最大值16提姆（i）=0anow=1h（1）=1tim（1）=1记录=1rec（1）=1ntough（1）=1norec=1ht=1高度（1）=1h时间（1）=1recht（1）=1rechtn（1）=1最后（1）=1lasthn（1）=1亮=1c主回路do 10 nx=2，最大值c写（*，*）“nx=”，nx，a（nx-1）我们可以减法吗？c t1=a（nx-1）-nxt1=阳极-nx如果（t1.le.0）转到11如果（t1.gt.maxn）转到3如果（h（t1）.eq.c）转到12c否必须添加11 t1=anow+nxht=ht+1如果（ht.le.bight）转到30c新记录高度bight=ht如果（bight.le.maxht）recht（ht）=t1如果（bight.le.maxht）rechtn（ht）=nx30继续如果（t1＞maxn）转到2c a（nx）=t1anow=t1如果（h（t1）.eq.c）h（t1）=1如果（t1.le.maxt）tim（t1）=tim（tl）+1如果（h（t1）.eq.1.和.t1.le.maxht）高度（t1如果（nx.le.maxht）htime（nx）=ht如果（ht.le.maxht）lasth（ht）=t1如果（ht.le.maxht）lasthn（ht）=nx转到10c是可以减法12继续c a（nx）=t1anow=t1h（t1）=1ht=ht-1如果（t1.le.maxt）tim（t1）=tim（tl）+1如果（t1.le.maxht）高度（t1）=ht如果（nx.le.maxht）htime（nx）=ht如果（ht.le.maxht）lasth（ht）=t1如果（ht.le.maxht）lasthn（ht）=nx10继续c完成xjjj=-浮点（anow）/浮点（maxi）+浮点（ht）jjj=xjjjc获取记录c nlast=最大值c do 4 n=1，最大值c如果（h（n）.eq.c）转到5c如果（h（n）.le.record）转到4c norec=norec+1c记录=h（n）c如果（norec.le.maxrec）转到6c写入（*，*）“记录太多”c停止c6 rec（norec）=h（n）c ntough（norec）=nc4继续c5 nlast=nc写入（*，*）“序列”c写（*，101）（a（i），i=1300）c在点击时写入（*，*）c写（*，101）（h（i），i=13000）101格式（6i12）c写入（*，*）“记录：”c写（*，101）（rec（i），i=1，norec）c写下（*，*）“艰难的n’s：”c写（*，101）（ntough（i），i=1，norec）c写入（*，*）“第一个缺少n=”，nlast写入（*，*）“频率：”写入（*，101）（tim（i），i=1，maxt）写下（*，*）“n的高度：”写入（*，101）（高度（i），i=1，最大值）写下（*，*）“a（n）的高度：”写入（*，101）（htime（i），i=1，maxht）写入（*，*）“高度记录（值）”写入（*，101）（recht（i），i=1，maxht）写入（*，*）“高度记录（次）”写入（*，101）（rechtn（i），i=1，最大值）写入（*，*）“jjj=”，jjj上次写入（*，*）”值的高度为h:“写入（*，101）（最后一个（i），i=1，jjj）写下（*，*）“上次高度为h：”写（*，101）（lasthn（i），i=1，jjj）停止c术语太大了2继续写入（*，*）“巨大2:”，nx，t1停止3继续写入（*，*）“巨大3:”，nx，t1停止结束