想流浪的土狗 想流浪的土狗
关注数: 20 粉丝数: 88 发帖数: 1,133 关注贴吧数: 10
相当业余的测试。。。。 样品: 一枚戒指,银白色的。 实验条件,白线一根/电子称/支架/水杯大小各一个/镊子/ 室内20℃左右,通电正常。 系上白线的戒指重量是2.06克(在此忽略白线重量) 戒指在水中的重量是1.9 克 可算出此戒指的密度为15.87克/立方厘米 由此结果可以推断这枚戒指不是银(银的密度是10.5克/立方厘米),通过外观和一些外在因素的观察分析及考虑之后,容我妄断,丫85%的可能是金和银的合制品。 姑且认为这推论是正确的,下面的测试推论才能正常进行。 假设戒指的银合金。 那么我们开始,已知金的密度为19.3 设为PI,银的密度为10.5,设为p2.假设金和银的质量分别为M1克和M2克时可使合金的密度为15.87克/立方厘米,设为P P=(M1+M2 )/(V1+V2) =(M1+M2)/(m1/p1+2/p2) =p1p2(m1+m2)/(m1p2+m2p1) 泥煤,不会算了!!!以下百度来的 以上公式整理简化得出: m1 /m2=p1(p2-p)/[p2(p-p1)] 哎,初中数学都忘记光光了啊!!!!! 然后代入数字进去得出M1/M2=103/36(约等于) 接着二元次方程m1+m2=2.06 m1/m2=103/36 得出M1=1.526 M2=0.533 即此戒指中金1.526克银0.533克。含金量大约是74.1% 再经过度娘搜索资料判断大约85%的几率是“18K白金”。准确的来说是“白18K金” 话说你们信不?反正俺是瞎搞的。。没摸过金子的人,实在是不好判断啊。。。。。。
推荐一些看过觉得不错电影吧 有人@我,进去却发现帖子不见了 以下是国外电影推荐,欢迎各位补充推荐。 《阿甘正传》 里面仔细看会看到卖苹果的公司主题曲和插曲都非常好听。 《美国往事 》 苗条 德尼罗的演技无需要言语 《出租车司机》 再一次欣赏德尼罗,如果你了解美国迷惘的一代,看看这部电影吧 《公民凯恩 》 就该导演一项就值得你去看一遍这一部伟大的影片 《西西里的美丽传说》 西西里那个美丽的地方为毛总与元首有关系。。。 《肖申克的救赎》 刺激1995无需多说,顺便推荐越剧《越狱》 《泰坦尼克号》 《罗马假日》 如果你知道赫本的话,就不会错过这部 《革命之路》 你还想看到 杰克与柔丝的再一次合作吗 《三傻大脑宝莱坞》 个人认为印度阿三最好的电影 《拯救大兵瑞恩》/《现代启示录》 如果喜欢战争的话 系列电影推荐 《魔戒三部曲》 《教父三部曲》 《加勒比海盗系列》 《生化危机系列》 《变形金刚系列》 《速度与激情系列 》 个人觉得第三部东京漂移实在垃圾。。。。 动画电影推荐 《冰河世纪系列》 《千与千寻》 《白雪公主和七个小矮人》 《龙猫》 《美女与野兽》 《天空之城》 原谅我好多看的都是鬼子的片片 科幻和魔幻的基本上没推荐,看的不多,《十二只猴子》 《黑夜传说系列>> 希望大家多推一些好片,一起分享。三扣。。。
发个窝飞丝的 宏代码,骗点经验不容易啊。。。。 Option Explicit Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _
1 下一页