- 博客(7)
- 收藏
- 关注
原创 VBA获取新浪博客列表
Sub Blogsina() Const url As String = "http://www.google.cn/search?q=site%3Ablog.sina.com.cn/u/&num=100&start=" Dim n As Long, p As Long, s() As String, u() As String, i As Long With Cre
2010-01-25 16:57:00 2333 2
原创 Number of sets of natural numbers less than n which sum to n.
The integer sequence was in : A111133 Seems easy. Sub Calc() Dim n As Long, count(), i As Long n = 500 ReDim count(n) count(0) = 1 For i = 1 To n For j = n To
2010-01-17 17:07:00 1569
原创 一元多项式的幂
Function PowerPolynomial(ByVal f As String, ByVal n As Long) As String If n = 1 Then power = f: Exit Function Dim a() As Long, b, c(), s() As String, max As Long, i As Long, j As Long, k As
2010-01-17 14:23:00 1262
原创 An UDF to calculate weekday
It seems feasible . Function myweekday(ByVal y As Long, ByVal m As Long, ByVal d As Long) As Long Dim bias As Long If m > 2 Then bias = m - 2 Else bias = 10 + m
2010-01-09 23:50:00 1239
原创 Four dogs in a square with two distinct distances
How many ways can four dogs be arranged in a square so that the six distances between pairs of them take on only two different values? Its funning(Pictures were provided by wayne ):
2010-01-04 17:57:00 1223 6
原创 Two math problems in http://projecteureka.org sumitted by me.
http://projecteureka.org/problem/question/814 Problem 814 - Tringles whose perimeter are 12345 Count different Tringles whose all 3 side lengths are integers and perimeter are 12345.Solut
2010-01-03 13:57:00 1110
原创 Fundamental Solution to Pell's Equation
From Wikipedia,Pells equationis any Diophantine equation of the formwhere n is a nonsquare integer and x and y are integers. We can calculate the x,y for certain n with the followi
2010-01-03 13:19:00 1753 1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人