Add p2wpkh address creation example

bitcoin/Cargo.toml

@@ -71,6 +71,10 @@ required-features = ["std", "bitcoinconsensus"]
 name = "ecdsa-psbt-simple"
 required-features = ["rand-std"]
 
+[[example]]
+name = "create-p2wpkh-address"
+required-features = ["rand-std"]
+
 [[example]]
 name = "sign-tx-segwit-v0"
 required-features = ["rand-std"]

bitcoin/examples/create-p2wpkh-address.rs

@@ -0,0 +1,26 @@
+extern crate bitcoin;
+
+use bitcoin::{KnownHrp, Address, CompressedPublicKey, PrivateKey, Network};
+use bitcoin::secp256k1::{rand, Secp256k1};
+
+// Note: creating a new address requires the rand-std feature flag.
+// Build with cargo build --examples --features=rand-std
+
+fn main() {
+    // Create a new Secp256k1 elliptic curve.
+    let s = Secp256k1::new();
+
+    // Generate a Secp256k1 secret key.
+    let (secret_key, _) = s.generate_keypair(&mut rand::thread_rng());
+
+    // Create a Bitcoin private key.
+    let private_key = PrivateKey::new(secret_key, Network::Bitcoin);
+
+    // Create a compressed public key derived from the private key.
+    let public_key = CompressedPublicKey::from_private_key(&s, private_key).unwrap();
+
+    // Create a Bitcoin P2wpkh (Pay-to-Witness-Public-Key-Hash) address.
+    let address = Address::p2wpkh(public_key, KnownHrp::Mainnet);
+
+    println!("Address: {}", address);
+}