筛选一万亿内的素数

1.筛选一万亿内任意一个区段的素数 2.3.函数参数：as_1 decimal value 筛选范围区段起点 4. as_2 decimal value 筛选范围区段终点 5. as_return decimal reference 存放种子素数 6. as_return_value decimal reference 存放筛选结果 7.8.调用详解：1.必须定义的变量 dec as_return,as_return_value 9. 2.as_return,as_return_value 切勿赋值。 10. 3.筛选区段一般不大于 100 万为佳，即 as_2as_1=0 所找到素数的个数 15. ls_rang and upperbound(as_return_value)=0 then /输入参数大于区段，或跨起始区段，并且函数第一次被调用时 99. /强制函数自行计算一次起始区段以内的素数 100. ls_2=ls_rang 101. ls_1=0 102. /设置函数递归标志，要求函数递归 103. recursion_bz=1 104.end if 105./初始化 END 106.107./=求 100 万以内的素数= 内部函数 1 108.109.if upperbound(as_return)=0 then /函数第一次执行时 110.111. kk=ls_2 112. k=truncate(sqrt(kk),0) 113.114. if ls_1=ls_1 then 121. n+ 122. as_returnn=i 123. end if 124. j=i*i 125. do while j=ls_1 then 137. n+ 138. as_returnn=i 139. end if 140. end if 141. next 142. /所求素数属于起始区段范围内，直接返回 143. if recursion_bztmp then tmp=Truncate (tmp,0)+1 157. for tmp0=1 to tmp 158. cl1tmp0=(tmp0 -1)*ls_rang+as_1 159. cl2tmp0=cl1tmp0+ls_rang -1 160. if cl2tmp0>as_2 then cl2tmp0=as_2 161. next 162. /进行递归 163. for tmp0=1 to tmp 164. if upperbound( as_return_value)=0 then as_return_value1=0 165. f_prime_number(cl1tmp0,cl2tmp0,as_return,as_return_value) 166. next 167. /整个函数返回 168. as_return=temp 169. return upperbound(as_return_value) 170.end if 171.172./初始化，为求 100 万以上某区段内的素数准备 173.if as_return_value1=0 then as_return_value=temp 174.k1=as_1 175.if mod(as_1,2)k2 then exit 201. j=as_return -mod(k1,as_return) 202. do while j<=k3 203. pj=1 204. j=j+as_return 205. loop 206.next 207.if k1<2 then p1=1 208.for i=1 to k3 step 2 209. if p<1 then 210. as_return_valuen=i+k1 211. n+ 212. end if 213.next 214.215.return 0